将内容复制并粘贴到

时间:2018-04-10 11:44:11

标签: excel vba excel-vba

我一直试图解决这个问题。我在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

1 个答案:

答案 0 :(得分:3)

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

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

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

相反,从底部开始工作。

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