VBA基於動態條件拆分數組

Question

我有一個要求，動態地將現有的String（）數組拆分爲多個String數組。目前我的陣列看起來像這樣

我的數據採樣/陣列看起來像這樣：

ID |價格|供應商
01 | 05 | Lowtown
01 | 05 | Midtown
01 | 05 | Midtown
01 | 05 | Lowtown
01 | 05 | Hightown
01 | 05 | Lowtown
01 | 05 | Hightown

我不知道有多少供應商我會有，因爲數量會不斷增加。
我需要解析此分裂該電流陣列基於供應商的名稱

陣列（1）= Lowtown的整個行值
陣列（2）= Midtownvalues
的整行 陣列（3）=整個行的海棠值

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 

我的目的是創建一個循環，通過編曲內的所有數據循環到組起來相似的值，然後將其存儲到其它的多個陣列動態（未知廠商量）

任何幫助將不勝感激！ PS：我剛開始一週的VBA，讓我知道如果我可以提供更多的信息！

Answer 1

只需將文本分隔到列>分隔符>分隔符='|' >完成。然後，如果您想將所有內容組織到組中，請使用數據透視表。當然，你可以做到這一點，但對KISS來說，或許至少現在是這樣，而且當你掌握所有簡單的事情時，可以轉向更復雜的東西。