☰

Excel：仅删除字母字符（保留特殊字符）

tag-icon • tag-icon microsoft-excel visual-basic
Excel：仅删除字母字符（保留特殊字符）

要比较的两个数据集。

6701.2345_5432 第二个系统插入字母。6701E.2345_5432

我有大约 8000 行需要比较，并且我似乎无法修改 VBA 代码来删除字母，除非删除我需要保留的特殊字符。

感谢您的帮助！

答案1

此 VBA 代码使用 RegEx 从活动工作表的所有单元格中删除字母字符。
更改[A-Za-z]为应删除的内容。

Sub RegExRemove()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[A-Za-z]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub

答案2

细微修改以仅使用选定的单元格

子 RegExRemove()

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True

RegEx.Pattern = "[A-Za-z]"
For Each Cell In Selection()
   Cell.Offset(0, 1).Value = RegEx.Replace(Cell.Value, "")
Next

子目录结束

相关内容