2 бързи начина за получаване на размера на данните на всеки работен лист в работна книга на Excel

Ако искате бързо да получите размера на данните на всеки работен лист в работна книга на Excel, можете да се обърнете към тази статия. Тук ще споделим 2 удобни метода с вас.

Понякога, когато се занимавате с работна книга на Excel, която се състои от голямо количество работни листове, може да искате да получите размера на данните на всеки работен лист. За това изискване обаче няма естествена функция. Така че, трябва да използвате някои заобикалящи решения, като следния метод 1. Или можете да използвате много по-интелигентния метод 2, за да получите обема на данните на всички работни листове.

Метод 1: Вземете ръчно размер на данните за работния лист един по един

1. Отначало отворете конкретната работна книга на Excel.
2. След това копирайте съдържанието на работен лист на Excel.
3. След това създайте нова работна книга и поставете копирания работен лист в лист 1.
4. По-късно запазете новата работна книга в папка на Windows.
5. И накрая, можете да проверите размера на данните на новата работна книга, равен на размера на данните на работния лист, в Windows Explorer, както е показано на следващата екранна снимка.
6. Сега можете да използвате този начин, за да получите размера на данните на други работни листове един по един.

Метод 2: Пакетно получаване на размерите на данните на всички работни листове чрез VBA

1. Като начало отворете редактора на Excel VBA според „Как да стартирате VBA код във вашия Excel".
2. След това поставете следния код в проект или модул.

Sub GetEachWorksheetSize()
    Dim strTargetSheetName As String
    Dim strTempWorkbook As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objRange As Range
    Dim i As Long
    Dim nLastEmptyRow As Integer

    strTargetSheetName = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Size"
         .Cells(1, 2).Font.Size = 14
         .Cells(1, 2).Font.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strTargetSheetName Then
           objWorksheet.Copy

           Application.ActiveWorkbook.SaveAs strTempWorkbook
           Application.ActiveWorkbook.Close SaveChanges:=False

           nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1

           With objTargetWorksheet
                .Cells(nLastEmptyRow, 1) = objWorksheet.Name
                .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)
           End With

           Kill strTempWorkbook
         End If
    Next
End Sub

3. След това натиснете „F5“, за да стартирате този макрос веднага.
4. В крайна сметка, след като макросът завърши, обратно към работната книга.
5. В самото начало ще видите нов работен лист, който съдържа размера на всеки работен лист, като следващото изображение.

сравнение

Коригирайте досадни проблеми с PST

Потребителите могат да се сблъскат с всякакви обезпокоителни проблеми в MS Excel, вариращи от неочаквано изключване или рестартиране до сериозни xlsx корупцияБезспорно най-сложният проблем е повреденият Excel файл, тъй като не може да бъде решен лесно. Това изисква да използвате външен инструмент за поправка на Excel, като например DataNumen Excel Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повредени SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com