[已解决]每个sheet依次运行同一代码

excelpxfans001

如何自动每个sheet依次运行同一代码。不用一个一个操作一次。

最佳答案

月排行榜 / 总排行榜

02761752696

2016-6-8 12:09

1. Sub xxtt()
   
2. For i = 1 To Sheets.Count
   
3. Sheets(i).[a1] = 0
   
4. Next
   
5. End Sub
   

复制代码

这样一次将所有工作表的A1复制  0

跳转到最佳答案楼层

02761752696

1. Sub xxtt()
   
2. For i = 1 To Sheets.Count
   
3. Sheets(i).[a1] = 0
   
4. Next
   
5. End Sub
   

复制代码

这样一次将所有工作表的A1复制  0

七彩屋

1. Sub xxtt()
   
2. For i = 1 To Sheets.Count
   
3. Sheets(i).[a1] = 0
   
4. Next
   
5. End Sub

复制代码

excelpxfans001

七彩屋 发表于 2016-6-8 12:09

当代码是非常复杂的。不是简单的填入0.代码如何实现的？

excelpxfans001

02761752696 发表于 2016-6-8 12:09
这样一次将所有工作表的A1复制  0

当代码是非常复杂的。不是简单的填入0.代码如何实现的？

02761752696

excelpxfans001 发表于 2016-6-8 12:28
当代码是非常复杂的。不是简单的填入0.代码如何实现的？

将  Sheets(i).[a1] = 0  替换成你的非常复杂的代码就行，当让具体有可能出现新问题