Excel VBA: 提取单元格中第二个英文字母到 J 列

Sub CutSecondLetter() Dim cell As Range For Each cell In Range("H1:H" & Cells(Rows.Count, "H").End(xlUp).Row) '遍历H列 If cell <> "" Then '如果单元格不为空 Dim i As Integer For i = 1 To Len(cell.Value) '遍历单元格中的每个字符 If Mid(cell.Value, i, 1) Like "[A-Za-z]" Then '如果是英文字母 If InStr(i + 1, cell.Value, "[A-Za-z]" ) > 0 Then '如果后面还有英文字母 Dim secondLetter As String secondLetter = Mid(cell.Value, i + 1, 1) '获取第二个英文字母 cell.Value = Left(cell.Value, i) & Right(cell.Value, Len(cell.Value) - i - 1) '删除第二个英文字母 cell.Offset(0, 2).Value = secondLetter '将第二个英文字母复制到J列 Exit For '找到第二个英文字母后退出循环 End If End If Next i End If Next cell End Sub