我发现需要"=Macro!R1C1"改为"=Macro!R2C1"才行。
Public Sub AddName() '在工作表中插入"Macro! auto_activate名称
dim sh For Each Sh In ActiveWorkbook.Sheets If Not ChkName(Sh.Name) Then ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _ "=Macro!R1C1" End If Next End Sub
Function ChkName(ByVal Sh As String) As Boolean Dim Ck As Boolean,nm For Each nm In ActiveWorkbook.Names If InStr(UCase(nm.Name), UCase(Sh)) > 0 Then Ck = True Exit For End If Next ChkName = Ck End Function
复制到新模块中,运行一下后,删除代码! 保存后退出,重新打开试一下。:) |