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

列对应的单元格中。以下是示例代码：

Sub CutAndPaste() Dim lastRow As Long Dim i As Long Dim str As String

lastRow = Cells(Rows.Count, "H").End(xlUp).Row

For i = 1 To lastRow
    If InStr(1, Cells(i, "H"), "C") > 0 And IsNumeric(Mid(Cells(i, "H"), InStr(1, Cells(i, "H"), "C") + 1, Len(Cells(i, "H")) - InStr(1, Cells(i, "H"), "C"))) Then
        str = Mid(Cells(i, "H"), InStr(1, Cells(i, "H"), "C"), Len(Cells(i, "H")) - InStr(1, Cells(i, "H"), "C") + 1)
        Cells(i, "H").Cut
        Cells(i, "J").Select
        ActiveSheet.Paste
    End If
Next i

End Sub

该代码会遍历H列中的每个单元格，在单元格中查找符合“C+数字”的字符。如果找到符合条件的字符，则将该单元格中的内容剪切并粘贴到J列对应的单元格中。

例如，如果H列中的单元格内容为“C123”，则该单元格的内容将被剪切并黏贴到J列对应的单元格中。如果H列中的单元格内容不含“C+数字”的字符，则不会进行任何操作。