Отдельные строки в разных ячейках в excel с использованием VBA

Question

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

apple 
orange 
pineapple 

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

Спасибо.

Answer 1

Код ниже расколов строки разделяются vbNewLine в колонке А в столбце 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)

, если вы хотите перезаписать колонка А

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