String 有条件地拆分大字符串

如何使用vba分离逗号分隔的大字符串，如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=SplitA，B，C，D来完成它，但我希望做同样的事情，字符串将从列表中传递，就像item_var中一样，然后它将像word_list尝试做的那样被拆分，最后我将得到像bcd一样的结果。谢谢。

您不需要为此使用循环：

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

---

是的，就是这个。感谢Gary的学生提供了强大的解决方案。我来不及回信。