Excel VBA: 提取 H 列单元格的第二个英文字符到 J 列

Sub CutEnglishCharacters() Dim lastRow As Long Dim i As Long Dim cellValue As String Dim firstEnglishChar As Integer Dim secondEnglishChar As Integer

lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row '获取H列最后一行的行数

For i = 1 To lastRow '循环遍历H列中的每个单元格
    cellValue = ActiveSheet.Cells(i, "H").Value '获取当前单元格的值
    firstEnglishChar = InStr(1, cellValue, "[a-zA-Z]") '查找第一个英文字符的位置
    secondEnglishChar = InStr(firstEnglishChar + 1, cellValue, "[a-zA-Z]") '查找第二个英文字符的位置
   
    If secondEnglishChar > 0 Then '如果找到了第二个英文字符
        ActiveSheet.Cells(i, "J").Value = Mid(cellValue, secondEnglishChar, 1) '将第二个英文字符剪切到J列
        ActiveSheet.Cells(i, "H").Value = Replace(cellValue, Mid(cellValue, secondEnglishChar, 1), "") '从H列中移除第二个英文字符
    End If
Next i

End Sub