Excel VBA : 주소를 반환하는 VBA에서 코드를 작성하는 방법

Question

=CELL("address",INDEX(B:B,MATCH(C23,A:A,0))) 

나는 이것을 시도했지만 작동하지 않는다.

Application.WorksheetFunction.cell("address", Application.WorksheetFunction.Index(Sheet1.Range(("b3"), Range("b2").End(xlDown)) _ 
, Application.WorksheetFunction.Match(c23, Sheet1.Range(("A3"), Range("a2").End(xlDown)), 0))) 

워크 시트 기능에는 셀이 없지만 Excel 기능의 셀 기능에 있습니다.

Answer 1

나는이 하나를 사용합니다 (필요한 경우 함수에 포장 할 수 있습니다) :

Dim ind 
Dim rng As Range 

With Sheet1 
    ind = Application.Match(.Range("c23"), .Range("A:A"),0) 
    If Not IsError(ind) Then 
     Set rng = Application.Index(.Range("B:B"), ind) 
     MsgBox rng.Address 
    Else 
     MsgBox "There is no match" 
    End If 
End With 

Answer 2

내가이 함께했다 :

Dim add As String 
add = Sheet1.Range("B1").Offset(Application.WorksheetFunction.Match(Sheet1.Range("C23"), _ 
Sheet1.Range(("A1"), Range("A1").End(xlDown)), 0) - 1).Address 

simoco의 솔루션은 대한 확인으로 더 좋을 것이다 오류가 발생했지만 공유 할 가치가 있다고 느꼈습니다.