Vba 尝试从一列中选择一个单元格区域，并将其粘贴到另一列中最后填充的单元格下方

你好，我正在尝试合并两张纸。我需要将一个范围从一列复制到另一张工作表上某列的下一个空单元格。我在互联网上找到了大约五种方法，但迄今为止，它们都不起作用，尽管这似乎应该是一种简单的操作。我有下面的代码给出

范围类的复制方法失败

任何帮助都将不胜感激

Sub gMerge()
Dim ssaw As Worksheet
Dim trckr As Worksheet
Set ssaw = Sheets("SSAW_DATA")
Set trckr = Sheets("SQL_DATA_FEED")

'ssaw.Range("G2", Selection.end(xlDown)).Copy Destination:=ssaw.Range("H2")

ssaw.Range("C2", Selection.end(xlDown)).Copy Destination:=trckr.Range("B2").end(xlDown).Row + 1

End Sub

---

射程+1将向你投掷

尝试定义目标之外的最后一行，以便粘贴到已知单元格位置，例如：

dim lr as long, lr2 as Long
With Sheets("SQL_DATA_FEED")
    lr = .cells(.rows.count,2).end(xlup).row
    lr2 = ssaw.cells(ssaw.rows.count,3).end(xlup).row
    ssaw.Range(ssaw.cells(2,"C"),ssaw.cells(lr2,"C")).Copy Destination:=.cells(lr+1,2)
End With

---

射程+1将向你投掷

尝试定义目标之外的最后一行，以便粘贴到已知单元格位置，例如：

dim lr as long, lr2 as Long
With Sheets("SQL_DATA_FEED")
    lr = .cells(.rows.count,2).end(xlup).row
    lr2 = ssaw.cells(ssaw.rows.count,3).end(xlup).row
    ssaw.Range(ssaw.cells(2,"C"),ssaw.cells(lr2,"C")).Copy Destination:=.cells(lr+1,2)
End With

---

如果B3中没有内容，则尝试将所选内容粘贴到工作表的最后一行。从工作表的底部开始使用（xlUp）。列

B

已填充

B1:B362

，它有一个标题。我尝试将

trckr.Range（“B2”）

切换为简单的

（“B”）

切换为无效刚刚测试的

（xlUp）

给出了相同的错误

ssaw.Range（“C2”，ssaw.cells（rows.count，3）。end（xlUp））。复制目标：=trckr.cells（rows.count，2）。end（xlUp）.Row+1

您正在代码中使用

选择

，但您没有选择任何内容。无论如何，我不会使用

选择。尝试使用
单元格
或
范围
如果B3中没有任何内容，将尝试将所选内容粘贴到工作表的最后一行。从工作表的底部开始使用（xlUp）。列
B
已填充
B1:B362
，它有一个标题。我尝试将
trckr.Range（“B2”）
切换为简单的
（“B”）
切换为无效刚刚测试的
（xlUp）
给出了相同的错误
ssaw.Range（“C2”，ssaw.cells（rows.count，3）。end（xlUp））。复制目标：=trckr.cells（rows.count，2）。end（xlUp）.Row+1
您正在代码中使用
选择
，但您没有选择任何内容。无论如何，我不会使用
选择。尝试使用
单元格
或
范围
至少是另一条错误消息，对象“工作表”的
方法“范围”失败
，即使这些只是带有字符的bog标准列。@Rhyfelwr立即尝试；我将使用trckr的更改为实际的工作表名称。同样的错误，这慢慢让我发疯哈哈，我已经用头撞墙大约3个小时了。@Rhyfelwr现在看看。。。您使用了范围（“C2”，单元格…），这是不合适的语法。你需要“C2:C”和findlastrow才能正确。。。我将它改为使用.Cells（）结构是的，这一个成功了。我会坚持这个解决方案，谢谢！至少这是另一个错误消息，对象“工作表”的方法“范围”失败了，即使这些只是带有字符的bog标准列。@Rhyfelwr现在再试一次；我将使用trckr的更改为实际的工作表名称。同样的错误，这慢慢让我发疯哈哈，我已经用头撞墙大约3个小时了。@Rhyfelwr现在看看。。。您使用了范围（“C2”，单元格…），这是不合适的语法。你需要“C2:C”和findlastrow才能正确。。。我将它改为使用.Cells（）结构是的，这一个成功了。我会坚持这个解决方案，谢谢！