如何用另一工作表中的查找信息替换数据工作表中的索引号？

Question

我的数据工作表（“SH1”）在C列中显示带有索引号的信息。
例如1、2、3、4。

我有另一个工作表（“SH2”）来标识每个数字的含义。
例如
单元A1:1
单元B1:制造

这就是我所拥有的

'Add information in data form
   Application.ScreenUpdating = False
   
   Dim NextRow As Long, Lastrow As Long
   
   Lastrow = Sheets("CustomerMaster").Range("C" & Rows.Count).End(xlUp).Row
   
   NextRow = Lastrow + 1
   
   'If formValidation = True Then

        Sheets("CustomerMaster").Cells(NextRow, 1) = Sheets("Customer Master Data Entry").TextID
        Sheets("CustomerMaster").Cells(NextRow, 2) = Sheets("Customer Master Data Entry").TextCompany
        Sheets("CustomerMaster").Cells(NextRow, 3) = Sheets("Customer Master Data Entry").DropDowns("Drop Down 8").Value
        Sheets("CustomerMaster").Cells(NextRow, 4) = Sheets("Customer Master Data Entry").TextRevenue
        Sheets("CustomerMaster").Cells(NextRow, 5) = Sheets("Customer Master Data Entry").TextAddress
        Sheets("CustomerMaster").Cells(NextRow, 6) = DropDowns("Drop Down 11").Value
        Sheets("CustomerMaster").Cells(NextRow, 7) = Sheets("Customer Master Data Entry").TextInitialCust
        Sheets("CustomerMaster").Cells(NextRow, 8) = Sheets("Customer Master Data Entry").TextSource
        Sheets("CustomerMaster").Cells(NextRow, 9) = Sheets("Customer Master Data Entry").TextEntered
        Sheets("CustomerMaster").Cells(NextRow, 10) = DropDowns("Drop Down 21").Value
        Sheets("CustomerMaster").Cells(NextRow, 11) = Sheets("Customer Master Data Entry").TextRemarkCust

Answer 1

我认为双循环应该有效，请尝试以下方法：）

Option Explicit
Sub trial()

'worksheets variables
Dim wsh1 As Worksheet: Set wsh1 = ThisWorkbook.Sheets(1)
Dim wsh2 As Worksheet: Set wsh2 = ThisWorkbook.Sheets(2)

Dim lastRow1 As Long
lastRow1 = wsh1.Range("C" & wsh1.Rows.Count).End(xlUp).Row
Dim lastRow2 As Long
lastRow2 = wsh2.Range("A" & wsh2.Rows.Count).End(xlUp).Row

'Loop wsh1
Dim i As Long
For i = 1 To lastRow1
    Dim j As Long
    'Loop wsh2
    For j = 1 To lastRow2
        If wsh1.Cells(i, 3).Value = wsh2.Cells(j, 1).Value Then
            wsh1.Cells(i, 3).Value = wsh2.Cells(j, 2).Value
            Exit For
        End If
    Next j
Next i

End Sub