将数据从一个excel工作簿复制到另一个工作簿[重复]

Question

COL A   COL B
app     yes
conf    pass
gif     no
pic     fail
bit     yes
map     yes
conf    yes
bit     no

COL C
app
conf
gif
pic
gif
pic
bit
gif

所以在COL D中，我必须只粘贴COL A和COL C相等的值，如果这些值不相等，则跳过或粘贴COL D中的任何东西

我写过类似这样的代码，但不幸的是它粘贴了一切！！

Sub Copy_range()
Dim x As Workbook
Dim y As Workbook
Dim rng As Range
Dim c As Range
Dim i As Long

Set x = ActiveWorkbook
Set y = Workbooks.Open(x.Sheets(1).Range("G1"))

Set rng = x.Sheets(1).Range("A1:A8")
Set c = y.Sheets(1).Range("C1:C8")

  For i = 1 To i + 1


 If x.Sheets(1).Range("A1:A8").End(xlUp).Row = y.Sheets(1).Range("C1:C8").End(xlUp).Row Then

 x.Sheets(1).Range("B1:B8").Copy
 y.Sheets(1).Range("D1:D8").PasteSpecial

 y.Close
 End If
Next

End Sub

Answer 1

看起来你想从一个范围看到另一个范围？如果是这样，您可以使用如下所示的方法来对照A和B列中的主值查找C列中的每个值：

Sub LookupRange()
    On Error Resume Next
    For i = 1 To 8
        ActiveSheet.Range("D" & i) = _
            Application.WorksheetFunction.VLookup( _
                ActiveSheet.Range("C" & i), _
                ActiveSheet.Range("A1:B8"), _
                2, _
                False)
    Next i
End Sub

它将遍历单元格C1.……C8，并查找单元格A1.……A8中的每个值。如果找到匹配项，则它将把相应的值复制到列d。

对于上面的示例，您将得到：