Vba 如果单元格值等于，则复制行，然后用新行粘贴

如果表中包含单词

SAVE\u 01

，我有一个代码可以复制表中的一行。然后将复制的行粘贴到工作表

SAVE_03

中，但用关键字

SAVE_01

标识的每一新行不会在前一行之后开始

检测到新行并将其覆盖

您知道如何检测最后一条空行并将新的空行放在后面吗

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "SAVE_01" Then Target.EntireRow.Copy _
        Destination:=Sheets("SAVE_03").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

我试着这样做：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "SAVE_01" Then Target.EntireRow.Copy _
Destination:=Sheets("SAVE_03").Range("A" & Rows.Count).End(xlUp).Offset(1)

Dim lastrow As Long
lastrow = Worksheets("SAVE_03").Cells(Rows.Count, "A").End(xlUp).Row + 1
Worksheets("SAVE_03").Cells(lastrow, "A").Value = "*"

End Sub

---

它可以工作，但不干净，我必须用“*”来检测角色。其他担心如果我在几行上有一个共享单元格，它会在副本中给我一个空单元格

您将最后一行基于a列，因此请检查复制行的a列中是否有内容。如果没有，它将覆盖。您的问题不清楚。如果你能举例说明你所拥有的以及完成后想要拥有的东西，也许会有所帮助。此外，您是否查看了现有的问题/答案？有许多类似的问题，答案如下：我猜你的意思是“第一个空行”（不是最后一个）。是的，这是第一个空行^^^我只是希望每次在我的工作表1中检测到“SAVE_01”一词时，该行会自动复制/粘贴到我的工作表3中，以继续（而不破坏前面的内容）尝试限定Rows.Count，即（sheet（x）.Rows.Count），否则它将假定您正在引用活动的sheet行。