Skip to main content

워크북의 각 워크시트 크기를 확인하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-05-20

여러 워크시트를 포함하는 큰 워크북이 있고, 이제 각 워크시트의 크기를 확인하여 어느 시트를 축소해야 할지 결정하려고 합니다. 이 작업을 처리하기 위한 빠른 방법들이 있을까요?

VBA 코드로 각 워크시트의 크기 확인하기

Kutools for Excel로 각 워크시트의 크기 확인하기


VBA 코드로 각 워크시트의 크기 확인하기

다음 VBA 코드를 사용하면 워크북의 각 워크시트 크기를 빠르게 확인할 수 있습니다. 아래 단계를 따르세요:

1. 'ALT' + 'F11' 키를 누르면 'Microsoft Visual Basic for Applications 창'이 열립니다.

2. '삽입' > '모듈'을 클릭하고 '모듈 창'에 다음 코드를 붙여넣으세요.

VBA 코드: 워크북에서 각 워크시트의 크기 확인하기

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. 그런 다음 'F5' 키를 눌러 이 코드를 실행하세요. 그러면 각 워크시트 이름과 파일 크기가 포함된 'KutoolsforExcel'이라는 새 워크시트가 현재 워크북에 삽입됩니다. 단위는 비트입니다. 스크린샷 참고:

check sheet size with vba code to get the result


Kutools for Excel로 각 워크시트의 크기 확인하기

'Kutools for Excel'이 있다면, '워크북 분리' 기능을 사용하여 전체 워크북을 개별 파일로 분리한 후 특정 폴더로 이동하여 각 파일의 크기를 확인할 수 있습니다.

'Kutools for Excel'에는 300개 이상의 유용한 Excel 도구가 포함되어 있습니다. 30일 동안 제한 없이 무료로 사용해 볼 수 있습니다. 지금 바로 다운로드하세요.

Kutools for Excel 설치 후 다음 단계를 수행하세요:

1. 각 워크시트 크기를 확인하려는 워크북을 열고 'Kutools Plus' > '워크북' > '워크북 분리'를 클릭합니다.

2. '워크북 분리' 대화 상자에서 모든 워크시트를 선택하고 '분리' 버튼을 클릭한 다음 새 워크북 파일을 저장할 폴더를 지정합니다. 스크린샷 참고:

check sheet size by splitting each sheet with kutools 1
arrow
check sheet size by splitting each sheet with kutools 2

3. 그러면 현재 워크북의 각 워크시트가 개별 Excel 파일로 저장되며, 특정 폴더로 이동하여 각 워크북의 크기를 확인할 수 있습니다.

check sheet size by splitting each sheet with kutools result

워크북 분리 기능에 대해 자세히 알아보기.


관련 기사:

Excel에서 워크북을 별도의 Excel 파일로 분리하는 방법은 무엇입니까?

Excel에서 시트와 워크시트를 새 워크북으로 내보내고 저장하는 방법은 무엇입니까?


최고의 오피스 생산성 도구

? Kutools AI Aide: 지능형 실행, 코드 생성, 사용자 정의 수식 작성, 데이터 분석 및 차트 생성, Kutools 함수 호출을 기반으로 데이터 분석 혁신…
인기 기능: 중복 찾기, 강조 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열 또는 셀 결합   |   수식 없이 반올림 ...
슈퍼 LOOKUP: 다중 조건 VLookup    다중 값 VLookup  |   다중 시트 조회   |   퍼지 매치 ....
고급 드롭다운 목록: 빠르게 드롭다운 목록 만들기   |  종속 드롭다운 목록   |  다중 선택 드롭다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  숨겨진 열의 가시성 상태 전환  |  범위 및 열 비교 ...
주요 기능: 그리드 포커스   |  디자인 보기   |   향상된 수식 표시줄    통합 문서 및 시트 관리자   |  자동 텍스트 라이브러리 (Auto Text)   |  날짜 선택기   |  데이터 병합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵은 글꼴/이탤릭체/취소선 필터링...) ...
최고의 15가지 도구 모음12개의 텍스트 도구 (텍스트 추가, 특정 문자 삭제, ...)   |   50+ 차트 유형 (간트 차트, ...)   |   40+ 실용적인 수식 (생일을 기반으로 나이 계산, ...)   |   19개 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입, ...)   |   12개 변환 도구 (단어로 변환하기, 통화 변환, ...)   |   7개 병합 및 분할 도구 (고급 행 병합, 셀 분할, ...)   |   ... 그리고 더 많은 기능들

Kutools for Excel로 엑셀 스킬을 강화하고 지금까지 경험하지 못한 효율성을 체험하세요. Kutools for Excel은 생산성을 향상시키고 시간을 절약할 수 있는 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하세요...


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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기를 활성화하세요.
  • 새 창 대신 동일한 창의 새 탭에서 여러 문서를 열고 생성하세요.
  • 생산성을 50% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!