从 Sheet1 中读取 CustomerID，在 Sheet 2 上找到 CustomerID，将 CustomerName 复制/粘贴到 Sheet1

Question

我对 excel 还很陌生，所以请多多包涵。

在我的工作簿的 Sheet1 上，我有诸如 CostumerID、CostumerName、Email 等数据分布在 A-G 列中。 CostumerID 填充了 ID，而 CostumerName 为空。

在我的工作簿的 Sheet2 上，我有 2 列（A 和 B）。 A 列包含 CustomerID，B 列包含该 CustomerID 的正确 CustomerName。

我的问题是：

我需要一个宏，它可以转到 Sheet1，读取 A 列中的 CustomerID，然后转到 Sheet2，在 A 列中找到 CustomerID，在 B 列中获取 CustomerName，然后将该名称粘贴到 Sheet1 中单元格旁边的 B 列它从中获得了第一个 CustomerID。

进一步阐述：

第 1 步：获取工作表 1 上 A 列中单元格的值

第 2 步：转到 Sheet2，在 A 列中找到该值，然后从同一行复制 CustomerName。

第 3 步：将该 CostumerName 粘贴到与 Sheet1 上 A 列的原始值相同的行的 B 列中。

Sheet1 可以有 100-6000 行，它需要检查 Sheet1 中 A 列中的所有 CustomerID 并找到对应的 CustomerName。 Sheet1的A列可以有重复，但D、F、G列的值都是唯一的。

通常我会介绍我如何做到这一点的尝试，但我不知道如何做到这一点。

有人有想法吗？

任何帮助将不胜感激！

Answer 1

" Mark Wickett " 正确地指出了这一点。 但是如果你还想去 vba 的话，那就是这里。

说这是你第一张工作表的截图

这是你第二张纸的截图

这是代码

Dim rngCust As Range
Dim rNo As Long
Dim strCust As String
Dim rngSearch As Range
Dim rngFound As Range
Dim intFound As Long

Application.ScreenUpdating = False

Set rngCust = Sheets(1).Range(Cells(2, 1), Cells(2, 1).End(xlDown))
    For Each cell In rngCust.Cells
        rNo = cell.Row
        strCust = Cells(rNo, 1).Value
        Sheets(2).Select
            Set rngSearch = Sheets(2).Range(Cells(2, 1), Cells(2, 1).End(xlDown))
            Set rngFound = rngSearch.Find(What:=strCust, Lookat:=xlWhole, _
                           SearchOrder:=xlByRows, searchdirection:=xlNext, _
                           MatchCase:=False)
            If Not rngFound Is Nothing Then
                intFound = rngFound.Row
            End If
        Sheets(1).Select
        Sheets(1).Cells(rNo, 2).Value = Sheets(2).Cells(intFound, 2).Value

    Next
    Application.ScreenUpdating = True

这是输出