Excel 2010宏以比较两列以查找匹配的值

Question

我对Excel宏和VBA非常陌生， 请在遇到以下情况时帮助我。 在这种情况下，我在工作表1中有两张工作表（工作表1和工作表2），其中有两列名称和编号，在工作表2中我还有其他信息（如日期，费用等）以及编号。

工作表1

姓名电话号码

1鲍勃7254

2克里斯汀5468

3卢拉1234

工作表2

没有电话号码收费日期名称

1 1145 2014年12月30日2 $

2 7254 2014年11月26日3 $

3 2365 3/9/2014 7 $

4 5468 3/10/2014

5 1234 2014年3月11日

我想要的是将sheet2的PhoneNumber列（B列）与sheet1的PhoneNumber列（C列）进行比较，如果找到匹配项，则将Sheet1的Name（B列）复制到Sheet2的Name列（E列）中。 如果不匹配，则sheet2中的名称列必须为空白。

我已经搜索并找到以下代码并进行了一些修改，但是我不确定它是否正确：

    Sub test()

    Dim rng1 As Range, rng2 As Range, i As Integer, j As Integer
        For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
            Set rng1 = Sheets("Sheet2").Range("B" & i)
            For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
                Set rng2 = Sheets("Sheet1").Range("C" & j)
                If rng1.Value = rng2.Value Then
                    Range("B2:B" & TotalRows).Copy Destination:=Sheets("Sheet2").Range("E2")
                End If

            Set rng2 = Nothing
        Next j
        Set rng1 = Nothing
    Next i
End Sub

请帮助我，因为我这个项目的时间很短，对于您在这方面的帮助，我将深表感谢。

Answer 1

看来您快要到了。 但是，您的复制行需要一些调整。 在下面的示例中，我添加了一个名为rngName的附加变量，用于存储要复制的名称的范围，并在for j循环中为其分配值。 如果数字匹配（即rng1.value = rng2.value），它将包含名称的范围复制到工作表2中的关联行。请注意，我将.Range（“ E”＆i）用于复制到范围。 在您的示例中，“复制到”范围始终将名称与始终分配给“ E2”的单元格放在同一单元格中。 另外，您有一个名为TotalRows的变量，没有任何值。 它一定是在您从中复制原始代码中的某些含义，因此我也摆脱了它。 试试这个，让我知道它如何为您服务。

Sub test()
 Dim rng1 As Range, rng2 As Range, rngName As Range, i As Integer, j As Integer
    For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
        Set rng1 = Sheets("Sheet2").Range("B" & i)
        For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
            Set rng2 = Sheets("Sheet1").Range("C" & j)
            Set rngName = Sheets("Sheet1").Range("B" & j)
            If rng1.Value = rng2.Value Then
                rngName.Copy Destination:=Worksheets("Sheet2").Range("E" & i)
            End If

        Set rng2 = Nothing
    Next j
    Set rng1 = Nothing
 Next i
End Sub