如何解决Excel VBA正则表达式不支持负向lookbehind的问题？

VBA使用的VBScript.RegExp确实不支持负向lookbehind，针对你的需求，有两个可行的替代方案：

方案1：正则分组匹配+过滤无效项 #

把正则改成同时匹配「带tbl""前缀的情况」和「不带前缀的目标情况」，然后通过分组判断只保留我们需要的结果：

regex.Pattern = "(tbl""""|)(>(\d(\.\d)+)<)"

然后修改遍历匹配的代码逻辑：

For i = 0 To match.Count - 1
    ' 第一个分组为空，说明没有tbl""前缀，是我们要的内容
    If match.Item(i).SubMatches(0) = "" Then
        LRb = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & LRb).Value = match.Item(i).SubMatches(2)
        Range("C" & LRb).Value = fileNameSource
    End If
Next i

这个正则的逻辑是：要么匹配tbl""（存入第一个分组），要么匹配空字符串；接着匹配目标的>章节号<（第三个分组是我们要的章节编号）。遍历的时候跳过第一个分组不为空的匹配即可。

方案2：先匹配所有目标格式，再代码过滤前缀 #

先用简单正则匹配所有>章节号<的格式，再通过VBA代码检查匹配内容的前几个字符是否是tbl""：

regex.Pattern = ">(\d(\.\d)+)<"

然后修改遍历逻辑：

For i = 0 To match.Count - 1
    ' 获取匹配结果在原文本中的起始位置，往前检查是否是tbl""
    Dim matchStart As Long
    matchStart = match.Item(i).FirstIndex
    ' 确保起始位置足够往前检查，避免越界
    If matchStart >= 5 Then ' tbl""是5个字符：t,b,l,"",""
        If Mid(fileContents, matchStart - 4, 5) <> "tbl""" Then
            LRb = Cells(Rows.Count, "B").End(xlUp).Row + 1
            Range("B" & LRb).Value = match.Item(i).SubMatches(0)
            Range("C" & LRb).Value = fileNameSource
        End If
    Else
        ' 起始位置不够5，说明前面不可能有tbl""，直接保留
        LRb = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & LRb).Value = match.Item(i).SubMatches(0)
        Range("C" & LRb).Value = fileNameSource
    End If
Next i

这个方案更直观，先抓所有符合格式的章节号，再过滤掉那些前面跟着tbl""的结果。

注意事项 #

• 两个方案都能实现原需求的效果，方案1更依赖正则，方案2更依赖代码逻辑，根据你的习惯选择即可。
• 测试的时候可以先拿单个HTML文件验证，确保过滤逻辑正确。

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