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

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

2025-03-13 12:43:00

推荐回答（3个）

回答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

回答2：

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

回答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