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ö.Kopioi arkin sisältö
  3. Luo sitten uusi työkirja ja liitä kopioitu laskentataulukko Taulukkoon 1.Liitä kopioitu laskentataulukko
  4. Tallenna myöhemmin uusi työkirja Windows-kansioon.Tallenna uusi työkirja
  5. Viimeisenä voit tarkistaa uuden työkirjan datakoon, joka on yhtä suuri kuin laskentataulukon tietokoko, Resurssienhallinnassa, kuten seuraavassa kuvakaappauksessa näkyy.Hanki tietojen koko Resurssienhallinnassa
  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 laskentataulukko Dim objWorksheet As Worksheet Dim objRange As Range Dim i As Long Dim nLastEmptyRow As Integer strTargetSheetName = "Arkin koot" strTempWorkbook = ThisWorkbook.Path & "\ Temp Workbook.xls" ActiveWorkbook.Worksheets.Add (Ennen: = Application.Worksheets (1)) .Nimi = strTargetSheetName .Cells (1, 1) = "Sheet" .Cells (1, 1) .Font.Size = 14 .Cells (1, 1) .Font.Bold = True .Cells (1, 2) = "Koko". Solut (1, 2) .Font.Size = 14 .Cells (1, 2) .Font.Bold = True End With Set objTargetWorksheet = Sovellus. työarkit (strTargetSheetName) jokaiselle objWorksheet-sovellukselle Application.ActiveWorkbook.Worksheets If objWorksheet.Name <> strTargetSheetName Sitten objWorksheet.Copy Application.ActiveWorkbook.SaveAs strTempWorkbook Application.ActiveWorkbook.Close SaveChanges: = Väärä nLastEmptyRow = objTargetWorksheet.Range ("A" ja objTargetWorksheet.Rows.Count) .End (xlUp) .Rivi + 1 ObjTargetWorksheet .Cells (nLastEmptyRow, 1) = objWorksheet.Name .Cells (nLastEmptyRow, 2) = FileLen (strTempWorkbook) Tappaa strTempWorkbook Lopeta jos seuraava loppuosa

VBA-koodi - Hanki kunkin laskentataulukon tietokoko Excel-työkirjasta

  1. Sen jälkeen paina “F5” suorittaaksesi tämän makron heti.
  2. Lopulta makron päättymisen jälkeen takaisin työkirjaan.
  3. Näet aivan uuden laskentataulukon, joka sisältää jokaisen laskentataulukon koon, kuten seuraava kuva.Uusi arkki kokotiedoilla

Vertailu

  edut Haitat
Menetelmä 1 Helppo käyttää Liian hankala, jos nykyisessä työkirjassa on liikaa laskentataulukoita
Menetelmä 2 Helppo ja kätevä riippumatta siitä, kuinka monta laskentataulukkoa työkirjassa on Ehkä yllä oleva VBA-koodi on vähän käsittämätön aloittelijoille

Korjaa ärsyttävät PST-ongelmat

Käyttäjät voivat kohdata kaikenlaisia ​​häiritseviä ongelmia MS Excelissä, aina odottamattomasta sammutuksesta tai resistätart vaikeaan xlsx-korruptio. Epäilemättä most oksainen ongelma on vahingoittunut Excel-tiedosto, koska sitä ei voida ratkaista helposti. Se vaatii sinua käyttämään ulkoista Excel-korjaustyökalua, 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

12 vastausta kysymykseen "2 nopeaa tapaa saada kunkin Excel-työkirjan tietokoko"

  1. Hei, minusta tuntuu, että huomasin sinun vierailevan sivustollani, joten pääsin tänne palauttamaan mieluummin?. Yritän löytää ongelmia verkkosivustoni parantamiseksi! Luulen, että se riittää hyödyntämään joitain käsitteitäsi!

  2. näkyviin tulee virheilmoitus 1004: laskentataulukkoa ei voi kopioida
    jos Excel-tiedostossani on yhteensä 10 laskentataulukkoa ja näkyvä laskentataulukko on kolme, onko virheitä?
    auttakaa parantamaan koodausta.

  3. Toimi täydellisesti, kun avasin kaikki välilehdet. Mikä tässä on säilytyskoon yksikkö? Olettaen, että se on Bits, mutta haluan olla varma. Kiitos!

  4. Se ei näytä toimivan, jos on piilotettuja välilehtiä, varmista, että kaikki välilehdet ovat näkyvissä ja sen pitäisi olla kunnossa

  5. Mitä tästä menetelmästä 2 saadut luvut tarkalleen ottaen tarkoittavat?
    Minulla on kaksi Excel-tiedostoa .xlsx, jotka on tallennettu mallin tiedoilla. Olen käyttänyt samaa mallia viimeiset 2 vuotta. Sama määrä työarkkeja (14). Pienemmät tiedostoarkin koot ovat 11610591 ja ovat 6681 kt Windowsin raportoimana. Suuremmat tiedostoarkin koot ovat 11717397 ja ovat 25471 kt Windowsin raportoimana.
    Tämä suurempi tiedostokoko vain startapahtui viimeisen 3 päivän aikana.

Jätä vastaus

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *