Question

我一直试图解决这个问题。我在StackOverflow上找到了答案，但在尝试使用它时出现了对象错误。我想根据条件从工作表中复制一组数据，然后将其粘贴到另一个工作表的列中的下一个空单元格中。这是我的代码：

Public list As Worksheet
Public bsawt As Worksheet

Sub Check2()
Set bsawt = Sheets("BSAW_TABLE")
Set list = Sheets("LIST")

lastrow = list.Cells(Rows.Count, "K").End(xlUp).Row
For x = 13 To lastrow

If list.Range("K" & x).Value = "BSAW" Then list.Range("L" & x).Copy Destination:=bsawt.Range("A1").End(xlDown).Offset(1, 0)
Next x

End Sub

Answer 1

如果A列中没有任何内容，或者只有A1中的条目，则复制到此目的地

Destination:=bsawt.Range("A1").End(xlDown).Offset(1, 0)

相当于转到工作表中A列的最后一个单元格，然后尝试再往下一行，这显然是不可能的。另见@ PEH的评论。

相反，从底部开始工作。

Destination:=bsawt.Range("A" & rows.count).End(xlup).Offset(1, 0)

将内容复制并粘贴到

1 个答案: