regex - 避免删除下划线和数字

Question

我试图删除所有小写字符，但 VBScript 正在删除所有下划线、小写字母和数字。我怎样才能让它只去掉小写字母而不去掉我的其他字符？

With CreateObject("VBScript.RegExp")
    .Pattern = "[^A-Z ]"
    .Global = True
    For Each cell In Worksheets("Sheet1").Range("C1:C25")
        If Not IsEmpty(cell.Value) Then _
            cell.Value = Application.Trim(.Replace(cell.Value, ""))
    Next cell
End With​

Answer 1

小写字母正则表达式是 [a-z]。

您的正则表达式 - [^A-Z ] - 匹配任何不是大写字母和空格的字符，因此它比小写字母更匹配。

由于要删除字母，因此最好在 [a-z] 之后添加 + 量词以匹配 1 次或多次出现:

.Pattern = "[a-z]+"