Excel VBA에서 ADDRESS 함수를 사용하여 범위 배열 채우기

Question

특정 셀 집합에 대한 참조로 채우려는 범위의 2 차원 배열을 정의했습니다 (관련없는 기준). 나는 아래의 의사 코드를 사용하여 시도했지만, 구문 관련 오류와 함께 올라와있다 :

Dim ArrayOfRanges() as Range 
    ReDim ArrayofRanges (10,1) 

    For i = 1 to 10   

    Set ArrayOfRanges(i, 0) = Range(WorksheetFunction.Address(Row(i),Column(i)) 
    Set ArrayOfRanges(i, 1) = Range(WorksheetFunction.Address(Row(i),Column(i)) 

    Next i 

사람이 내가 제대로 배열을 채울 수있는 방법을 알고 있나요

?

감사합니다.

Answer 1

는 다음 코드를 사용해보십시오 :

Dim ArrayOfRanges() As Range 
ReDim ArrayOfRanges(10, 1) 

For i = 1 To 10 

    Set ArrayOfRanges(i, 0) = Cells(i, i) 
    Set ArrayOfRanges(i, 1) = Cells(i, i) 

Next i