我需要一个excel的vba逻辑是将E列中C+数字的字符复制到H列

以下是将E列中C+数字的字符复制到H列的VBA代码：

Sub CopyCNumber() Dim lastRow As Long lastRow = Cells(Rows.Count, "E").End(xlUp).Row '获取E列最后一行的行号

For i = 1 To lastRow '循环E列的每一行
    If Left(Cells(i, "E"), 1) = "C" And IsNumeric(Right(Cells(i, "E"), Len(Cells(i, "E")) - 1)) Then '如果单元格以C开头且后面是数字
        Cells(i, "H") = Cells(i, "E") '将该单元格的值复制到H列
    End If
Next i

End Sub

请将以上代码复制到Excel的VBA编辑器中并运行。