对象需要错误，复制粘贴循环

Question

我正在尝试将范围从一个 sheet 复制到另一个，但无法在没有错误（需要对象）的情况下将代码获取到运行。有人可以纠正我出错的地方吗？

另外我需要这个代码来重复这个过程20次；我希望此列表中的每个值都有 20 个重复项。我应该只循环运行这段代码 20 次吗？还是有更快的方法来做到这一点？

谢谢。

Sub Update_FSKU()

'Range of list in Final Good Tab
Dim TrowFG As Integer
Dim BrowFG As Integer

'Range of Existing List in Final Tab
Dim TrowF As Integer
Dim BrowF As Integer

'Application.ScreenUpdating = False
BrowF = (ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row) + 1
Worksheets("Finished Good").Activate
TrowFG = 2
BrowFG = (ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row) + 1

Range("A2:" & "B" & BrowFG).Copy

Sheets("Final").Activate.Range("A" & BrowF).PasteSpecial

End Sub

Answer 1

Activate 没有 return 值，因此您不能将 .Range() 链接到它上面。

尝试：

Sheets("Final").Range("A" & BrowF).PasteSpecial

对象需要错误，复制粘贴循环

Object required error, copy paste loop

vba

copy-paste