Excel VBA 如何提取指定列每行字符串中的前两位连续数字？

原有代码问题 #

原有代码会遍历字符串所有位置，将所有匹配到的两位数字拼接后输出，且不会在找到第一个匹配项后停止遍历，因此无法得到最靠前的两位连续数字结果。

需要修改的核心部分 #

• 修正变量名拼写错误：原有代码中myAccessary和myAccessory拼写不一致，会触发未定义变量报错
• 处理每个单元格前先清空对应B列的单元格值，避免旧数据残留
• 移除多数字拼接逻辑，找到第一个符合要求的两位连续数字后直接赋值即可
• 匹配到第一个符合条件的数字后立即终止当前单元格的字符遍历，无需继续向后检查
• 新增边界判断：字符串长度不足2的单元格直接跳过，不可能存在两位连续数字

修改后完整代码 #

Sub seperateNumbers()
    checkRange Worksheets("Sheet1").Range("A2:A9999")
End Sub

Private Sub checkRange(objRange As Range)
    Dim myAccessory As Variant
    Dim i As Long
    Dim iRow As Long
   
    iRow = 2
   
    For Each myAccessory In objRange
        ' 先清空对应B列单元格
        objRange.Cells(iRow - 1, 2) = ""
        ' 字符串长度不足2直接跳过
        If Len(myAccessory.Value) >= 2 Then
            ' 最多遍历到倒数第二位，避免取2位字符越界
            For i = 1 To Len(myAccessory.Value) - 1
                If IsNumeric(Mid(myAccessory.Value, i, 2)) Then
                    ' 找到第一个匹配项直接赋值
                    objRange.Cells(iRow - 1, 2) = Mid(myAccessory.Value, i, 2)
                    ' 找到后直接退出字符循环，不再向后查找
                    Exit For
                End If
            Next i
        End If
        iRow = iRow + 1
    Next myAccessory
End Sub

效果验证 #

修改后代码完全符合需求：

• A2值为「123will」时B2输出12
• A3值为「12 Strawberries」时B3输出12
• A4值为「15225 Street」时B4输出15
• A5值为无数字的「Dog」时B5输出空值

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