Как проверить размер каждого листа в книге?
Предположим, у вас есть большая книга, которая содержит несколько листов, и теперь вы хотите узнать размер каждого листа, чтобы определить, какой из них нужно уменьшить. Существуют ли быстрые методы для выполнения этой задачи?
Проверка размера каждого листа с помощью кода 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?
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек