如果条件匹配，excel vba从另一张表中复制/粘贴数据答案

【问题标题】：excel vba to copy/paste data fron another sheet if conditions match如果条件匹配，excel vba从另一张表中复制/粘贴数据
【发布时间】：2016-06-28 14:18:25
【问题描述】：

Sheet saskaita faktura Sheet darbinis

希望在这里寻求帮助。无法使用条件将数据从一张表获取到另一张表。我的问题：我将使用示例：如果 sheet1 单元格 d22 = sheet2 列 B 单元格 3(4;5;6;..)，则 sheet1 单元格 P3 数据复制并粘贴到 sheet2 列 C 单元格 3(4;5;6;..)

如果我点击按钮应该会发生这种情况。

提前谢谢你。大流士

添加代码：

Sub bandymas()

If Sheets("Sàskaita-Faktûra").Range("d22") = Sheets("Darbinis").Range("D:D") Then
Sheets("Sàskaita-Faktûra").Range("P3").Copy
Sheets("Darbinis").Range ("O:O")
PasteSpecial Paste:=xlPaste, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If

End Sub

【问题讨论】：

你可以格式化你的代码：选择然后 ctrl +k
现在我手动将数据和简单的 if 语句公式粘贴到所有符合条件的单元格中，宏我是该领域的新手。
好的，你需要测试单元格：cells(y,x)= 或 range("D22") = ，然后你需要一个循环：对于 range("A1:A20") 中的每个 c如果范围等。
请将您的 VBA 代码发布到您正在尝试的地方，以便我们帮助修复它。
@Rodger，代码已添加到问题中。感谢您的回复。

标签： excel vba

【解决方案1】：

我找到了解决办法，代码看起来：

Private Sub CommandButton2_Click()

Range("P3").Select
    Selection.Copy
    Range("P5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

lastrow = Sheets("Darbinis").Cells(Sheets("Darbinis").Rows.Count, "D").End(xlUp).Row
Dim i
i = 0
For Each c In Sheets("Darbinis").Range("D1:D" & lastrow)
    i = i + 1
        If Sheets("Sàskaita-Faktûra").Range("d22") = c Then
       Sheets("Darbinis").Range("O" & i) = Sheets("Sàskaita-Faktûra").Range("P5").Value
    End If
Next
End Sub

然后它按预期工作。

【讨论】：

【解决方案2】：

P是源，o是目的地，可以调整

Sub bandymas()
LastRow = Sheets("Darbinis").Cells(Sheets("Darbinis").Rows.Count, "D").End(xlUp).Row
dim i 
i=0
for each c in Sheets("Darbinis").Range("D1:D" & lastRow)
    i=i+1
    If Sheets("Sàskaita-Faktûra").Range("d22") = c Then
       Sheets("Darbinis").Range("O" & i) = Sheets("Sàskaita-Faktûra").Range("P3").value  
    endif
next
End Sub

【讨论】：

给我一些细节，我会修复上面的功能
有些问题："dim i =0"它是红色的。我如何发送示例工作簿？我要找的东西会更明显。
可以添加图片，来源目的地
有些什么都没有发生..我如何添加示例图片？
编辑您的问题并添加 2 张图片，第一个 xlsx 源和第二个 xlsx 目标。回答应该够了。