Excel VBA: 剪切 C+数字 后面的字符到 J 列

Sub CutAndPaste() Dim lastRow As Long Dim i As Long Dim cellValue As String Dim pattern As String Dim regex As Object Set regex = CreateObject("VBScript.RegExp")

' 设置正则表达式匹配规则
pattern = "C\d.*"
regex.Global = True
regex.Pattern = pattern

' 获取最后一行
lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

' 循环检查 H 列
For i = 1 To lastRow
    cellValue = ActiveSheet.Range("H" & i).Value
    If regex.test(cellValue) Then ' 如果匹配成功
        ActiveSheet.Range("J" & i).Value = regex.Replace(cellValue, "") ' 剪切并粘贴到 J 列
    End If
Next i

Set regex = Nothing ' 清空正则表达式对象

End Sub