|
这是逐个的复制的:从A2,A3,A4,,,,复制到A20
Sub t()
Dim rg As Integer
For rg = 2 To 20
Range("a" & rg + 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next rg
End Sub
逐行的怎么整都是错误,只好求助啦
Sub aa()
Dim rg As Integer
For rg = 2 To 20
Rows(rg + 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next rg
End Sub
|
|