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

Question

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

另外我需要这段代码重复这个过程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

激活不会返回值，因此您无法将.Range()链接到其上。

尝试：

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