我会将您的文本文件的内容复制到excel文件中的新工作表中，并将该工作表命名为“ Lookup”。然后使用文本列，以获取该新表的前两列中从第一行开始的数据。
将以下代码粘贴到Excel中的模块中并运行它：
Sub Replacer() Dim w1 As Worksheet Dim w2 As Worksheet 'The sheet with the words from the text file: Set w1 = ThisWorkbook.Sheets("Lookup") 'The sheet with all of the data: Set w2 = ThisWorkbook.Sheets("Data") For i = 1 To w1.Range("A1").CurrentRegion.Rows.Count w2.Cells.Replace What:=w1.Cells(i, 1), Replacement:=w1.Cells(i, 2), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next iEnd Sub
