將數組拆分成多個數組/數組

Question

我有一個字符串數組 - 稱之爲Xarray。我還有三個字符串陣列 - Aarray，Barray和Carray。 Xarray可能有一個小長度 - 例如3或4.A，B和C數組通常是一個更長的主列表（每個10+個元素）。

Xarray只包含在Aarray，Barray，或CARRAY找到的元素。

我需要Xarray分成3箱/陣列 - 給他們打電話XA，XB和XC。 XA只能包含Aarray中找到的來自Xarray的條目。 XB應該只包含Barray中找到的來自Xarray的條目。 XC應該......你得到了照片。

這樣做的好方法是什麼？感謝你的幫助。

Answer 1

假設你的字符串數組是一維的，就像這樣工作？

Sub ArraySlicing() 

    Dim Xarray() As String 
    Dim Aarray() As String, Barray() As String, Carray() As String 
    Dim XA() As String, XB() As String, XC() As String 
    Dim XA_RwIndexList As String, XB_RwIndexList As String, XC_RwIndexlist As String 
    Dim i As Long 

    'create test data arrays 
    Xarray = Split("Red,Blue,Green,Yellow,Orange,Lime,Purple,Turquoise,Pink,Brown,White,Black,Gold", ",") 
    Aarray = Split("Apple,Orange,Banana,Lime,Pear,Orange,Green Apple,Red Apple", ",") 
    Barray = Split("Pink Rose,Tulip,Daisy,Bluebell,Carnation,Marigold", ",") 
    Carray = Split("redwood,spruce,lime,pine,oak,lemon,chestnut,walnut,orange", ",") 

    'loop XArray and check for matches 
    For i = LBound(Xarray) To UBound(Xarray) 

     'note application.match is case insensitive and will only match complete words 
     'i.e. "orange" & "Orange" will be found, "Pink Rose" will not 

     If Not IsError(Application.Match(Xarray(i), Aarray, 0)) Then _ 
     XA_RwIndexList = XA_RwIndexList & "_" & i 'index matching rows 

     If Not IsError(Application.Match(Xarray(i), Barray, 0)) Then _ 
     XB_RwIndexList = XB_RwIndexList & "_" & i 'index matching rows 

     If Not IsError(Application.Match(Xarray(i), Carray, 0)) Then _ 
     XC_RwIndexlist = XC_RwIndexlist & "_" & i 'index matching rows 

    Next i 

    'check if XA_RwIndexList was initialized i.e. there were matches 
    If Not XA_RwIndexList = vbNullString Then 

     'trim preceeding "_" & store row #s in XA array 
     XA = Split(Mid(XA_RwIndexList, 2), "_") 

     'loop XA and replace row # with corresponding values from XArray 
     For i = LBound(XA) To UBound(XA) 
      XA(i) = Xarray(XA(i)) 
     Next i 

    End If 

    'check if XB_RwIndexList was initialized i.e. there were matches 
    If Not XB_RwIndexList = vbNullString Then 

     'trim preceeding "_" & store row #s in XB array 
     XB = Split(Mid(XB_RwIndexList, 2), "_") 

     'loop XB and replace row # with corresponding values from XArray 
     For i = LBound(XB) To UBound(XB) 

      XB(i) = Xarray(XB(i)) 

     Next i 

    End If 

    'check if XC_RwIndexList was initialized i.e. there were matches 
    If Not XC_RwIndexlist = vbNullString Then 

     'trim preceeding "_" & store row #s in XC array 
     XC = Split(Mid(XC_RwIndexlist, 2), "_") 

     'loop XC and replace row # with corresponding values from XArray 
     For i = LBound(XC) To UBound(XC) 

      XC(i) = Xarray(XC(i)) 

     Next i 

    End If 

End Sub 

根據您的字符串匹配的要求Application.Match未必是最合適的，但想到我會建議它，因爲它是避免需要也環路其他3個陣列的好方法。