使用VBA将字符串分成Excel中的不同单元格

例如，我有一个名为 str 的字符串变量。该 str 的值为：

apple
orange
pineapple

每个单词由一个新的 VbLine 分隔。我想把它移到细胞上。 A1 包含apple, A2 包含orange并且A3包含pineapple.

Thanks.

下面的代码分割由以下分隔的字符串vbNewLine在 A 列中进入 B 列。

请更换
ws1.[b1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X)
to
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