Excel에서 행이 숨겨져 있는지 확인하는 방법은 무엇입니까?

이 문서에서는 Excel에서 지정된 범위 또는 워크시트에서 행이 숨겨져 있는지 확인하는 방법에 대해 설명합니다.

VBA 코드를 사용하여 선택한 범위에서 행이 숨겨져 있는지 확인하기
VBA 코드를 사용하여 워크시트에서 행이 숨겨져 있는지 확인하기

VBA 코드를 사용하여 선택한 범위에서 행이 숨겨져 있는지 확인하기

선택한 범위에서 행이 숨겨져 있는지 확인하고 숨겨진 행 번호를 찾으려면 다음과 같이 하세요.

1. 숨겨진 행을 확인할 범위를 선택하세요. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 아래 VBA 코드를 코드 창에 복사하세요.

VBA 코드: 선택한 범위에서 숨겨진 행 확인하기

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. 코드를 실행하려면 F5 키를 누르세요.

그러면 아래 스크린샷과 같이 숨겨진 행을 보여주는 Microsoft Excel 대화 상자가 나타납니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 워크시트에서 행이 숨겨져 있는지 확인하기

아래 VBA 코드는 Excel의 워크시트에서 숨겨진 행을 확인하는 데 도움이 될 수 있습니다. 다음과 같이 진행하세요.

1. 숨겨진 행을 확인해야 하는 워크시트를 열고, Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 아래 VBA 코드를 코드 창에 복사하세요.

VBA 코드: 워크시트에서 행이 숨겨져 있는지 확인하기

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. 코드를 실행하려면 F5 키를 누르세요.

그러면 아래 스크린샷과 같이 현재 워크시트에서 숨겨진 행을 보여주는 Microsoft Excel 대화 상자가 나타납니다.

참고: 선택한 범위 또는 워크시트에 숨겨진 행이 없는 경우 아래 스크린샷과 같은 대화 상자가 표시됩니다.

관련 기사:

• Excel에서 셀의 첫 번째 문자가 문자인지 숫자인지 확인하는 방법은 무엇입니까?