VBA替换数字后的'in'为双引号失败，求解决方法

原代码问题分析 #

当前代码无法生效的核心原因：

• Replace函数里的#in是固定字符串匹配，#在这里不具备通配符功能，而需求是匹配数字后缀的in，因此完全找不到匹配项，自然没有替换效果。
• 无法处理多位数字、in后带点（如8in.）、连续多个匹配（如8inx10in）的复杂场景。

正确实现代码 #

使用VBA正则表达式可精准匹配所有符合要求的场景，代码如下：

Option Explicit
Option Compare Text

Sub Replace_InWithQuotes()
    Dim ws As Worksheet, rng As Range, arr As Variant, i As Long
    Dim regEx As Object
    
    ' 初始化正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 开启全局匹配，替换所有符合条件的内容
        .Pattern = "(\d+)in\.?" ' 匹配模式：数字+in，后面可选带点
    End With
    
    Set ws = ActiveSheet
    Set rng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
    arr = rng.Value2
    
    For i = 1 To UBound(arr)
        If Not IsEmpty(arr(i, 1)) Then
            ' 替换：保留捕获的数字，将后续in(.)替换为双引号
            arr(i, 1) = regEx.Replace(arr(i, 1), "$1""")
        End If
    Next i
    
    rng.Value = arr
    Set regEx = Nothing
End Sub

代码解释 #

• 正则模式(\d+)in\.?：
  • (\d+)：匹配1个或多个数字，将其捕获为分组（后续用$1引用）
  • in：匹配字面量"in"
  • \.?：匹配可选的点号（\.转义点号，?表示0或1次）
• .Global = True：确保替换文本中所有符合模式的内容，而非仅替换第一个
• regEx.Replace(..., "$1""")：保留捕获的数字，将后续的in(.)替换为双引号

测试验证 #

运行代码后，所有示例场景均可正确转换：

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