VBA基于条件动态拆分数组

我需要将现有的String（）数组动态拆分为多个字符串数组。当前我的数组看起来像这样

我的数据样本/数组如下所示：

ID |价格|供应商
01 | 05 |洛城
01 | 05 |中城
01 | 05 |中城
01 | 05 |低城
01 | 05 |高城
01 | 05| Lowtown
01 | 05 | Hightown

我不知道我将拥有多少供应商，因为数量将不断增加。
我需要根据供应商的名称解析此拆分当前数组

数组（1）=整行Lowtown值
数组（2）=整行中间值
数组（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一周，如果我能提供更多信息，请告诉我

只需转到文本到列>分隔符>分隔符='|'>完成即可。然后，如果要将所有内容组织到组中，请使用透视表。当然，你可以接受所有这些，但也许亲吻会更好，至少现在是这样，当你掌握了所有简单的事情后，就开始更复杂的事情

只需转到文本到列>分隔符>分隔符='|'>完成即可。然后，如果要将所有内容组织到组中，请使用透视表。当然，你可以接受所有这些，但也许亲吻会更好，至少现在是这样，当你掌握了所有简单的事情后，就开始更复杂的事情

目前我需要运行宏，因为这只是整个过程的一部分。谢谢你的建议！我倾向于使事情过于复杂。目前我需要运行宏，因为这只是整个过程的一部分。谢谢你的建议！我倾向于把事情复杂化