电子表格有这样的数据:
ABCDE 2 20120425 09:55:00 101 99 102 100.50 3 20120425 09:55:00 101 102 98 101.50
我想在同一张纸上这样做:
H 2 101 3 99 4 102 5 100.50
复制范围 B2:E2 然后选择 H2 并粘贴特殊(它将粘贴在 H2、H3、H4、H5 上)。然后重复 B3 的任务:E3 复制范围并将特殊粘贴到 H6 上。
我记录了宏,但任务必须在近 5000 行上重复。
记录代码
Sub Macro9()
'
' Macro9 Macro
'
'
Range("D1:G1").Select
Selection.Copy
Range("L1:L4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D2:G2").Select
Selection.Copy
Range("L5:L8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub