使用VBA将string分隔成不同的单元格

例如，我有一个名为str的stringvariables。 这个str的值是：

apple orange pineapple 

每个单词由newVbLine分隔。 我想在单元格上移动它。 A1包含apple ，A2包含orange ，A3包含pineapple 。

谢谢。

Answer 1

下面的代码vbNewLine列A中的vbNewLine分隔的string拆分为列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