Workbuddy+Excel 杂乱数据 VBA 正则清洗

Option Explicit' 批量清洗选中单元格杂乱数据，正则实现Sub RegexCleanDirtyData()    Dim rng As Range, cell As Range    Dim reg As Object    Set reg = CreateObject("VBScript.RegExp") ' 后期绑定，不用手动勾选引用，兼容性更好    reg.Global = True ' 全局全部替换    reg.IgnoreCase = True    If Selection Is Nothing Then        MsgBox "请先选中需要清洗的数据区域！", vbExclamation        Exit Sub    End If    For Each cell In Selection        If Not cell.HasFormula And Not IsEmpty(cell.Value) Then            Dim txt As String            txt = CStr(cell.Value)            '===== 正则清洗规则组，WorkBuddy可按需增删修改 =====            '1.去除全角/半角多余空格、制表符            reg.Pattern = "[ \t]+"            txt = reg.Replace(txt, " ")            '2.清除换行、回车            reg.Pattern = "[\r\n]"            txt = reg.Replace(txt, "")            '3.清除大部分不可见特殊乱码字符            reg.Pattern = "[^\u4e00-\u9fa5a-zA-Z0-9，。、；：,.!?！？()（）\-_ ]"            txt = reg.Replace(txt, "")            '4.首尾去空格            txt = Trim(txt)            '================================================            cell.Value = txt        End If    Next cell    MsgBox "数据清洗完成！", vbInformationEnd Sub'【扩展】正则提取数字，例如提取混杂文本里手机号/编号Sub RegexExtractNumber()    Dim reg As Object, cell As Range    Set reg = CreateObject("VBScript.RegExp")    reg.Global = True    For Each cell In Selection        If Not IsEmpty(cell.Value) Then            reg.Pattern = "\d+" '提取连续数字            Dim matches As Object            Set matches = reg.Execute(cell.Value)            If matches.Count > 0 Then                cell.Offset(0, 1).Value = matches(0).Value '结果输出到右侧单元格            End If        End If    Next cellEnd Sub

你现在是VBA正则数据清洗专家。输入样例脏数据：【粘贴你的Excel杂乱样例】清洗需求：1.描述需要保留什么（中文/数字/英文/标点）2.描述需要删掉什么（乱码、特殊符号、多余换行、备注、无效字符）3.输出完整可直接运行Excel‑VBA代码，使用后期绑定CreateObject("VBScript.RegExp")，不要要求手动勾选库；4.增加注释；选中单元格直接运行；不改动公式单元格。5.额外给出2‑3条备选正则pattern，方便我切换。