Как проверить размер каждого рабочего листа книги?
Предположим, у вас есть большая книга, содержащая несколько листов, и теперь вы хотите узнать размер каждого листа, чтобы определить, какой лист нужно уменьшить. Есть ли какие-нибудь быстрые способы справиться с этой задачей?
Проверьте размер каждого рабочего листа с помощью кода VBA
Проверьте размер каждого рабочего листа с помощью Kutools for Excel
Проверьте размер каждого рабочего листа с помощью кода VBA
С помощью следующего кода VBA вы можете быстро получить размер каждого рабочего листа в своей книге. Пожалуйста, сделайте так:
1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.
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 ключ для выполнения этого кода и новый рабочий лист с именем KutoolsforExcel будет вставлен в текущую книгу, которая содержит имя каждого рабочего листа и размер файла, а единицей измерения является бит. Смотрите скриншот:
Проверьте размер каждого рабочего листа с помощью Kutools for Excel
Если вы только что Kutools for Excel, С его Разделить книгу утилиту, вы можете разделить всю книгу на отдельные файлы, а затем перейти в конкретную папку, чтобы проверить размер каждого файла.
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.
После установки Kutools for Excel выполните следующие действия:
1. Откройте книгу, в которой вы хотите проверить размер каждого листа, и нажмите Предприятие > Рабочие инструменты > Разделить книгу, см. снимок экрана:
2. В Разделить книгу диалоговое окно, проверьте все рабочие листы и нажмите Split кнопку, а затем укажите папку для размещения файлов новой книги. Смотрите скриншоты:
3. И затем каждый рабочий лист вашей текущей книги будет сохранен как отдельный файл Excel, вы можете перейти в свою конкретную папку, чтобы проверить размер каждой книги.
Чтобы узнать больше об этой функции разделенной книги.
Статьи по теме:
Как разделить книгу на отдельные файлы Excel в Excel?
Как экспортировать и сохранять листы и рабочие листы как новую книгу в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!