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

Question

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

Answer 1

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

可不可以帮我把上面的代码插到你的代码里面去呀?让我直接复制到表里面去.因为我试了不行

追答

你把全部的代码贴上来
因为其中一些变量需要结合到代码里

追问

全部都在上面了,没有其它的了,你可以试试看,这个宏的作用是隔行插入.

追答

Sub aaa()
Dim sh As Worksheet, i&
For Each sh In ActiveWorkbook.Worksheets
With sh
.Activate
For i = 100 To 1 Step -1
.Rows(i).Insert Shift:=xlDown
Next i
End With
Next
MsgBox "ok"
End Sub