Несогласованный вывод из Range.TextToColumns после его однократного использования

Question

Я вставляю диапазон из другого приложения с пробелами в каждой строке. Я использую Range.TextToColumns для разделения вывода на отдельные столбцы. Он работает хорошо, за исключением того, что после того, как я использовал его один раз, в следующий раз, когда я скопирую диапазон, он уже разделен на столбцы. Результатом является непоследовательный вывод из моего macro. Я мог бы добавить IF, чтобы обойти это, но это было бы ужасно. Какой-то параметр устанавливается и влияет на вторую итерацию. Я хотел бы сбросить этот параметр в верхней части моего macro, но я не смог найти, что это такое. Кто-нибудь может сказать мне, что это за параметр?

Answer 1

Пример из: https://www.ozgrid.com/forum/forum/help-forums/excel-general/70907-reset-text-to-columns-delimiter-in-vba

Sub ResetText2ColumnsDelimiter()

    Dim rngEmptyCell As Range

    On Error Resume Next
    Set rngEmptyCell = ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1)
    rngEmptyCell.Value = "ABC"
    rngEmptyCell.TextToColumns Destination:=rngEmptyCell, _
                               DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                               ConsecutiveDelimiter:=False, Tab:=True, _
                               Semicolon:=False, Comma:=False, Space:=False, _
                               Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    rngEmptyCell.Clear

End Sub

Answer 2

В поиске объектов TextToColumns в браузере объектов выделите его на панели «Участники» и нажмите «F1». Это приведет вас к справке MS по теме, которая имеет все параметры.