
*** 作步骤如下:
1、打开excel后按Alt+F11进入VBA编辑器
2、依次单击菜单栏上“插入”--“模块”
3、在模块中输入代码,激活当前需要的工作表后在VBA中运行该代码即可。
代码如下:
Sub AddName()
For i=6 to 15
ActiveWorkbook.Names.Add.Name:=Range(“C” &i),RefersTo:=Range(“D” &i)
Next i
End Sub
vba中录制的宏为ActiveWorkbook.Names.Add Name:="xSHAIN", RefersTo:="='SHAIN!$B$2:$F$999"
ActiveWorkbook.Names("adf").Comment = ""
将ActiveWorkbook改为你定义的的excel工作表对象,比如xlsObj
另外,名称最好不要跟sheets表同名吧,感觉同名的话,悬乎。我将你的名称修改为xSHAIN了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)