vba - 试图从一张纸上复制一个范围并将其粘贴到另一张纸上一列中的下一个空单元格

Question

我正在尝试从一张表中复制一个范围 ("H2:H200")或者可以是Range("H2").End(xlDown) (这些都不起作用)并将其粘贴到另一个单元格上的下一个空单元格。 (基本上将两列放在一起)。我有以下代码，但出现“工作表对象失败”错误。我究竟做错了什么？

Sub Mergescript()
Dim ssaw_p As Worksheet
Dim oqs As Worksheet

Set ssaw_p = Sheets("SSAW_EXPORT")
Set oqs = Sheets("SQL_IMPORT")

ssaw_p.Range("H2:H200").Copy Destination:=oqs.Range("G").End(xlDown).Offset(1, 0)

End Sub

Answer 1

oqs.range，不正确试试这个:

ssaw_p.Range("H2:H200").Copy Destination:=oqs.Range("G1").End(xlDown).Offset(1, 0)

这将在 G 列中的第一个空单元格之后复制您的 ssaw 范围