写一个excel的vba逻辑是检查H列的数据找到H列单元格中的第二个英文字符并将其剪切到J列

以下是一个简单的 VBA 代码，可以实现您所描述的逻辑：

Sub MoveSecondCharToJ() Dim lastRow As Long lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

For i = 1 To lastRow
    If IsNumeric(Left(Range("H" & i).Value, 1)) = False Then '检查单元格是否以数字开头
        Dim secondChar As String
        secondChar = Mid(Range("H" & i).Value, 2, 1) '获取第二个字符
        
        Range("J" & i).Value = secondChar '将第二个字符复制到 J 列
        Range("H" & i).Value = Replace(Range("H" & i).Value, secondChar, "") '从 H 列中删除第二个字符
    End If
Next i

End Sub

请注意，这个代码假定您的数据中的第二个英文字符是唯一的。如果有多个单元格中的第二个字符相同，它们将被同时剪切到 J 列中。如果单元格中没有英文字符，则不会进行任何操作。此外，这个代码只是一个起点，您可能需要根据您的具体需求进行修改和扩展。