열에 빈 셀이 있으면 행을 자동으로 숨기는 방법은 무엇입니까?

열에 빈 셀을 채우는 데이터 범위가 있고 이제 해당 열에 빈 셀이 포함 된 행을 자동으로 숨기려고합니다. Excel에서이 작업을 빠르고 쉽게 해결할 수있는 좋은 방법이 있습니까?

VBA 코드가있는 열의 빈 셀인 경우 행 자동 숨기기

다음 코드는 특정 열의 셀이 한 번에 비어있는 경우 모든 행을 숨기는 데 도움이 될 수 있으며 해당 열의 셀 내용을 삭제하면 행도 자동으로 숨겨집니다. 다음과 같이하십시오 :

1. 열에 빈 셀이있는 경우 행을 자동으로 숨기려는 시트 탭을 마우스 오른쪽 버튼으로 클릭 한 다음 코드보기 컨텍스트 메뉴에서 튀어 나온 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 칸에 붙여 넣으십시오. 모듈:

VBA 코드 : 열에 빈 셀이있는 경우 행 자동 숨기기 :

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

주의 사항: 위 코드에서 A1 : A20 자동으로 숨기려는 빈 셀이 포함 된 데이터 목록입니다.

2. 그런 다음 워크 시트로 돌아가서 셀을 두 번 클릭하고 엔터 버튼 키를 누르면 A 열의 빈 셀이 포함 된 행이 한 번에 숨겨지며 A 열의 지정된 셀에서 셀 내용을 지우면 행이 자동으로 숨겨집니다.

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.

자세히보기 ... 무료 다운로드... 매수...

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...

코멘트 (32)

아직 평가가 없습니다. 가장 먼저 평가하세요!

개미

약 5 년 전

#21776

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 저는 Excel 2016을 사용하고 있으며 작동하지 않습니다. 구문 오류 메시지가 나타납니다. 도울 수 있니?

스카이양 개미

약 5 년 전

#21777

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 개미님,

위의 코드는 내 Excel 2016에서 잘 작동합니다. 코드의 셀 참조를 필요에 맞게 변경하셨습니까?

보고서

라스

약 5 년 전

#21785

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

런타임 오류 '13'이 발생합니다.

유형 불일치

도와줄 사람???

알렉스

약 5 년 전

#22014

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Enter 키를 누른 후 이 매크로가 자동으로 실행되지 않도록 할 수 있습니까? 클릭할 때만 셀을 숨기도록 버튼에 첨부할 수 있습니까?

데빈 알렉스

약 4 년 전

#22015

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

누구든지 이것을 알아 냈습니까? 저도 알고 싶습니다.

사기 데빈

약 4 년 전

#22016

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

아무도 아직 답을 생각해 냈어?

안드레아 사기

약 4 년 전

#22017

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

여기에 같은 질문

스카이양 안드레아

약 4 년 전

#22018

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 얘들아,
버튼을 사용하여 특정 열에 빈 셀이 포함된 행을 숨기려면 다음과 같이 하십시오.
먼저 개발자 탭에서 명령 단추를 삽입해야 합니다.
그런 다음 명령 단추에 다음 VBA 코드를 적용합니다(참고: 셀 참조 a1:a20을 자신의 것으로 변경하십시오).

Private Sub CommandButton1_Click ()
Dim rng As Range, x As Range
rng = 범위 설정("a1:a20")
Application.ScreenUpdating = False
각 x에 대해 rng
Len(x.Text) = 0이면
x.EntireRow.Hidden = True
다른
x.EntireRow.Hidden = 거짓
END IF
다음 x
Application.ScreenUpdating = True
최종 하위

그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!

첨부 파일보기 (1 / 5)

보고서

친메이 살페

약 4 년 전

#25197

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

VBA 코드가 있는 2개의 다른 열에 빈 셀이 있는 경우 자동으로 행을 숨기는 방법

스카이양 친메이 살페

약 4 년 전

#25198

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 살페입니다.
2개의 다른 열에 빈 셀이 있는 경우 행을 자동으로 숨기려면 다음 코드를 적용하십시오.

개인 하위 Worksheet_Change (범위로 ByVal 대상)
Dim xRg, 범위로 xCell
Dim xRgs, xRgArea As Range
xRgs 설정 = 범위("A1:A22,D1:D22")
Application.ScreenUpdating = False
오류 발생 시 Ctn으로 이동
xRgs.Areas의 각 xRgArea에 대해
Debug.Print xRgArea.Address
xRgArea.Columns의 각 xRg에 대해
xRg.Rows의 각 xCell에 대해
xCell.Value = ""인 경우
xCell.EntireRow.Hidden = 참
고투컨텐츠
ElseIf Not xCell.EntireRow.Hidden then
xCell.EntireRow.Hidden = 거짓
END IF
참조:
다음
다음
다음
Application.ScreenUpdating = True
최종 하위

필요에 따라 셀 참조를 변경할 수 있습니다.
시도하십시오!

보고서

فتحى السعيد

약 4 년 전

#26276

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف واصف لبطأ شيت بطريقة

아킨타 판데

약 3 년 전

#28283

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

수식 결과로 셀이 비어 있는 경우 코드가 작동하는지 여부를 알고 싶습니다.

스카이양 아킨타 판데

약 3 년 전

#28284

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, ACHINTA입니다.
위의 VBA 코드는 수식의 결과로 빈 셀에도 적용됩니다. 시도해 볼 수 있습니다. 감사합니다!

보고서

조롱

약 3 년 전

#28692

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

수식은 처음에 정보를 기반으로 셀을 숨기는 역할을 하지만 내용이 변경되면 셀을 다시 표시하지 않습니다. 정보로 채워진 모든 새 셀을 표시하고 싶습니다(셀 조회를 통해 발생). 어떻게 해야 하나요?

템포 조롱

약 5 개월 전

#39851

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Bom dia, esta é minha necessidade também.

Preciso ocultar e quando a célula for preenchida (uso uma fórmula que preenche a mesma se houver valor em outtra planilha) seja reexibida a linha novamente de forma automática.

감사합니다.

카차

약 2 년 전

#34313

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

내가 원하는 것은 활성 시트에서 다음과 같이 작동하는 것입니다.

셀 D2:D55 = ""인 경우
그런 다음 Hide.EntireRow

셀 D2:D55 = "값이 있음"인 경우
그런 다음 Show.EntireRow

어떻게?

스카이양 카차

약 2 년 전

#34314

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, Kacha, 코드의 셀 참조를 아래와 같이 자신의 셀 범위로 변경하기만 하면 됩니다. Private Sub Worksheet_Change(ByVal Target As Range)
'업데이트바이 Extendoffice
범위로 Dim xRg
Application.ScreenUpdating = False
범위("D2:D55")의 각 xRg에 대해
xRg.Value = ""이면
xRg.EntireRow.Hidden = 참

다른
xRg.EntireRow.Hidden = 거짓
END IF
다음 xRg
Application.ScreenUpdating = True
End Sub코드를 삽입한 후에는 아무 셀이나 두 번 클릭하고 Enter 키를 눌러 코드를 적용하는 것을 잊지 마십시오.

보고서

Ken

약 1 년 전

#35676

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

자동 숨기기를 취소하는 가장 간단한 방법은 무엇입니까?

빈

약 1 년 전

#36469

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, mình có dùng 2 code trong 1 file excel (1 code là của bạn) với mục đích in ra những bản riêng biệt và không bị dònga. Khi mình ấn in từng bản thì ok nhưng nếu in 1 loạt thì code Hide không có tác dụng, bạn xem giúp mình với nh

하위 PRINT_PRINT()
Dim rng As Range, x As Range
rng = 범위 설정("a16:a23")
Application.ScreenUpdating = False
각 x에 대해 rng
Len(x.Text) = 0이면
x.EntireRow.Hidden = True
다른
x.EntireRow.Hidden = 거짓
END IF
다음 x
Application.ScreenUpdating = True

희미한 p1, p2, i&
p1 = Sheet1.Range("O1").값
p2 = Sheet1.Range("O2").값
IsNumeric(p1) = False 또는 IsNumeric(p2) = False이면
tb = MsgBox("So code phai la so.", , "Thông báo")
서브 종료
END IF
p1 > p2이면
tb = MsgBox("So code sau phai >= so code truoc.", , "Thông báo")
서브 종료
END IF
p1 < 1 또는 p2 < 1이면
tb = MsgBox("소코드 phai >= 1.", , "Thông báo")
서브 종료
END IF
p1 <= p2이면
i = p1 ~ p2의 경우
Sheet1.Range("M2").값 = i
Sheet1.PrintOut
다음
END IF
최종 하위

모니카 로드리게스 페레스

약 1 년 전

#36800

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar y no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente codigo, pero no se en que fallo:
하위 OcultarColumnaSin1()
Application.ScreenUpdating = False
열의 각 범위에 대해
랑고 = ""이면
rango.EntireColumn.Hidden = 참
다른
rango.EntireColumn.Hidden = 거짓
END IF
다음 랑고
Application.ScreenUpdating = True
최종 하위

Jolsen2011

약 1 년 전

#37029

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이것은 저에게 효과적입니다. 수식에 따라 값이 변경되면 행을 숨기고 엽니다. 내가 가지고있는 질문은 내 시트의 길이가 104 행이라는 것입니다. 셀을 클릭할 때마다 약간 휘젓습니다. 활성화되었을 때 전환 속도를 높일 수 있는 방법이 있습니까? 아니면 내 컴퓨터야?고마워!

보고서

캐시

약 6 개월 전

#39166

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

열 E가 비어 있거나 0인 경우 자동으로 행을 숨기고 싶습니다.

캐시

약 6 개월 전

#39168

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

E 열의 값이 비어 있거나 0이면 행을 자동으로 숨기고 싶습니다. E의 값이 공백이나 0이 아닌 다른 값으로 변경되면 표시하고 싶습니다. 보고서는 1500행입니다.

스카이양 캐시

약 6 개월 전

#39194

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 캐시,
빈 셀 또는 0 값을 기반으로 행을 자동으로 숨기려면 아래 vba 코드를 사용하십시오.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

시도해보십시오. 도움이 되길 바랍니다!

보고서

아이 뇨만 스웨타

약 6 개월 전

#39465

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

확인란이 포함된 행을 숨기는 방법은 무엇입니까?

스카이양 아이 뇨만 스웨타

약 5 개월 전

#39550

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 스웨타

확인란이 있는 행을 숨기려면 아래 기사가 도움이 될 수 있습니다.
Excel에서 행이 숨겨져 있을 때 확인란을 숨기는 방법은 무엇입니까?

시도하십시오. 여전히 다른 질문이 있으면 여기에 의견을 말하십시오.

보고서

Asaf

약 5 개월 전

#39749

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Office 2013/2019/2021에서 코드를 실행하면 작동하지만 완료하는 데 너무 많은 시간이 걸립니다(숨기기 위해 95행만).
어떻게 속도를 낼 수 있습니까?
감사합니다!

스카이양 Asaf

약 5 개월 전

#39781

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 아사프
코드는 내 Excel 파일에서 잘 작동합니다. 괜찮으시다면 여기에 첨부 파일 통합 문서를 업로드할 수 있습니까? 우리가 문제를 확인하는 데 도움이 될 수 있도록.

감사합니다!

보고서

샤피트리 누르자나

약 5 개월 전

#39837

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat 멘세탁 파일 멘자디 PDF tapi tampilan di excelnya tetap

스카이양 샤피트리 누르자나

약 5 개월 전

#39861

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 누르자나
문제를 해결하려면 먼저 빈 행을 숨긴 다음 데이터를 인쇄해야 합니다. 데이터를 인쇄한 후 빈 행을 다시 숨겨야 합니다. 다음과 같이 하십시오.
1. 데이터 옆에 =COUNTA(A2:E2) 공식을 적용합니다. 스크린샷 참조:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png

2. 그런 다음 새 도우미 빈 열을 필터링하고 0 값 행을 모두 숨깁니다. 스크린샷 참조:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png

3. 그런 다음 새 빈 열을 숨기고 데이터를 인쇄해야합니다. 워크 시트를 인쇄 한 후 필터를 취소하여 필요에 따라 빈 행을 숨김 해제하십시오.
시도해보십시오. 도움이 되길 바랍니다!

보고서

비안 막나마라

약 1 개월 전

#42074

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 매크로의 "자동화"에 문제가 있습니다. 매크로를 "수동으로" 실행할 필요 없이 코드가 자동화된 프로세스로 작동하는 방법을 찾고 있습니다. 나는 귀하의 코드를 사용하는 데 문제가 있음을 발견했기 때문에 귀하의 코드 변형을 사용하고 있습니다. 이것은 내 변형입니다.

하위 HideRows()
범위로 Dim xRg
Application.ScreenUpdating = False
Range("A3:A800") 내의 각 xRg에 대해
If (xRg.Value = "") 다음
xRg.EntireRow.Hidden = 참
다른
xRg.EntireRow.Hidden = 거짓
END IF
다음 xRg
Application.ScreenUpdating = True
최종 하위

끊임없이 변화하는 값이 필요한 스프레드시트를 만들려고 하므로 진정한 "자동화" 프로세스가 필요합니다. 나는 비교적 VBA에 익숙하지 않으며 귀하의 코드가 실제로 이미 내 요구 사항을 충족하는 경우 VBA에 적용하는 데 도움/가르쳐 주시겠습니까? 감사.

보고서

스카이양 비안 막나마라

약 1 개월 전

#42240

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 비안
실제로 이 기사의 코드는 자동으로 실행될 수 있습니다.
코드를 복사하여 현재 워크시트의 코드 모듈에 붙여넣은 다음 워크시트로 돌아가 아무 셀이나 두 번 클릭하고 엔터 버튼 키를 사용하면 빈 셀을 포함하는 행이 바로 숨겨집니다.

이 문서의 방법을 단계별로 따르십시오. 도움이 되기를 바랍니다.
감사합니다!

보고서

아직 코멘트가 없습니다

여러분의 의견을 남겨

게스트로 게시

로그인

이름 (필수)

이메일 (필수)

이 게시물 평가 :

다시 쓰기

0 등장 인물

나는에 동의 약관 및 조건