動的配列を設定する

Question

リストのサイズに応じて配列を作成したいと思います。したがって、私は以下を試してみます：

Range("D3").Select 
Set x = Range(Selection, Selection.End(xlDown)) 

Dim totalRows As Integer 
totalRows = (x.Rows.Count) - 1 

Dim strCDRack(0 To totalRows) As String 

これは私にコンパイルエラーをもたらします。私はそれが私が作ることができる方法上の任意の考え

Range("D3").Select 
Set x = Range(Selection, Selection.End(xlDown)) 

Dim totalRows As Integer 
totalRows = (x.Rows.Count) - 1 

Dim strCDRack(0 To 3) As String 

に動作し3でtotalRowsを交換奇妙な原因のthatsこの作業

あなたは基本的には、すでにあなたの質問を自分で答え

Answer 1

、エラーの理由について）（、ありませんもちろん解決策）。可変次元の配列はDimできません（これはエラーメッセージに多かれ少なかれ示されています）。

使用

Dim strCDRack() As String 
ReDim strCDRack(0 To totalRows)