Как да проверя размера на всеки работен лист от работната книга?
Да предположим, че имате голяма работна книга, която съдържа множество работни листове, и сега искате да разберете размера на всеки работен лист, за да определите кой лист трябва да бъде намален. Има ли бързи методи за справяне с тази задача?
Проверете размера на всеки работен лист с VBA код
Проверете размера на всеки работен лист с Kutools за 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 ключ за изпълнение на този код и нов работен лист с име Kutools за Excel ще бъде вмъкнат в текущата работна книга, която съдържа име на всеки работен лист и размер на файла, а единицата е бит. Вижте екранна снимка:
Проверете размера на всеки работен лист с Kutools за Excel
Ако имате Kutools за Excel, Със своята Разделена работна книга помощна програма, можете да разделите цялата работна книга на отделни файлове и след това да отидете в конкретната папка, за да проверите размера на всеки файл.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
След като инсталирате Kutools за Excel, направете следните стъпки:
1. Отворете работната книга, която искате да проверите размера на всеки работен лист, и щракнете Enterprise > Инструменти за работна книга > Разделена работна книга, вижте екранна снимка:
2. В Разделена работна книга диалогов прозорец, проверете всички работни листове и щракнете разцепен и след това задайте папка, в която да поставите новите файлове на работната книга. Вижте екранни снимки:
 |
 |
 |
3. И тогава всеки работен лист от текущата ви работна книга ще бъде записан като отделен файл на Excel, можете да отидете в конкретната папка, за да проверите размера на всяка работна книга.
За да научите повече за тази функция за разделяне на работна книга.
Още по темата:
Как да разделя работна книга, за да отделя Excel файлове в Excel?
Как да експортирате и запазвате листове и работни листове като нова работна книга в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
