워크북의 각 워크시트 크기를 확인하는 방법은 무엇입니까?
여러 워크시트를 포함하는 큰 워크북이 있고, 이제 각 워크시트의 크기를 확인하여 어느 시트를 축소해야 할지 결정하려고 합니다. 이 작업을 처리하기 위한 빠른 방법들이 있을까요?
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'이라는 새 워크시트가 현재 워크북에 삽입됩니다. 단위는 비트입니다. 스크린샷 참고:
Kutools for Excel로 각 워크시트의 크기 확인하기
'Kutools for Excel'이 있다면, '워크북 분리' 기능을 사용하여 전체 워크북을 개별 파일로 분리한 후 특정 폴더로 이동하여 각 파일의 크기를 확인할 수 있습니다.
'Kutools for Excel'에는 300개 이상의 유용한 Excel 도구가 포함되어 있습니다. 30일 동안 제한 없이 무료로 사용해 볼 수 있습니다. 지금 바로 다운로드하세요.
Kutools for Excel 설치 후 다음 단계를 수행하세요:
1. 각 워크시트 크기를 확인하려는 워크북을 열고 'Kutools Plus' > '워크북' > '워크북 분리'를 클릭합니다.
2. '워크북 분리' 대화 상자에서 모든 워크시트를 선택하고 '분리' 버튼을 클릭한 다음 새 워크북 파일을 저장할 폴더를 지정합니다. 스크린샷 참고:
![]() |
![]() |
![]() |
3. 그러면 현재 워크북의 각 워크시트가 개별 Excel 파일로 저장되며, 특정 폴더로 이동하여 각 워크북의 크기를 확인할 수 있습니다.
관련 기사:
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% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!