배열 수식을 VBA를 통해 Excel에 삽입하는 방법은 무엇입니까?

Question

이전에 테이블의 전체 열에 대해 & 일치 수식을 한 시트에서 다른 시트로 수행하는 Excel VBA 코드가 있습니다. 아래 코드 예제 :

With Me.Range("table1[Description]") 
    .Formula = "=IFerror(INDEX(table2,MATCH(B4,table2[Asset No],0),2),"""")" 
    .Value = .Value 
End With 

가 지금은 시트에 배열 기능을 추가하고 싶습니다 그래서 수식을 복사하여 다른 수정과 함께 배열로 기존의 공식을 교체합니다. 내가 코드를 테스트 할 때

Sub refresh() 

With Me.Range("table1[Last Service Date]") 
    .FormulaArray = "=LARGE(IF(table2[[#All],[Asset No]]=[@[Asset No]],table2[[#All],[Entry Date]]),2)" 
    .Value = .Value 
End With 

End Sub 

는하지만, 나는 오류 메시지가 나는 배열 수식 내 코드를 변경해야 400 아무것도가 계속?

Answer 1

코드에서 나를 사용하는 이유는 무엇입니까? 시트 모듈에이 코드를 삽입 했습니까? 이 코드를 Module1과 같은 표준 모듈로 옮기고 Me 키워드를 적절한 시트 참조로 바꾸는 것이 좋습니다. 그렇지 않으면 그 코드를 시트 모듈에 배치해야 할 타당한 이유가 있기를 바랍니다.

또한 원하는 열의 테이블의 첫 번째 셀에 배열 수식을 배치해야하며 데이터는 Excel 테이블 형식이므로 전체 수식이 자동으로 수식으로 채워집니다. 그렇지 않은 경우 자동 채우기 속성을 사용하여 수식을 행 아래로 채울 수 있습니다.

문제가 해결되는지 확인해보십시오. 대답은 시트에 VBA를 수동으로 배치 할 때 VBA를 통해 배치하려는 수식이 잘 작동한다고 가정합니다.

With Me.Range("table1[Last Service Date]").Cells(1) 
    .FormulaArray = "=LARGE(IF(table2[[#All],[Asset No]]=[@[Asset No]],table2[[#All],[Entry Date]]),2)" 
    .Value = .Value 
End With