Excel：查找并替换 Excel 工作表的第一行

Question

我想要一个代码来查找和替换 Excel 工作表第一行中的所有单元格。我通过搜索谷歌得到以下代码。

Sub FindReplace()

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Fname", "Lname", "Phone")
rplcList = Array("First Name", "Last Name", "Mobile")

For x = LBound(fndList) To UBound(fndList)
    For Each sht In ActiveWorkbook.Worksheets
        Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _
               LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
               SearchFormat:=False, ReplaceFormat:=False
    Next sht
Next x

End Sub

这很好用。但我们应该在代码本身中提到查找和替换列表。如何使其从用户端获取输入，而不是在代码中手动输入。作为文本或文件输入会很好。

Answer 1

fndList = Split(Application.InputBox("List the values to be searched for in the following format: " & vbCrLf & "val1, val2, val3, ...", Type:=2), ",") '<--| this returns an array of 'String's
rplcList = Split(Application.InputBox("List the values to be replaced in the following format: " & vbCrLf & "val1, val2, val3, ...", Type:=2), ",") '<--| this returns an array of 'String's

For Each sht In ActiveWorkbook.Worksheets
    For x = LBound(fndList) To UBound(fndList)
        sht.Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _
                        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
                        SearchFormat:=False, ReplaceFormat:=False
    Next x
Next sht