Я хотел бы сделать диапазон текста к столбцам динамическим в моем макросе. Но если я попытаюсь вставить туда myRange, это не сработает. Я не могу найти какую-либо информацию в Интернете, чтобы сделать текст в столбцы динамическими.
Оригинал (записанный код):
Sub Macro3()
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End sub
После редактирования (но не могу заставить его работать):
Sub Macro3()
Dim myRange As Range
Set myRange = Selection
Selection.TextToColumns Destination:=myRange, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End Sub
Я думаю, что было бы легко решить, но я искал это и не могу найти какие-либо решения, чтобы понять это.
Может кто-нибудь помочь с этой проблемой?