Как я могу создать макрос для выполнения TextToColumn в столбце, который я сейчас выбираю, назначение должно быть таким же столбцом - PullRequest
2 голосов
/ 23 апреля 2020

Я хочу создать макрос, который выполняет 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

1 Ответ

1 голос
/ 23 апреля 2020

Это хорошее время для использования макроса записи с выбранным параметром «Использовать относительные ссылки». Когда я сделал это, Destination:=Range("Selection") в вашем коде было изменено на Destination:=ActiveCell.

...