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

Question

我想创建一个宏，对当前选择执行 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

标签： excelvbatext-to-column

Answer 1

这是在选择“使用相对引用”的情况下使用记录宏功能的好时机。当我这样做时，Destination:=Range("Selection")在您的代码中更改为Destination:=ActiveCell.