有条件地拆分大字符串

Question

如何使用vba分隔逗号dellmited的大字符串，结果为"Hi,there,bob" hi there。

bob

顺便说一句，我本可以使用Sub split_letters() Dim single_item As Variant, item_var As Variant Dim word_list As Variant item_var = [{"A,B,C,D","K,L,M,N"}] word_list = Split(item_var, ",") For Each single_item In word_list r = r + 1: Cells(r, 1) = single_item Next single_item End Sub 完成它但我希望做同样的事情，其中​​字符串将从word_list = Split("A,B,C,D", ",")中的列表传递，然后它将被分割为{{1}尝试做，最后我会得到像item_var word_list A B这样的结果。感谢。

Answer 1

你不需要循环：

Sub MAIN()
    Dim s As String, ary

    s = "qwerty,poiu,a,b,c,d,e"
    ary = Split(s, ",")
    Range("A1").Resize(1, UBound(ary) + 1) = ary
End Sub