第1个回答 2011-09-17
记得应该是在“插入”里面插入“模块”还是“类模块”然后把代码放在里面就可。
第2个回答 2011-09-17
如果是分别执行,分别运行
写程序时不要指定sheet
直接写cells或range
如果是一次执行,同时对多个表进行操作
for i = 1 to 3
set sht=worksheets(i)
.....
next
第3个回答 推荐于2018-03-13
Sub xx()
Dim Sht As Worksheet
Set Sht = ActiveSheet
Dim I As Integer
I = 7
Do
.....
End Sub本回答被提问者和网友采纳