Den*_*s G 97
以下宏会帮助你吗?
Sub activateSheet(sheetname As String)
'activates sheet of specific name
Worksheets(sheetname).Activate
End Sub
Run Code Online (Sandbox Code Playgroud)
基本上你想要使用.Activate函数.或者您可以像这样使用.Select函数:
Sub activateSheet(sheetname As String)
'selects sheet of specific name
Sheets(sheetname).Select
End Sub
Run Code Online (Sandbox Code Playgroud)
我建议您使用工作表的索引而不是使用工作表的名称,这样您也可以"动态"循环使用工作表
for i=1 to thisworkbook.sheets.count
sheets(i).activate
'You can add more code
with activesheet
'Code...
end with
next i
Run Code Online (Sandbox Code Playgroud)
它还将改善性能.