以逗号分隔的多值单元格到数组

Question

我是 VBA 的新手，我被困在一个点上，我必须拆分并复制整个列 (C) 的多值单元格，这些单元格以逗号分隔到一个数组中。并将其排列到相应的列 假设：

  C1 = oranges,grapes,apple ; C2 = apple,mango ; C786 = watermelon,oranges,plum

它应该去相应的列，芒果的所有值应该去E列，苹果到F，西瓜到G，其余到下一列 我想要实现的是

Initially -::-

    A           B                 E     F           G       H      I      J     K
  Seller   FruitSell            Mango  Apple  Watermelon Grapes Orange  Plum Banana
 Seller1  Oranges,Grapes,Apple            
 Seller2  Only Mango            
 Seller3  Plum,Banana   

---

 Output :-:          
    A           B                 E     F           G       H      I      J     K
  Seller   FruitSell            Mango  Apple  Watermelon Grapes Orange  Plum Banana
 Seller1  Oranges,Grapes,Apple         Apple             Grapes Orange    
 Seller2  Only Mango            Mango
 Seller3  Plum,Banana                                                   Plum Banana                                      

提前致谢

Answer 1

这是公式的解决方案：

使用 VBA 会类似但不太理想，如果 B 列中存在相应的水果，则必须遍历行和列并插入相应的水果。

Answer 2

如果您想将其作为 VBA 代码，您可以从以下内容开始：

Option Explicit

Sub TestMe()

    Dim my_dict             As Object
    Dim my_str              As String
    Dim my_arr              As Variant
    Dim my_key              As Variant
    Dim l_counter           As Long

    Set my_dict = CreateObject("Scripting.Dictionary")
    my_str = "ora,gra,app,app,app,man,man" 'Range(Cells(2, 2),cells(6,2))
    my_arr = Split(my_str, ",")

    For l_counter = LBound(my_arr) To UBound(my_arr)
        If my_dict.exists(my_arr(l_counter)) Then
            my_dict(my_arr(l_counter)) = my_dict(my_arr(l_counter)) + 1
        Else
            my_dict.Add my_arr(l_counter), 1
        End If
    Next l_counter

    For Each my_key In my_dict.Keys
        Debug.Print my_key, my_dict(my_key)
    Next my_key


End Sub

在您的情况下，您应该为每个带有水果的单元格放置一个循环，并将其写入 my_str。最后你会得到一本很好的字典，里面有所有的水果。

试试这个代码，它可以工作并在即时窗口中产生一些东西。