Как проверить размер каждого листа в книге?

Предположим, у вас есть большая книга, которая содержит несколько листов, и теперь вы хотите узнать размер каждого листа, чтобы определить, какой из них нужно уменьшить. Существуют ли быстрые методы для выполнения этой задачи?

Проверка размера каждого листа с помощью кода VBA

Проверка размера каждого листа с помощью Kutools для 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 для Excel

Если у вас есть "Kutools для Excel", с помощью его функции "Разделить книгу", вы можете разделить всю книгу на отдельные файлы, а затем перейти в указанную папку, чтобы проверить размер каждого файла.

"Kutools для Excel" включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получите это сейчас.

После установки Kutools для Excel выполните следующие шаги:

1. Откройте книгу, размер каждого листа которой вы хотите проверить, и нажмите "Kutools Plus" > "Книга" > "Разделить книгу".

2. В диалоговом окне "Разделить книгу" отметьте все листы и нажмите кнопку "Разделить", а затем укажите папку для размещения новых файлов книги. Смотрите скриншоты:

3. И каждый лист вашей текущей книги будет сохранен как отдельный файл Excel, вы можете перейти в указанную папку, чтобы проверить размер каждой книги.

Чтобы узнать больше об этой функции Разделить книгу.

Связанные статьи:

Как разделить книгу на отдельные файлы Excel в Excel?

Как экспортировать и сохранить листы и рабочие листы как новую книгу в Excel?