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

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

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'이라는 새 워크시트가 현재 워크북에 삽입됩니다. 단위는 비트입니다. 스크린샷 참고:

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

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

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

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

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

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

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

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

관련 기사:

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

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