根据条件粘贴行答案

【问题标题】：Paste row based on criteria根据条件粘贴行
【发布时间】：2020-10-08 00:10:52
【问题描述】：

我找到了基于标准复制的帖子。在我的情况下，必须根据标准进行粘贴。

我有一个工作簿，里面有两张表格——数据和议程。

在议程表中，我有一行 A3 : Y3 具有特定于某个键值的值。

当我按下更新按钮时，我希望将议程表 (A3 : Y3) 中的数据复制到 C 列中具有键值的数据表中。

我想要实现的是，在表“A”的数据库中，我们将主键作为某个唯一列，并基于此更新/插入表“B”中的数据，其中该唯一列是外键。

我已经能够复制/粘贴到所需的列中，但无法按照标准执行粘贴。

Private Sub CommandButton1_Click()
    
    a = Worksheets("Data").Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 4 To a
        If Worksheets("Sheet4").Cells(i, 3).Value = Worksheets("Agenda").Cells(4, 4).Value Then    
            Sheets("Agenda").Range("A3:Y3").Copy
            Sheets("Data").Range("G4").PasteSpecial Paste:=xlPasteValues
            MsgBox ("Done")
        End If
    Next
    
End Sub

【问题讨论】：

标签： excel vba copy-paste

【解决方案1】：

让它工作。

在代码行 6 中，我将 ("G4") 替换为 ("G" & i)。它产生了预期的结果

【讨论】：