Vba autofilter에 복사

Question

시트 1에서 시트 2로 값 (셀 내용은 vlookup 공식)을 복사하고 싶습니다. 시트 2에서는 자동 필터 내에서 채워야합니다. 매크로를 기록했지만 "치명적인"내에서 특수 붙여 넣기 (따라서 값만)를 만들 수는 없습니다.

이제 VBA는 "consultancy"값만 계속 사용하고 셀 A23이 변경되면 (vlookup 수식으로 인해) 새 값을 사용하지 않습니다.

저를 도와주세요.

Range("A23").Select 
Selection.Copy 
Sheets("Theory").Select 
ActiveSheet.Range("$A$1:$AR$2653").AutoFilter Field:=3, Criteria1:= _ 
    "Consultancy" 
Sheets("Practice").Select 

Answer 1

이것은 질문을 완전히 이해하지 못했기 때문에 부분적인 대답 일뿐입니다. 귀하의 질문에 당신은 "sheet1"과 "sheet2"및 "critical"라고 멘토합니다; 코드에서는 이러한 키워드가 표시되지 않으므로 설명과 코드를 연결하는 방법을 알지 못합니다.

이

Range("A23").Select 
Selection.Copy 
Sheets("Theory").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
ActiveSheet.Range("$A$1:$AR$2653").AutoFilter Field:=3, Criteria1:= "Consultancy" 
Sheets("Practice").Select