如何创建一个宏来在我当前选择的列上执行 TextToColumn，目标必须是相同的列

How can I create a macro to perform a TextToColumn on the column I'm currently selecting, Destination must be same Column

我想创建一个宏来对当前选择执行 TextToColumns 并将目标放在同一列上。

我试过下面的代码，但它不起作用。激活宏时将列设置为我当前选择的列的变量的正确方法是什么？

    Sub Macro4()
'
' Macro4 Macro
'
' Atalho do teclado: Ctrl+t
'
    Selection.TextToColumns Destination:=Range("Selection"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
End Sub

现在是使用录制宏功能并选择 "Use Relative References" 的好时机。当我这样做时，您代码中的 Destination:=Range("Selection") 已更改为 Destination:=ActiveCell.