Question

请教EXCEL用宏批量隔行复制该怎么弄？我写的宏为什么用不了？

Dim al As String

For i = 1 To 3
al = 1
bl = al + 2
Application.CutCopyMode = False
Rows("al:al").Select
Selection.Copy
Rows("bl:bl").Select
ActiveSheet.Paste
al = al + 2
Next
al本来是放for外面的，主要是无论放外面还是里面都运行不了
请问正确的宏应该如何写呢

Answer 1

至少要把al = 1放在For循环外啊，不然你每次总是复制那两行，呵呵。

=================补充==========================
看看这个是不是合你的意：
Sub test()
Dim al As String

For i = 0 To 2
al = i * 2 + 1
bl = al + 1
Application.CutCopyMode = False
Rows(al).Select
Selection.Copy
Rows(bl).Select
ActiveSheet.Paste
al = al + 2
Next
End Sub

Answer 2

Rows("al:al").Select
这样不行的，在""里面的已经就不是变量，是字符了。

Answer 3

稍微改一下就可以了.

al = 1
For i = 1 To 3

bl = al + 2
Application.CutCopyMode = False
Rows(al).Select
Selection.Copy
Rows(bl).Select
ActiveSheet.Paste
al = al + 2
Next