复制和粘贴表VBA

Question

我在excel中创建了一个表（范围A6：QD16）。我在创建宏时会遇到麻烦，该宏将复制该表并将其粘贴到最后一行下面的2行中。我想添加一个按钮。我可以使用记录宏一次复制该表，但是随后出现了一个问题，因为我不知道如何使过程重复进行。

Dim LR As Long
'LR = Last Row
With ActiveSheet
    LR = .Cells(.Rows.Count, "K").End(xlUp).Row
End With
MsgBox ("New table will be created in row: " & LR + 2 & vbNewLine & _
"Please wait...")

Answer 1

如果您只想复制和粘贴数据块，为什么不使用像这样的简单内容：

Sub CopyPasteDataBlock()

ThisWorkbook.Sheets("Sheet1").Range("A6:QD16").Copy
ThisWorkbook.Sheets("Sheet1").Range("A18").PasteSpecial Paste:=xlPasteValues

End Sub

要添加执行代码的按钮，请按照以下步骤操作：

1]选择一个按钮

2]添加按钮。右键单击它，然后选择Assign Macro并将其映射到函数CopyPasteTable