VBA动态分割基于条件的数组

Question

我需要动态地将现有的String（）数组拆分为多个String数组。目前我的阵列看起来像这样
我的数据样本/数组如下所示：

  

ID |价格|供应商| 01 | 05 | Lowtown
01 | 05 |中城
01 | 05   |中城
01 | 05 | Lowtown
01 | 05 | Hightown
01 | 05 |   Lowtown
01 | 05 |海棠

我不知道我将拥有多少供应商，因为数字会不断增加 我需要根据供应商的名称解析这个当前数组 数组（1）= Lowtown值的整行 数组（2）= Midtownvalues的整行 数组（3）= Hightown值的整行

Sub splitVendor(ByRef Arr() As String)

' Split string and store into X variant
Dim X As Variant

For i = LBound(Arr) To UBound(Arr)

    X = Split(Arr(i), " | ")

Next i



End Sub

我的目的是创建一个循环，循环遍历Arr中的所有数据以对类似的值进行分组，然后将其动态存储到其他多个数组中（未知数量的供应商）

任何帮助将不胜感激！ PS：我刚刚开始VBA一周，请告诉我是否可以提供更多信息！

Answer 1

只需将文字转到列＆gt;定界＆gt;分隔符=＆＃39; |＆＃39; ＆GT;完。然后，如果要将所有内容组织到组中，请使用数据透视表。当然，你可以做到这一切，但也许KISS更好，至少目前如此，当你掌握所有简单的东西时，转向更复杂的东西。