고급필터에서 빈셀 포함 조건셀이 2개 이상일때 누락 데이터, 오름/내림차순 순서 바꾸는 방법 문의

함수/공식
작성자
아무것도몰라요
작성일
2022-03-28 16:14
조회
157
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요 고급필터 자동화파일 관련하여 궁금한 점이 있어 문의합니다.

 

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
전체 2

  • 2022-03-28 16:35
    채택된 답변

    @아무것도몰라요 님 이렇게 사용해보세요 ~^^ 도움이 되셨길

    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, xlDescending, 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
    

     


    • 2022-03-28 17:15

      @더블유에이 님 정렬부분 해결했습니다. 감사합니다!!


전체 6,864
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! ~7/8(금) 까지 -- 📌 (96)
오빠두엑셀 | 2022.06.23 | 추천 141 | 조회 17158
오빠두엑셀 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
곱칭 10:45 0 5
38868 VBA
New 행복한 한 주 시작 하시길 바랍니다. 도와주세요(고급필터 애러) 엑셀파일첨부파일
파란맥 | 08:42 | 추천 0 | 조회 9
파란맥 08:42 0 9
38839 VBA
New 1주차 VBA 강의 질문입니다 첨부파일 (1)
WWW | 2022.07.03 | 추천 0 | 조회 26
WWW 2022.07.03 0 26
38828 VBA
New VBA 스터디 1주차 두번째 미션 실패 ㅠㅠ 도와주세요 첨부파일 (1)
YJ | 2022.07.03 | 추천 0 | 조회 22
YJ 2022.07.03 0 22
38811 구글시트
New COUNTA 함수 엑셀파일 (4)
거꾸로문 | 2022.07.03 | 추천 0 | 조회 28
거꾸로문 2022.07.03 0 28
38785 VBA
New 1주차 VBA 강의 질문입니다 첨부파일 (1)
sebin**** | 2022.07.03 | 추천 0 | 조회 27
sebin**** 2022.07.03 0 27
38758 VBA
New 고급필터 자동화 범위 설정시 애러 문의 합니다. 첨부파일
파란맥 | 2022.07.03 | 추천 0 | 조회 15
파란맥 2022.07.03 0 15
38730 파워쿼리/피벗
New 피벗테이블 정렬 순서 변경에 관해서 질문드립니다.
월마리아 | 2022.07.03 | 추천 1 | 조회 19
월마리아 2022.07.03 1 19
38686 VBA
New VBA 4주 완성 1편에서 Visual Basic 질문 첨부파일 (3) 답변완료
도토리이 | 2022.07.03 | 추천 0 | 조회 47
도토리이 2022.07.03 0 47
38660 VBA
New VBA, 매크로, 함수 중에 조건에 맞는 값을 가져오기 문의 합니다. 엑셀파일첨부파일 (2)
파란맥 | 2022.07.03 | 추천 0 | 조회 43
파란맥 2022.07.03 0 43
38655 함수/공식
New 근무시간 산출 함수식 문의 드립니다. 엑셀파일 (1)
민쉬 | 2022.07.03 | 추천 0 | 조회 29
민쉬 2022.07.03 0 29
38530 피벗테이블
New 피벗테이블에서 총합계만 보고싶을때 엑셀파일첨부파일 (1)
까까오똑 | 2022.07.02 | 추천 0 | 조회 17
까까오똑 2022.07.02 0 17
38483 VBA
New VBA 두 피벗테이블 슬라이서 연동
라바 | 2022.07.02 | 추천 0 | 조회 21
라바 2022.07.02 0 21
38370 VBA
New 행에 마지막 입력값 삭제하는 방법 문의 드림니다. 첨부파일 (2) 답변완료
033cola | 2022.07.02 | 추천 0 | 조회 45
033cola 2022.07.02 0 45
38356 VBA
New VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다. 엑셀파일첨부파일 (6) 답변완료
파란맥 | 2022.07.02 | 추천 1 | 조회 61
파란맥 2022.07.02 1 61
38287 VBA
New VBA 범위 입력 소스 문의 합니다. (6) 답변완료
파란맥 | 2022.07.02 | 추천 1 | 조회 60
파란맥 2022.07.02 1 60
38284 기능/도구
New 엑셀 여러가지파일 탭으로 보기 첨부파일
asfdadfs | 2022.07.02 | 추천 -1 | 조회 30
asfdadfs 2022.07.02 -1 30
38260 파워쿼리/피벗
New 청사 출입기록을 월별, 인원별로 정리하고 싶은데 선배님들 조언을 구합니다. 엑셀파일첨부파일 (1)
비에리 | 2022.07.02 | 추천 0 | 조회 29
비에리 2022.07.02 0 29
38258 VBA
New 기준열과 동일하게 셀병합 하는 vba 엑셀파일첨부파일 (2) 답변완료
007 | 2022.07.02 | 추천 0 | 조회 45
007 2022.07.02 0 45
38251 함수/공식
New 엑셀 다중조건으로 다른시트에 추출후 수정해서 원본시트에 업데이트방법? 엑셀파일
제임스딘 | 2022.07.02 | 추천 0 | 조회 36
제임스딘 2022.07.02 0 36
38197 VBA
New VBA 매크로 SelectionChange 명령문(스크립트) 조언 받고자 합니다. 엑셀파일첨부파일 (2) 답변완료
파란맥 | 2022.07.01 | 추천 0 | 조회 27
파란맥 2022.07.01 0 27
38191 함수/공식
New 특정 텍스트만 추출하는 함수에서.. (1) 답변완료
최사무엘 | 2022.07.01 | 추천 0 | 조회 32
최사무엘 2022.07.01 0 32
38187 기능/도구
New 엑린이] 시트값을 자동으로 불러오고 싶습니다 (2) 답변완료
세잎 | 2022.07.01 | 추천 0 | 조회 32
세잎 2022.07.01 0 32
38183 VBA
New VBA 매크로 SelectionChange 명령문 조언 받고자 합니다. 엑셀파일첨부파일 (7) 답변완료
파란맥 | 2022.07.01 | 추천 1 | 조회 38
파란맥 2022.07.01 1 38
38182 함수/공식
New FILTER함수 사용시에 함수가 안먹히는 문제 첨부파일 (1)
엑셀고수되는방법좀 | 2022.07.01 | 추천 0 | 조회 25
엑셀고수되는방법좀 2022.07.01 0 25
38177 함수/공식
New 값을 찾아 가져오고 싶습니다. 엑셀파일 (1) 답변완료
땅콩바라기 | 2022.07.01 | 추천 0 | 조회 23
땅콩바라기 2022.07.01 0 23
38175 문서서식
New 핸드폰 번호 서식을 통일 시키고 싶습니다... (2)
qwerty | 2022.07.01 | 추천 0 | 조회 26
qwerty 2022.07.01 0 26
38154 함수/공식
New 재고파일을 만들고 있는데 수식이.. ㅠㅠ 엑셀파일 (2) 답변완료
최사무엘 | 2022.07.01 | 추천 -1 | 조회 43
최사무엘 2022.07.01 -1 43
38152 VBA
New Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생하는데, 해결방법에 대해 도움 부탁 드립니다 (3) 답변완료
Jas | 2022.07.01 | 추천 0 | 조회 23
Jas 2022.07.01 0 23
38150 함수/공식
New MATCH함수 문의 엑셀파일첨부파일 (1) 답변완료
땅콩바라기 | 2022.07.01 | 추천 0 | 조회 27
땅콩바라기 2022.07.01 0 27