2 nopeaa tapaa saada kunkin laskentataulukon tietokoko Excel-työkirjassa

Jos haluat saada jokaisen laskentataulukon datakoko nopeasti Excel-työkirjassa, voit viitata tähän artikkeliin. Täällä jaamme 2 kätevää menetelmää kanssasi.

Toisinaan, kun käsittelet Excel-työkirjaa, joka koostuu suuresta määrästä laskentataulukoita, saatat haluta saada kunkin taulukon datakoon. Tätä vaatimusta ei kuitenkaan ole natiiviominaisuus. Joten sinun on käytettävä joitain kiertotapoja, kuten seuraava menetelmä 1. Tai voit käyttää paljon älykkäämpiä menetelmää 2 saadaksesi kaikki laskentataulukoiden datakoot kerralla.

Tapa 1: Hanki laskentataulukon koko yksi kerrallaan manuaalisesti

1. Aluksi avaa tietty Excel-työkirja.
2. Kopioi sitten Excel-laskentataulukon sisältö.
3. Luo sitten uusi työkirja ja liitä kopioitu laskentataulukko Taulukkoon 1.
4. Tallenna myöhemmin uusi työkirja Windows-kansioon.
5. Viimeisenä voit tarkistaa uuden työkirjan datakoon, joka on yhtä suuri kuin laskentataulukon tietokoko, Resurssienhallinnassa, kuten seuraavassa kuvakaappauksessa näkyy.
6. Nyt voit käyttää tätä tapaa saada muiden laskentataulukoiden datakoot yksitellen.

Tapa 2: Erä Hae kaikkien laskentataulukoiden tietokoot VBA: n kautta

1. Aluksi avaa Excel VBA -editori kohdan ”Kuinka suorittaa VBA-koodi Excelissä".
2. Laita sitten seuraava koodi projektiin tai moduuliin.

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. Sen jälkeen paina “F5” suorittaaksesi tämän makron heti.
4. Lopulta makron päättymisen jälkeen takaisin työkirjaan.
5. Näet aivan uuden laskentataulukon, joka sisältää jokaisen laskentataulukon koon, kuten seuraava kuva.

Vertailu

Korjaa ärsyttävät PST-ongelmat

Käyttäjät voivat kohdata kaikenlaisia ​​häiritseviä ongelmia MS Excelissä odottamattomasta sammumisesta tai uudelleenkäynnistyksestä vakaviin xlsx-korruptioKiistatta hankalin ongelma on vioittunut Excel-tiedosto, koska sitä ei voida korjata helposti. Se vaatii ulkoisen Excel-korjaustyökalun, kuten DataNumen Excel Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien lahjoa SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com