Vba 断开的宏--查找最后一行并添加数据

我离得很近，但这还不太管用

这里怎么了

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 '

---

我猜您的意思是，您在尝试使用

PasteSpecial

行时出错

建议尽量避免使用

Select

、

Selection

和

ActiveSheet

，而应使用完全限定的

工作表和
范围

“简化”代码

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

我猜您的意思是，您在尝试使用
PasteSpecial
行时出错

建议尽量避免使用
Select
、
Selection
和
ActiveSheet
，而应使用完全限定的
工作表和
范围

“简化”代码

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

如果你告诉我们会更容易些。您收到了什么错误消息？错误发生在哪一行？有什么不符合你的预期？如果你告诉我们会更容易。您收到了什么错误消息？错误发生在哪一行？什么东西没有你想象的那么有效？非常感谢@Shai_Rado。我投了更高的票，但我的声誉太低，无法注册。非常感谢你的帮助！非常感谢@Shai_Rado。我投了更高的票，但我的声誉太低，无法注册。非常感谢你的帮助！