Excel VBA - セルから配列にデータを解析する

Question

1つのセル（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,",") 

私はサブ私は

アレイエラーに割り当てることができません。

メッセージを取得していますを実行すると。私は何が間違っているのかわからない。どんな助けもありがとう。

Answer 1

このお試しください：Variant`として `薄暗いAudienceArrayにVariant`として

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