破碎的macros – 查找最后一行并添加数据

我太亲密了，但是这还不行。

这里有什么问题？

Sub DUMMY_ITEMS() ' ' DUMMY_ITEMS Macro Sheets("Operations").Select Range("H2:V73").Select Selection.Copy Sheets("Raw Data").Select Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ' 

Answer 1

我想你的意思是你尝试使用PasteSpecial行时出错。

作为build议，尽量避免使用Select ， Selection和ActiveSheet ，而应使用完全限定的Worksheets和Range 。

“减less”的代码

 Sub DUMMY_ITEMS() ' ' DUMMY_ITEMS Macro Dim LastRow As Long Sheets("Operations").Range("H2:V73").Copy With Sheets("Raw Data") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A" & LastRow + 1).PasteSpecial xlPasteValues End With End Sub