고급필터에서 빈셀 포함 조건셀이 2개 이상일때 누락 데이터, 오름/내림차순 순서 바꾸는 방법 문의
함수/공식
작성자
아무것도몰라요
작성일
2022-03-28 16:14
조회
157
안녕하세요 고급필터 자동화파일 관련하여 궁금한 점이 있어 문의합니다.
RawData 시트에서 조건셀이 빈칸인 경우, (필터조건 없이 전체 조회 시) 빈칸셀이 있는 자료는 누락되는데요,
빈칸을 포함한 조건셀이 1개일때는 해당 조건셀 아래에 = 을 추가하면 누락된 데이터도 포함하여 출력되던데,
빈칸을 포함한 조건셀이 2개이상 일때는 동일한 방식으로 출력이 불가능하더라구요. 방법이 있을까요?
그리고 조회시트에서 머릿글셀 클릭시 오름/내림차순 정렬이 가능한데요.
현재는 머릿글 첫 클릭시 ▲ 오름차순이 가장먼저 나오는데
첫 클릭시 ▼ 내림차순이 먼저 나오게 순서를 바꾸고 싶은데 어떻게 수정하면 될까요?
Sub SortToClick(Rng As Range) '############################################################### '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com) '▶ SortToClick 함수 '▶ 선택된 셀과 연속된 범위를 선택된 셀의 머릿글 기준으로 정렬하고 머릿글에 오름/내림차순 화살표를 추가합니다. '▶ 인수 설명 '_____________Rng : 범위를 정렬할 기준 셀입니다. '▶ 사용 예제 'SortToClick Sheet1.Range("A1") <- A1셀과 연결된 범위를 A열의 머릿글 기준으로 정렬합니다. '############################################################## If Rng.Rows.Count = Rng.Parent.Rows.Count Then Exit Sub Dim r As Range: Dim rh As Range: Dim rs As Range Set r = Rng.CurrentRegion Set rh = Cells(r.Row, Rng.Column) If Not (Right(rh.Value, 2) = " ▼" Or Right(rh.Value, 2) = " ▲") Then r.Sort Rng, xlAscending, Header:=xlYes rh.Value = rh.Value & " ▲" Else If Right(rh.Value, 2) = " ▲" Then r.Sort Rng, xlDescending, Header:=xlYes rh.Value = Replace(rh.Value, " ▲", " ▼") Else r.Sort Rng, xlAscending, Header:=xlYes rh.Value = Replace(rh.Value, " ▼", " ▲") End If End If For Each rs In r.Rows(1).Cells If (Right(rs.Value, 2) = " ▼" Or Right(rs.Value, 2) = " ▲") And rs.Column <> Rng.Column Then rs.Value = Left(rs.Value, Len(rs.Value) - 2) End If Next End Sub
전체 6,864
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! ~7/8(금) 까지 -- 📌 (96)
![]() ![]() |
![]() ![]() |
2022.06.23 | 141 | 17158 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(79)
오빠두엑셀
|
2021.10.28
|
추천 96
|
조회 5322
|
![]() ![]() |
2021.10.28 | 96 | 5322 |
38889 | 함수/공식 |
New 중복 데이터 에서 2개 이상 조건을 만족하는 고유 항목 개수 세기
![]() |
![]() |
10:45 | 0 | 5 |
38868 | VBA |
New 행복한 한 주 시작 하시길 바랍니다. 도와주세요(고급필터 애러)
![]() ![]() ![]() ![]() |
![]() ![]() |
08:42 | 0 | 9 |
38839 | VBA |
New 1주차 VBA 강의 질문입니다
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 26 |
38828 | VBA |
New VBA 스터디 1주차 두번째 미션 실패 ㅠㅠ 도와주세요
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 22 |
38811 | 구글시트 |
New COUNTA 함수
![]() ![]() |
![]() |
2022.07.03 | 0 | 28 |
38785 | VBA |
New 1주차 VBA 강의 질문입니다
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 27 |
38758 | VBA |
New 고급필터 자동화 범위 설정시 애러 문의 합니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 15 |
38730 | 파워쿼리/피벗 |
New 피벗테이블 정렬 순서 변경에 관해서 질문드립니다.
![]() |
![]() |
2022.07.03 | 1 | 19 |
38686 | VBA |
New VBA 4주 완성 1편에서 Visual Basic 질문
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 47 |
38660 | VBA |
New VBA, 매크로, 함수 중에 조건에 맞는 값을 가져오기 문의 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 43 |
38655 | 함수/공식 |
New 근무시간 산출 함수식 문의 드립니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.03 | 0 | 29 |
38530 | 피벗테이블 |
New 피벗테이블에서 총합계만 보고싶을때
![]() ![]() ![]() |
![]() |
2022.07.02 | 0 | 17 |
38483 | VBA |
New VBA 두 피벗테이블 슬라이서 연동
![]() |
![]() |
2022.07.02 | 0 | 21 |
38370 | VBA |
New 행에 마지막 입력값 삭제하는 방법 문의 드림니다.
![]() ![]() |
![]() |
2022.07.02 | 0 | 45 |
38356 | VBA |
New VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.02 | 1 | 61 |
38287 | VBA |
New VBA 범위 입력 소스 문의 합니다.
(6)
답변완료
![]() ![]() |
![]() ![]() |
2022.07.02 | 1 | 60 |
38284 | 기능/도구 |
New 엑셀 여러가지파일 탭으로 보기
![]() ![]() |
![]() |
2022.07.02 | -1 | 30 |
38260 | 파워쿼리/피벗 |
New 청사 출입기록을 월별, 인원별로 정리하고 싶은데 선배님들 조언을 구합니다.
![]() ![]() ![]() |
![]() |
2022.07.02 | 0 | 29 |
38258 | VBA |
New 기준열과 동일하게 셀병합 하는 vba
![]() ![]() ![]() |
![]() |
2022.07.02 | 0 | 45 |
38251 | 함수/공식 |
New 엑셀 다중조건으로 다른시트에 추출후 수정해서 원본시트에 업데이트방법?
![]() ![]() ![]() |
![]() ![]() |
2022.07.02 | 0 | 36 |
38197 | VBA |
New VBA 매크로 SelectionChange 명령문(스크립트) 조언 받고자 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.01 | 0 | 27 |
38191 | 함수/공식 |
New 특정 텍스트만 추출하는 함수에서..
(1)
답변완료
![]() |
![]() |
2022.07.01 | 0 | 32 |
38187 | 기능/도구 |
New 엑린이] 시트값을 자동으로 불러오고 싶습니다
(2)
답변완료
![]() |
![]() |
2022.07.01 | 0 | 32 |
38183 | VBA |
New VBA 매크로 SelectionChange 명령문 조언 받고자 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.01 | 1 | 38 |
38182 | 함수/공식 |
New FILTER함수 사용시에 함수가 안먹히는 문제
![]() ![]() ![]() |
![]() ![]() |
2022.07.01 | 0 | 25 |
38177 | 함수/공식 |
New 값을 찾아 가져오고 싶습니다.
![]() ![]() |
![]() |
2022.07.01 | 0 | 23 |
38175 | 문서서식 |
New 핸드폰 번호 서식을 통일 시키고 싶습니다...
(2)
![]() |
![]() |
2022.07.01 | 0 | 26 |
38154 | 함수/공식 |
New 재고파일을 만들고 있는데 수식이.. ㅠㅠ
![]() ![]() |
![]() |
2022.07.01 | -1 | 43 |
38152 | VBA |
New Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생하는데, 해결방법에 대해 도움 부탁 드립니다
(3)
답변완료
![]() |
![]() |
2022.07.01 | 0 | 23 |
38150 | 함수/공식 |
New MATCH함수 문의
![]() ![]() ![]() |
![]() |
2022.07.01 | 0 | 27 |
@아무것도몰라요 님 이렇게 사용해보세요 ~^^ 도움이 되셨길
@더블유에이 님 정렬부분 해결했습니다. 감사합니다!!