Excel VBA - текст в столбцы

Question

У меня есть строки данных ниже в столбце B. Я хотел бы переместить текст в разные столбцы с помощью Excel VBA 2007. В приведенном ниже примере есть 4 группы данных, разделенные на «..». Тем не менее, также может быть 2 или 3 группы данных.

Пример 4 группы:

InstrumentBaseClass..Mega~Corporate~InstrumentBaseClass..Mid~Energy~InstrumentBaseClass..Micro~Oil Field Services

Пример 2 группы:

InstrumentBaseClass..Mega~Corporate

Как я могу установить текст в разные столбцы, чтобы при наличии только двух наборов данных в двух следующих столбцах было указано "нет"? Если существует 3 набора данных, мне нужен один столбец «none» и т. Д.

Answer 1

В следующем коде используются жестко закодированные входные данные, но их можно заменить ссылками на диапазон или передать как переменные при вызове подпрограммы.

Sub TextDotColumns()

Dim sInput As String, sMid As String, rOutput As Object 'these should be passed when calling sub
Dim lBreak As Long, lColOff As Long, sCheck As String

sInput = "InstrumentBaseClass..Mega~Corporate~InstrumentBaseClass..Mid~Energy~InstrumentBaseClass..Micro~Oil Field Services"
sCheck = ".."
Set rOutput = Range("d10")

lBreak = InStr(1, sInput, sCheck, vbTextCompare)
rOutput.Select
lColOff = 1
Do While lBreak > 0
    sMid = Mid(sInput, 1, lBreak - 1)
    rOutput.Offset(1, lColOff).Value = sMid
    sInput = Right(sInput, Len(sInput) - lBreak - 1)
    lColOff = lColOff + 1
    lBreak = InStr(1, sInput, sCheck, vbTextCompare)
Loop

rOutput.Offset(1, lColOff).Value = sInput

End Sub

Answer 2

Попробуйте:

Sub Test()

    '// Assumes your range is in column A
    With Range("A2", Cells(Rows.Count, "A").End(xlUp))        
        '// Text to columns
        .TextToColumns Destination:=.Offset(, 1), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Other:=True, OtherChar:="."

        '// Fill blank spaces with "None"
        .Offset(, 1).Resize(, 4).SpecialCells(xlCellTypeBlanks).Value = "None"
    End With

End Sub

Answer 3

Простой, не программируемый способ - просто заполнить все 4 столбца ни одним из них, а затем разрешить элементу «преобразовать текст в столбцы» вместо записи «все, что нужно».