基于VBA 2010中的字符中断字符串

在Excel 2010中，使用VBA，当字符串找到某个字符时，如何将其拆分

比如说

A1

=

“这是对紧急广播信号的测试”

我把它赋给一个变量，比如

strColumnA = Range("A" & CStr(currRow)).Value

现在我想在工作表2的末尾追加4个新行。所有A列，如：

A1 = "This is a"
A2 = "test of"
A3 = "the"
A4 = "emergency broadcast signal"

有什么想法吗？

使用

Split（）

---

使用此选项是因为不需要循环，而且将

应用程序.Trim（）保留在以下位置也很重要：

Sub test()

    Dim r As Variant, s As String
    s = [a1].Value
    r = Split(Application.Trim(s), "|")

    [b1].Resize(UBound(r, 1) + 1) = Application.Transpose(r)

End Sub

Sub test()

    Dim r As Variant, s As String
    s = [a1].Value
    r = Split(Application.Trim(s), "|")

    [b1].Resize(UBound(r, 1) + 1) = Application.Transpose(r)

End Sub