Как разделить текст с помощью запятой в разлинованной ячейке?

Question

Мне нужно разделить адрес на строки для почтовых расходов. Во вкладке 1 у меня есть данные об участниках. Во вкладке 2 у меня есть счет, который мы отправляем по почте.

Во вкладке 2 я запускаю функцию VLOOKUP чтобы получить информацию об участнике из вкладки 1.

PO Box 211, Alberton, 1450

Теперь проблема начинается ...

Обычный текст в столбцы нельзя использовать из-за того, что в строке формул вместо фактического адреса отображается формула VLOOKUP .

=IF(F7=""," ",VLOOKUP(F7,'Permanente en Jaarlede'!B4:Y2063,24,FALSE))

Как мне изменить свой адрес с:

PO Box 211, Alberton, 1450 чтобы:

PO Box 211
Alberton
1450

когда текст является результатом формулы, а не просто голым значением?

Answer 1

Я не знаю, как это сделать с помощью Excel Formulas, но этот VBa сделает это.

Прежде всего, сделайте резервную копию вашего файла перед запуском.

Он возьмет значение A1 и разделит его на несколько строк.

Public Function Addy(cellToLookup As String)

Dim result As String
result = Range(cellToLookup).Value

Dim splitty() As String
splitty = Split(result, ",")

Dim i As Integer
i = 0

For i = 0 To UBound(splitty)

Range("B" & i + 1).Value = splitty(i)   'update for start row. EG, change B to col, and the +1 to +15 (if you want it to start on row 15)

Next i

End Function

Как добавить VBA в MS Office?

Что не ясно из вашего вопроса, так это то, сколько строк вам понадобится, и если вам нужно выполнить это несколько раз и т.д., Но, надеюсь, это поможет вам. Возможно, вам также понадобится выполнить поиск с помощью VBa, что должно быть достаточно просто.

Answer 2

Вы можете заменить ", " на "CHAR(10)" .

Убедитесь, что для ячейки с несколькими строками включен перенос строк (Wrap Text):

Если А1 выглядел как PO Box 211, Alberton, 1450 , при использовании новой ячейки:

=SUBSTITUTE(A1,", ",CHAR(10)) .

Новая ячейка будет выглядеть так:

PO Box 211
Alberton
1450

ссылка: заменить-запятая-с-разрыв-ссылка-в-ячейке