Excel VBA: 删除 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