写一个excel的vba逻辑是检查H列的数据不限字符数找到单元格中符合C+数字后面的字符。保留C+数字剪切C+数字后面的字符然后黏贴到L

列相邻的单元格中。

以下是实现该逻辑的VBA代码：

Sub CutAndPaste()
    Dim lastRow As Long
    Dim i As Long
    Dim cellText As String
    Dim cNum As String
    Dim cIndex As Integer
    Dim cutText As String
    
    '获取最后一行的行号
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
    
    '循环检查H列每个单元格的内容
    For i = 1 To lastRow
        cellText = ActiveSheet.Cells(i, "H").Value
        
        '查找符合"C+数字"格式的字符串
        cIndex = InStr(1, cellText, "C")
        If cIndex > 0 And IsNumeric(Mid(cellText, cIndex + 1, 1)) Then
            cNum = Mid(cellText, cIndex, 2) '获取"C+数字"
            cutText = Mid(cellText, cIndex + 2) '获取剪切的文本
            ActiveSheet.Cells(i, "H").Value = cNum '保留"C+数字"
            ActiveSheet.Cells(i, "L").Value = cutText '黏贴到L列
        End If
    Next i
End Sub