Excel VBA 代码：删除 H 列单元格中第二个英文字母

本 VBA 代码用于检查 Excel 工作表 H 列的每个单元格，找到第二个英文字母并将其删除。代码使用循环遍历每个单元格，判断其是否包含至少两个英文字母，如果是，则删除第二个英文字母。

Sub RemoveSecondLetter()
    Dim lastRow As Long
    Dim cell As Range
    Dim i As Long
    Dim str As String
    
    '获取最后一行的行号
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    
    '循环检查 H 列的每个单元格
    For i = 1 To lastRow
        Set cell = Range("H" & i)
        str = cell.Value
        
        '如果单元格中有至少两个英文字母
        If Len(str) >= 2 And IsAlpha(Mid(str, 1, 1)) And IsAlpha(Mid(str, 2, 1)) Then
            '将第二个英文字符删除
            cell.Value = Mid(str, 1, 1) & Mid(str, 3)
        End If
    Next i
End Sub

'判断字符是否为英文字母
Function IsAlpha(ByVal c As String) As Boolean
    IsAlpha = (c Like "[A-Za-z]")
End Function

代码功能:

获取 H 列的最后一行行号。
循环遍历 H 列的每个单元格。
检查每个单元格的值是否包含至少两个英文字母。
如果包含，则删除第二个英文字母。
循环结束后，所有符合条件的单元格的第二个英文字母都被删除。

代码说明:

lastRow 变量保存 H 列的最后一行行号。
cell 变量表示当前循环到的单元格。
str 变量保存当前单元格的值。
IsAlpha 函数用于判断字符是否为英文字母。
Mid 函数用于截取字符串中的特定字符。

使用方法:

打开 Excel 工作簿，并选择包含要操作数据的表格。
按 Alt + F11 打开 VBA 编辑器。
在 VBA 编辑器中，点击 插入 > 模块。
将上述代码粘贴到模块中。
点击 运行 > 运行子程序/宏，选择 RemoveSecondLetter，并点击运行按钮。

注意:

此代码只删除每个单元格的第二个英文字母，如果单元格中存在多个英文字母，则只会删除第二个。
代码会直接修改 Excel 工作表中的数据，请确保备份数据，以免数据丢失。
代码适用于英文环境，如果数据包含其他语言的字符，可能会出现错误。