首页

116问答网 > 怎样让这个宏应用到所有的EXCEL文件中？？？

怎样让这个宏应用到所有的EXCEL文件中？？？

For i = 1 To 100 Rows(i + m & ":" & i + m).Insert Shift:=xlDown m = m + 1 Next i End Sub

2024-11-20 17:17:41

推荐回答（1个）

回答1：

外面套一层for，循环每个工作表，例如：
Sub aaa()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
'操作工作表的代码放到这里
'……
Next
End Sub

相关问答

最新问答

当你面向南面时，你的后面是()，左面是()，右面是()。

长春市到白城市要安检吗？

从上海宝山杨行到安徽省六安市霍邱县长集镇自驾怎么走比较近？？

Email地址的正则表达式

怎么在CAD中插入中文字体

我的八字甲寅年丙寅月辛卯日丙申时生，我自己批了多少次都和我的经历不符，谁能指点看我今年为什么离婚

我是高三党，我很喜欢中国古典文学（诗词），所以想大学学习中国古代文学专业，我很想详细了解一下这个专

我男朋友比我大六岁，父母不同意怎么办

练跳两年身高不变弹跳力强了很多平时有健身引体向上但没做负重训练。

刺客信条大革命，玩一会就闪退为什么求大神解答