AutoFilter를 이용한 셀 일치하는 Row 자동 가져오기 VBA 특정한 구분자를 넣으면 해당되는 것만 필터링 해서 가져오는 VBA 코드 입니다. 하는 방법은 필터링해서 가져오고자 하는 Sheet 를 선택합니다. 선택하고 나서 마우스 우클릭을 한 다음에 나오는 코드 보기를 누릅니다. 이런 창이 뜹니다. 여기에 아래 VBA Code를 붙여넣기 하고 나서 창을 닫으면 끝 입니다. 코드를 수정하고 싶으면 위 방법대로 코드를 보면서 수정하면 됩니다. 현재 부족한 부분은 work 시트에서 첫번째 머리글에 해당하는 것의 값과 서식만 복사해서 붙여넣는 걸 아직 처리를 못한 상태입니다. 나머지는 원하는 자료를 순식간에 가져오기가 됩니다. 첫줄 Private Sub Worksheet_Change(ByVal Target As Range) 를 다른 이름으로 변경하면 안되더라구요. 코드 설명은 A2 열의 값이 입력되면 가져오고 그렇지 않으면 동작되지 않도록 되어 있습니다. 완전자동필터VBA.vbs Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub 그리고 아래 Code는 버튼을 누르면 A2 셀 값에 해당되는 조건에 맞는 것만 필터링해서 가져옵니다. 똑같은데 위에 있는 코드와 어떤 부분이 차이가 있는지 살펴보면 금방 아실 겁니다. Sub
AutoFilter_Copy() Target = Cells(2, 1).Value '// 조건 검색어 If Target <> "" Then |