EXCEL如何用宏选择性复制黏贴表格

2024-11-28 11:36:41
推荐回答(1个)
回答(1):

Sub 选择性粘贴()
Dim I%, K%
I = Range("A65536").End(xlUp).Row
K = Range("举笑AW65536").End(xlUp).Row
Cells(I, "i"正兆含).Select
Selection.copy
Cells(K + 1, "AW").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(I, "U").Select
Selection.copy
Cells(K + 1, "AX").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(I, "AG").Select
Selection.copy
Cells(K + 1, "AY").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
依次粘猜基贴到AW ,AX,AY列后面