UC知道请教EXCEL用宏批量隔行复制该怎么弄？我写的宏为什么用不了？
来源：百度知道 编辑：UC知道 时间：2024/05/30 00:22:41
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外面的，主要是无论放外面还是里面都运行不了
请问正确的宏应该如何写呢
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外面的，主要是无论放外面还是里面都运行不了
请问正确的宏应该如何写呢
至少要把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
Rows("al:al").Select
这样不行的，在""里面的已经就不是变量，是字符了。
稍微改一下就可以了.
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