Question

我的工作遇到了麻烦。这是新工作。

我有一个Excel工作表，其中一栏包含+3000封电子邮件。所有这些电子邮件中都有某种键入错误。

我们制定了大约30条规则（搜索和替换），这些规则可以帮助我们解决输入错误。

可能是：

查找：gnail.com替换为：gmail.com
查找：gmail.co替换为：gmail.com
查找：autlook.com替换为：outlook.com

有什么方法可以设置这些规则，以便Excel自动运行所有30个搜索并替换？

Answer 1

修改并尝试：

Option Explicit

Sub Insert()

    Dim LastRow As Long, i As Long
    Dim str As String

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            str = .Range("A" & i).Value

            If InStr(1, str, "gnail.com") <> 0 Then
                .Range("A" & i).Replace What:="gnail.com", Replacement:="gmail.com"
            ElseIf InStr(1, str, "gmail.co") <> 0 Then
                .Range("A" & i).Replace What:="gmail.co", Replacement:="gmail.com"
            ElseIf InStr(1, str, "autlook.com") <> 0 Then
                .Range("A" & i).Replace What:="autlook.com", Replacement:="outlook.com"
            End If

        Next i

    End With

End Sub

运行多个“搜索并替换”

1 个答案: