동적 배열 설정

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을 대체 이상한 원인을 먹으 렴이 작업

당신은 기본적으로 이미 귀하의 질문에 직접 대답

Answer 1

, 오류의 원인에 대한) (,하지 물론 솔루션). 가변 크기 (오류 메시지에 표시되는대로)가 더 큰 배열은 Dim 수 없습니다.

사용

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