比较2表格数据（宏）

Question

我想从工作簿中获取2张工作表并比较2个不同列数据的宏。

1. 查找“价格差异” D2一些：D999999并尝试将其匹配到“财经所有” E2：E999999

2. 如果它们匹配，然后从“财经采取相应的数据全部'！G2：G999999并将其粘贴到'价格差异'对应的行中！U2：U999999。

澄清

我想看看在“价格差异”的单元格的值，列“d”，行“2”，然后再看是否有匹配在“财经全部”列'E'（查看整个列以查找匹配）。

如果有，我想从'Finance All'，'G'列到'Price Variances'，列'U'，行'2'（这是同一行我们正在寻找匹配的原始单元格）。

这需要在'Price Variances'，'D'列后面的每一行处理。

下面是我迄今为止 - 请调整&正确是必要的。

Sub Price_Variation_Finance_Match() 
    Dim CompareRange As Variant, x As Variant, y As Variant 
    ' Set CompareRange equal to the range to which you will 
    ' compare the selection. 
    Set CompareRange = Range("'Finance All'!E2:E999999") 
    ' NOTE: If the compare range is located on another workbook 
    ' or worksheet, use the following syntax. 
    ' Set CompareRange = Workbooks("Daily Pricing (5)"). _  
    ' Worksheets("Price Variances", "Finance All").Range("E2:E999999") 
' Loop through each cell in the selection and compare it to 
' each cell in CompareRange. 
For Each x In Selection 
    For Each y In CompareRange 
     If x = y Then x.Offset(0, 17) = x 
    Next y 
Next x 

末次
我相信我的问题在 “如果x = y，则x.Offset（0,17）= X”
在于在过去的 'x'

下面是原始宏

Sub Find_Matches() 
Dim CompareRange As Variant, x As Variant, y As Variant 
' Set CompareRange equal to the range to which you will 
' compare the selection. 
Set CompareRange = Range("C1:C5") 
' NOTE: If the compare range is located on another workbook 
' or worksheet, use the following syntax. 
' Set CompareRange = Workbooks("Book2"). _ 
' Worksheets("Sheet2").Range("C1:C5") 
' 
' Loop through each cell in the selection and compare it to 
' each cell in CompareRange. 
For Each x In Selection 
    For Each y In CompareRange 
     If x = y Then x.Offset(0, 1) = x 
    Next y 
Next x 
End Sub 

Answer 1

您的If语句将返回x的原始值。相反，我想你会想要

If x = y Then x.Offset(0, 17) = y.Offset(0, 2) 

这给你找到的值列在查找右侧的y列两列。

请注意，此宏非常慢，因为它正在循环y中的每个单元格，即使它已经找到匹配。如果你想找到的第一个，那么我建议你chaning For循环

For Each x In Selection 
    For Each y In CompareRange 
     If x = y Then 
      x.Offset(0, 17) = y.Offset(0, 2) 
      Exit For 
     End If 
    Next y 
Next x 

或者更好的是，只使用VLOOKUP，它会为你做很好此整体功能。