Question

我非常接近，但这还没有完成。

这里有什么问题？

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行时遇到错误。

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

“缩减”代码

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

破碎的宏 - 查找最后一行并添加数据

1 个答案: