Как узнать размер каждого листа в книге?
Допустим, у вас есть объёмная книга с несколькими листами, и вы хотите быстро определить размер каждого из них, чтобы понять, какие стоит уменьшить. Существуют ли для этого быстрые способы?
Проверка размера каждого листа с помощью кода VBA
Проверка размера каждого листа с помощью Kutools для Excel
Проверка размера каждого листа с помощью кода VBA
С помощью приведённого ниже кода VBA вы сможете быстро определить размер каждого листа в своей книге. Выполните следующие действия:
1. Удерживая клавиши «ALT» + «F11», откройте окно Microsoft Visual Basic for Applications.
2. Нажмите «Insert» (Вставить) → «Module» (Модуль) и вставьте приведённый ниже код в окно модуля.
Код 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» > «Workbook» (Книга) > «Разделить книгу».
2. В диалоговом окне «Разделить книгу» отметьте все нужные листы, нажмите кнопку «Split» (Разделить), а затем укажите папку для сохранения новых файлов рабочих книг. См. снимки экрана:
 |
 |
 |
3. После этого каждый лист вашей текущей книги будет сохранён как отдельный файл Excel, и вы сможете перейти в указанную папку, чтобы проверить размер каждого файла.
Подробнее о функции «Разделить книгу».
Связанные статьи:
Как разделить книгу на отдельные файлы Excel?
Как экспортировать и сохранить листы как новую рабочую книгу в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек