I
icezs
Unregistered / Unconfirmed
GUEST, unregistred user!
下面的宏语句中的Rows([i:i+2]).Select出错,请大家指点,在线等待.
Do
Rows(i).Select
Selection.Insert Shift:=xlDown
Rows([i:i+2]).Select
Application.CutCopyMode = False
Selection.Copy
i = i + 4
j = j + 3
If i > j Then Exit Do
Loop
Do
Rows(i).Select
Selection.Insert Shift:=xlDown
Rows([i:i+2]).Select
Application.CutCopyMode = False
Selection.Copy
i = i + 4
j = j + 3
If i > j Then Exit Do
Loop