是否可以编写一个excel宏来查找和替换中的大量文本字符串，这些字符串只能在具有特定标题的列中找到？

Sub FindAndReplace()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要查找和替换的文本
    Dim searchText As String
    Dim replaceText As String
    searchText = "要查找的文本"
    replaceText = "要替换的文本"
    
    ' 设置要查找和替换的列标题
    Dim columnTitle As String
    columnTitle = "列标题"
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 查找指定标题的列
        Set rng = ws.Rows(1).Find(columnTitle, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到了列标题
        If Not rng Is Nothing Then
            ' 循环遍历该列中的每个单元格
            For Each cell In ws.Range(rng.Offset(1), ws.Cells(ws.Rows.Count, rng.Column).End(xlUp))
                ' 判断单元格的值是否包含要查找的文本
                If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
                    ' 替换文本
                    cell.Value = Replace(cell.Value, searchText, replaceText, , , vbTextCompare)
                End If
            Next cell
        End If
    Next ws
End Sub