r1c1 공식을 통해 사전 정의 된 범위 참조

Question

다른 워크 시트의 다른 범위에서 값을 찾아야합니다. 나는 "X"로 범위를 정의하고, 내가 예를 참조 R1C1 배합에서 사용하고 싶은 :, 나는이 작동하지만, 너무 느린 application.vlookup을 수행하는 것을 시도했다

Set x = extwbk.Worksheets("ark1").Range("A1:d400") 
With twb.Sheets(filename) 
     .Range("k2:k" & n).FormulaR1C1 = "=VLOOKUP(RC[-10],x,4,False)" 
     .Range("l2:l" & n).FormulaR1C1 = "=VLOOKUP(RC[-11],x,4,False)" 

을 내가 범위, exmaple 조회 테이블에 따라 유연해야로서 나는, 범위 X를 사용해야합니다 회 4000 행을 반복 에 있습니다

Set x = extwbk.Worksheets("ark1").Range("A1:d" & rows) 

어떤 제안 전 범위의 X를 참조 할 수있는 방법 내 조회 기능에? 감사합니다.

Answer 1

당신은 Set x = extwbk.Worksheets("ark1").Range("A1:d400")로 x 범위를 설정하고, 당신이 R1C1 유형의 수식에서 사용하려면, 당신은 x.Address(False, False, xlR1C1)하여 x 범위에서 주소를 얻을 수 있습니다.

아래의 2 개 라인을 사용해보십시오 : 외부 통합 문서를 참조하는 경우 다음 4 번째 매개 변수를 추가하고, 또한 절대 범위를 볼 필요가, @Rory 의견 및 PO 다음

.Range("K2:K" & n).FormulaR1C1 = "=VLOOKUP(RC[-10]," & x.Address(False, False, xlR1C1) & ",4,False)" 
.Range("L2:L" & n).FormulaR1C1 = "=VLOOKUP(RC[-11]," & x.Address(False, False, xlR1C1) & ",4,False)" 

:

.Range("K2:K" & n).FormulaR1C1 = "=VLOOKUP(RC[-10]," & x.Address(True, True, xlR1C1, True) & ",4,False)" 
.Range("L2:L" & n).FormulaR1C1 = "=VLOOKUP(RC[-11]," & x.Address(True, True, xlR1C1, True) & ",4,False)"