写一个excel的vba逻辑是检查H列的数据删除H列单元格中的第一个英文字符

Sub DeleteFirstLetter() Dim i As Integer Dim lastRow As Integer lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

For i = 1 To lastRow
    If IsNumeric(Left(ActiveSheet.Range("H" & i).Value, 1)) = False Then
        ActiveSheet.Range("H" & i).Value = Mid(ActiveSheet.Range("H" & i).Value, 2)
    End If
Next i

End Sub

说明：

1. 首先定义变量i和lastRow，i用于循环遍历每一个单元格，lastRow表示H列的最后一个非空单元格的行号
2. 利用For循环遍历每一个H列的单元格
3. 判断单元格的第一个字符是否为数字，如果不是数字则说明是英文字母，将单元格的值从第二个字符开始截取，即删除第一个英文字母
4. 循环结束后，所有H列的单元格中第一个英文字母均被删除