如何在Excel中创建替换功能只运行在另一个Excel工作簿中第一次出现的单词？

Question

I want to run through replacement words in one worksheet and replace the first occurrence of those words in another workbook. Column A gives a word and Column B gives a value used to replace occurrences of words in Column A.

The code I am using replaces all occurrences of the words in Column A to Column B.

Sub Sample2()
    Dim NameListWB As Workbook, thisWb As Workbook
    Dim NameListWS As Worksheet, thisWs As Worksheet
    Dim i As Long, lRow As Long

    Set thisWb = ThisWorkbook
    Set thisWs = thisWb.Sheets("Sheet1")

    Set NameListWB = Workbooks.Open("C:document.xlsx")
    Set NameListWS = NameListWB.Worksheets("Sheet2")

    With thisWs
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 1 To lRow
            NameListWS.Columns(1).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(2).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(3).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(4).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(5).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Text, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(6).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(7).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
        For i = 1 To lRow
            NameListWS.Columns(8).Replace What:=.Range("A" & i).Value, _
                                      Replacement:=.Range("B" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      MatchCase:=False
        Next i
    End With
End Sub

Answer 1

Sub Sample2()
    Dim NameListWB As Workbook, thisWb As Workbook
    Dim NameListWS As Worksheet, thisWs As Worksheet
    Dim i As Long, lRow As Long, columnNum As Long
    Dim maxColumnToRepalce As Integer
    Dim findRange As Range

    Set thisWb = ThisWorkbook
    Set thisWs = thisWb.Sheets("Sheet1")

    Set NameListWB = Workbooks.Open("C:document.xlsx")
    Set NameListWS = NameListWB.Worksheets("Sheet2")

    maxColumnToRepalce = 8

    With thisWs
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        For columnNum = 1 To maxColumnToRepalce
            For i = 1 To lRow
                Set findRange = NameListWS.Columns(columnNum).Find(What:=.Range("A" & i).Value, _
                                      SearchOrder:=xlByColumns, _
                                      after:=.Cells(Columns(columnNum).Rows.Count, columnNum), _
                                      MatchCase:=False)
                If Not findRange Is Nothing Then
                    findRange.Value = .Range("B" & i)
                End If
            Next i
        Next columnNum
    End With
End Sub

Use Find method to find the first occurrence then do the replacement. By The Way, you can simplify the code by adding another loop.