Разделяйте строки в разные ячейки в Excel, используя VBA

Question

Например, у меня есть строковая переменная с именем str. Эта строка имеет значение:

apple
orange
pineapple

Каждое слово отделяется новой строкой. Я хочу переместить это на клетки. A1 содержит apple, A2 содержит orange, а A3 содержит pineapple.

Спасибо.

Answer 1

Приведенный ниже код разбивает строки, разделенные vbNewLine в столбце A, на столбец B.

Пожалуйста, измените
ws1.[b1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X)
на
ws1.[a1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X)

если вы хотите перезаписать столбец A

Sub Spliced()
    Dim ws1 As Worksheet
    Dim X
    Set ws1 = Sheets(1)
    X = Split(Join(Application.Transpose(ws1.Range(ws1.[a1], ws1.Cells(Rows.Count, "A").End(xlUp))), vbNewLine), vbNewLine)
    ws1.[b1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X)
End Sub