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

Question

作为宏领域的初学者，如果列R具有值“”是“，从表”数据库“到sheet2中的下一个可用空白行，我需要建议如何复制/粘贴整行。

另外，Sheet2是位置"C:\Users\Desktop\KPIs"

的另一个文件/工作簿

Answer 1

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

如果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