求助：请帮我修改代码，目前是从第4张工作表开始遍历，要求从AAA公司工作表开始遍历，

xiawangying · 发表于 2020-10-21 10:21

求助：目前是从第4张工作表开始遍历，要求从AAA公司工作表开始遍历，不管AAA公司工作表前面增加或减少工作表，都是AAA公司工作表开始遍历，烦请老师们帮我修改代码

3190496160 · 发表于 2020-10-21 14:47

Sub 参考()
m = Sheets("AAA公司").Index
For i = m To Sheets.Count
'''中间原来的代码

Next i
End Sub

3190496160 · 发表于 2020-10-21 14:48

Sub 或者()
For Each sh In Sheets
If InStr(sh.Name, "公司") > 0 Then

End If
Next sh
End Sub

		自动登录	找回密码
密码			免费注册