통합 문서의 각 워크 시트 크기를 확인하는 방법은 무엇입니까?
여러 워크 시트가 포함 된 큰 통합 문서가 있고 이제 축소해야 할 시트를 결정하기 위해 각 워크 시트의 크기를 확인하려고한다고 가정합니다. 이 작업을 처리하는 빠른 방법이 있습니까?
Excel 용 Kutools로 각 워크 시트의 크기 확인
VBA 코드로 각 워크 시트의 크기 확인
다음 VBA 코드를 사용하면 통합 문서의 각 워크 시트 크기를 빠르게 가져올 수 있습니다. 다음과 같이하십시오 :
1. 누르고 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.
2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.
VBA 코드 : 통합 문서의 각 워크 시트 크기 확인 </ p>
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 이 코드를 실행하는 키와 새 워크 시트 Kutoolsfor엑셀 각 워크 시트 이름과 파일 크기가 포함 된 현재 워크 북에 삽입되며 단위는 Bit입니다. 스크린 샷보기 :
Excel 용 Kutools로 각 워크 시트의 크기 확인
당신이 있으면 Excel 용 Kutools그와 통합 문서 분할 유틸리티를 사용하면 전체 통합 문서를 별도의 파일로 분할 한 다음 특정 폴더로 이동하여 각 파일의 크기를 확인할 수 있습니다.
Excel 용 Kutools 300 개 이상의 편리한 Excel 도구가 포함되어 있습니다. 30 일 동안 제한없이 무료로 사용해보세요. 그것을 지금.
Excel 용 Kutools를 설치 한 후 다음 단계를 수행하십시오.
1. 각 워크 시트의 크기를 확인하려는 워크 북을 열고 Enterprise > 통합 문서 도구 > 통합 문서 분할, 스크린 샷 참조 :
2. 에서 통합 문서 분할 대화 상자에서 모든 워크 시트를 확인하고 스플릿 버튼을 누른 다음 새 통합 문서 파일을 저장할 폴더를 지정합니다. 스크린 샷보기 :
3. 그러면 현재 통합 문서의 각 워크 시트가 별도의 Excel 파일로 저장되며 특정 폴더로 이동하여 각 통합 문서의 크기를 확인할 수 있습니다.
관련 기사 :
Excel에서 통합 문서를 분리하여 Excel 파일을 분리하는 방법은 무엇입니까?
Excel에서 시트와 워크 시트를 새 통합 문서로 내보내고 저장하는 방법은 무엇입니까?
최고의 사무 생산성 도구
🤖 | Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행 | 코드 생성 | 사용자 정의 수식 만들기 | 데이터 분석 및 차트 생성 | Kutools 기능 호출... |
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별 | 빈 행 삭제 | 데이터 손실 없이 열이나 셀 결합 | 수식없이 반올림 ... | |
슈퍼 조회: 다중 기준 VLookup | 다중 값 VLookup | 여러 시트에 걸친 VLookup | 퍼지 조회 .... | |
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성 | 종속 드롭다운 목록 | 다중 선택 드롭 다운 목록 .... | |
열 관리자: 특정 개수의 열 추가 | 열 이동 | Toggle 숨겨진 열의 가시성 상태 | 범위 및 열 비교 ... | |
특색 지어진 특징: 그리드 포커스 | 디자인보기 | 큰 수식 바 | 통합 문서 및 시트 관리자 | 리소스 라이브러리 (자동 텍스트) | 날짜 선택기 | 워크 시트 결합 | 셀 암호화/해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵게/기울임꼴/취소선 필터링...) ... | |
상위 15개 도구 세트: 12 본문 도구 (텍스트 추가, 문자 제거,...) | 50+ 거래차트 유형 (Gantt 차트,...) | 40+ 실용 방식 (생일을 기준으로 나이 계산,...) | 19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...) | 12 매출 상승 도구 (숫자를 단어로, 환율,...) | 7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...) | ... 그리고 더 |
Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다. 가장 필요한 기능을 얻으려면 여기를 클릭하십시오...
Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.
- Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
- 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!