[已解决]一个代码同时运行多个工作表

mmc998

工作簿11.rar (54.15 KB, 下载次数: 6)

2021-3-11 20:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2021-3-12 15:10

1. Sub main()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         sht.Activate
   
5.         Call 相同
   
6.     Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub main()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         sht.Activate
   
5.         Call 相同
   
6.     Next
   
7. End Sub

复制代码

高

For Each sh In Worksheets
  sh.Select

Next
这几句是加的