宏或 VBA 脚本有效拆分空单元格

Question

我知道在 Excel 中不能拆分单元格。但是，解决这个问题的方法是在下面插入一个新行，然后垂直合并左右两侧的所有相邻单元格（对于很多单元格）

我想要一个键盘快捷键来执行此操作。所以我录制了一个宏来执行此操作，但问题是宏没有考虑我的光标在什么位置，并且总是转到同一个位置，这不是我想要的。我想按下键，然后拆分就会发生在突出显示的单元格上。

Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+s
'
    Range("A2:A3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("C2:C3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.AutoFill Destination:=Range("C2:FP3"), Type:=xlFillDefault
    Range("C2:FP3").Select
    Range("B2").Select
End Sub