2 brza načina za dobivanje veličine podataka svakog radnog lista u Excel radnoj knjizi

Ako želite brzo dobiti veličinu podataka za svaki radni list u Excel radnoj knjizi, možete pogledati ovaj članak. Ovdje ćemo s vama podijeliti 2 praktične metode.

Ponekad, kada imate posla s Excel radnom knjigom koja se sastoji od velike količine radnih listova, možda ćete htjeti dobiti veličinu podataka svakog radnog lista. Međutim, ne postoji izvorna značajka za ovaj zahtjev. Dakle, trebate upotrijebiti neka zaobilazna rješenja, kao što je sljedeća 1. metoda. Ili možete upotrijebiti mnogo pametniju 2. metodu da dobijete skupne veličine podataka svih radnih listova.

Metoda 1: Ručno nabavite veličinu podataka radnog lista jedan po jedan

1. Najprije otvorite određenu Excel radnu knjigu.
2. Zatim kopirajte sadržaj Excel radnog lista.
3. Zatim izradite novu radnu knjigu i zalijepite kopirani radni list u list 1.
4. Kasnije spremite novu radnu knjigu u Windows mapu.
5. Na kraju, možete provjeriti veličinu podataka nove radne knjige, jednaku veličini podataka radnog lista, u Windows Exploreru, kao što je prikazano na sljedećoj snimci zaslona.
6. Sada možete koristiti ovaj način za dobivanje veličina podataka drugih radnih listova jedan po jedan.

Metoda 2: Skupno dobivanje veličina podataka svih radnih listova putem VBA

1. Za početak otvorite Excel VBA editor prema “Kako pokrenuti VBA kod u vašem Excelu".
2. Zatim stavite sljedeći kod u projekt ili modul.

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. Nakon toga pritisnite “F5” da biste odmah pokrenuli ovu makronaredbu.
4. Na kraju, nakon završetka makronaredbe, povratak u radnu knjigu.
5. Vidjet ćete novi radni list na samom početku, koji sadrži veličinu svakog radnog lista, kao na sljedećoj slici.

usporedba

Riješite uznemirujuće probleme s PST-om

Korisnici se mogu susresti sa svim vrstama problema u MS Excelu, od neočekivanog gašenja ili ponovnog pokretanja do ozbiljnih problema. xlsx korupcijaNesumnjivo, najkompliciraniji problem je oštećena Excel datoteka jer se ne može lako riješiti. Zahtijeva primjenu vanjskog alata za popravak Excela, poput DataNumen Excel Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvariti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com