我一直在寻找几个相关的问题,似乎无法为我的工作簿找到一个有效的解决方案 . 我正在尝试创建一个“添加新部分”宏/按钮,它将复制一系列数据并将其粘贴到活动工作表的最后一行 .
我目前的代码如下:
Sub EnterClientSection()
'
' EnterClient Section Macro
'
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Zdata")
Set pasteSheet = ActiveSheet
copySheet.Range("A70:G81").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
“
当我运行宏时,它只是选择当前工作表上的最后一行,但似乎没有复制或粘贴任何东西 .
“Zdata”是我想要复制的单元格范围的存储位置 .
谢谢你这个:)