Excel VBA - 將數據從單元格解析為數組

Question

我在一個單元格（E2）中有數據，由逗號和空格分隔的數字組成（即1, 14, 33, 46, 22, 3 ）。 單元格中最多可以有1,000個數字。 我想取這些數字並將它們放在一個數組中，然后我可以將它們與我稱之為AudienceNumber的變量相匹配。 如果數組包含數字1或AudienceNumber我想將我構建數組的行（在本例中為第2行）寫入新工作簿。 如果數組不包含1或AudienceNumber我想轉到下一行的單元格E並重復該過程。 我想繼續這樣做，直到單元格E為空。 我似乎無法將單元格E2的內容放入數組中。 這是我得到的：

Dim AudienceArray (1000) as Variant
ActiveWorkbook.Worksheets("Data").Select
Range("E2").Select
AudienceArray=Sprlit(ActiveCell.Value,",")

當我運行sub我得到了一個

無法分配給陣列錯誤

信息。 我似乎無法弄清楚我做錯了什么。 任何幫助，將不勝感激。

Answer 1

嘗試這個：

Option Explicit

    Sub Test()

        Dim ws As Worksheet
        Dim val As String
        Dim arr As Variant
        Dim i As Long

        Set ws = ActiveWorkbook.Worksheets("Data")
        val = ws.Range("E2").Text
        arr = Split(val, ",", -1, vbBinaryCompare)

        For i = 0 To UBound(arr)
            Debug.Print arr(i)
            'split retains spaces...
            Debug.Print Trim$(arr(i))
        Next i

    End Sub