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

Sub DeleteSecondLetter() Dim lastRow As Long Dim i As Long Dim cellText As String

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

For i = 1 To lastRow
    cellText = Range("H" & i).Value
    If Len(cellText) > 1 And IsNumeric(cellText) = False Then
        Range("H" & i).Value = Left(cellText, 1) & Mid(cellText, 3)
    End If
Next i

End Sub