写一个excel的vba逻辑是检查H列的数据将数据中符合C+数字后面的字符复制到I列

下面是一个简单的VBA代码，可以实现你的需求：

Sub CopyDataToIColumn() Dim lastRow As Long Dim i As Long

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

For i = 1 To lastRow
    If Left(Cells(i, "H").Value, 1) = "C" And IsNumeric(Mid(Cells(i, "H").Value, 2, 1)) Then
        Cells(i, "I").Value = Mid(Cells(i, "H").Value, 3)
    End If
Next i

End Sub

这个代码首先获取最后一行的行数，然后循环遍历每一行，检查H列的值是否以“C”开头，并且第二个字符是数字。如果是这样，它就会将H列的值中第三个字符以后的部分复制到I列中。注意，这个代码假设你想要将数据复制到I列中，而不是覆盖I列中已经有的数据。如果你想要覆盖I列中的数据，可以将“Cells(i, "I").Value”改为“Cells(i, "I").Value = Mid(Cells(i, "H").Value, 3)”