VBA如何精准匹配单元格中与度符号相邻的角度数值

核心逻辑 #

不需要额外提取单元格内容做中转，直接通过正则匹配强制校验「角度数字+度符号」的紧邻位置关系，从根源避免数字和度符号不相邻导致的误匹配问题。

可直接运行的代码 #

采用正则后期绑定写法，不需要手动勾选VBA引用库，打开就能用：

Sub ClassifyElbowAngle()
    Dim reg As Object
    Dim cell As Range
    Dim targetAngles As Variant
    Dim idx As Integer
    
    ' 初始化正则对象
    Set reg = CreateObject("VBScript.RegExp")
    reg.Global = False
    ' 按需在数组中添加需要识别的角度值即可
    targetAngles = Array(45, 90)

    For Each cell In Range("A1:A5000")
        If VBA.Trim(cell.Value) <> "" Then ' 跳过空单元格提升遍历效率
            For idx = LBound(targetAngles) To UBound(targetAngles)
                ' 匹配规则：独立数字+紧邻度符号，避免145°、450°这类误匹配
                reg.Pattern = "\b" & targetAngles(idx) & ChrW(176) & "\b"
                If reg.Test(cell.Value) Then
                    cell.Offset(0, 5).Value = targetAngles(idx) & " Degree"
                    Exit For ' 匹配到对应角度后终止当前单元格的判断
                End If
            Next idx
        End If
    Next cell

    Set reg = Nothing
End Sub

方案优势 #

• 解决原代码的核心缺陷：只有角度数字和度符号（ChrW(176)即°）直接相邻时才会判定匹配，Qty 90 of 45° elbows、Qty 45 of 90° elbows两类场景都会精准识别到紧邻度符号的角度值，不会出现交叉误判
• 正则规则中的\b为单词边界符，会自动过滤掉145°、450°这类包含目标数字但不属于目标角度的内容
• 角度识别列表统一维护在targetAngles数组中，后续需要新增30°、60°等其他角度分类时，直接往数组里加值即可，不需要重复写判断逻辑
• 遍历过程自动跳过空单元格，5000行数据的处理速度远快于普通字符串逐位判断的写法，全程不需要额外中转单元格内容。

内容的提问来源于stack exchange，提问作者Robert Byers