条件付きで大きな文字列を分割する

Question

"Hi,there,bob"のようにカンマで区切られた大きな文字列を分離する方法と結果は、vbaを使用してhitherebobとなります。

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", ",")を使用してそれを行っている可能性がありますが、私はitem_varで、それがやろうとしword_listのように分割し、最終的に私れる保持などの文字列がリストから渡されるのと同じ操作を行うことを望みますABCDのような結果が得られます。ありがとう。

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