Vba 如何使用宏将整行从一个具有特定值的工作表复制到另一个工作表（在不同工作簿中）

作为宏领域的初学者，我需要建议如何将一整行（如果列R的值为YES）从图纸数据库复制/粘贴到图纸2中的下一个可用空行

---

另外，Sheet2是另一个文件/工作簿，位于位置C:\Users\Desktop\KPI

示例假定要粘贴到的工作簿已打开

如果R1为“是”，则会将目标工作簿中的第3行复制到第3行

Sub CopyRow()
    Dim copyRng As Range

    If Worksheets("Database").Range("R1") = "YES" Then
        Worksheets("Database").Range("A3").EntireRow.Copy Destination:=Workbooks("Target").Worksheets("Sheet1").Range("A3") 
    End If
End Sub

---

列R中的哪个单元格=是？开始的一种方法是启动宏记录器，执行操作，然后停止记录器并检查自动生成的代码。它可以是R列中的任何单元格。建议对理解宏有很大帮助。这没有帮助：告诉我您是否需要更多说明？正如我所提到的，R列中超过一个的任何单元格都可以=是