Как использовать две косые черты в «текст в столбец» в Excel? - PullRequest
0 голосов
/ 02 мая 2018

Почему Excel не позволяет использовать две косые черты в Данные> Текст в столбцы> Разграничить> Другой раздел?

У меня есть несколько строк с похожими данными. В каждом ряду также есть две непрерывные косые черты.

Я хочу отделить столбец, который начинается с двух слешей.

Как это сделать?

Ответы [ 2 ]

0 голосов
/ 02 мая 2018

Текст в столбцы может принимать только один символ в качестве «другого» разделителя, но разделитель может делиться на любое количество символов в качестве разделителя¹. Просто напишите свою собственную версию Text-to-Columns.

Option Explicit

Sub myT2C()
    Dim vals As Variant, tmp As Variant, i As Long, j As Long, mx As Long

    With Worksheets("sheet8")
        vals = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).Value2
        For i = LBound(vals, 1) To UBound(vals, 1)
            tmp = Split(vals(i, 1), "//")
            mx = Application.Max(mx, UBound(tmp) + 1)
            ReDim Preserve vals(LBound(vals, 1) To UBound(vals, 1), 1 To mx)
            For j = LBound(tmp) To UBound(tmp)
                vals(i, j + 1) = tmp(j)
            Next j
        Next i
        .Cells(2, "A").Resize(UBound(vals, 1), UBound(vals, 2)) = vals
    End With
End Sub

¹ Вероятно, есть предел, о котором я не знаю; возможно 255 символов.

0 голосов
/ 02 мая 2018

Установите флажок «Рассматривать последовательные разделители как один», в других разделителях введите одну косую черту, это должно решить вашу проблему

...