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
- Aluksi avaa tietty Excel-työkirja.
- Kopioi sitten Excel-laskentataulukon sisältö.
- Luo sitten uusi työkirja ja liitä kopioitu laskentataulukko Taulukkoon 1.
- Tallenna myöhemmin uusi työkirja Windows-kansioon.
- Viimeisenä voit tarkistaa uuden työkirjan datakoon, joka on yhtä suuri kuin laskentataulukon tietokoko, Resurssienhallinnassa, kuten seuraavassa kuvakaappauksessa näkyy.
- Nyt voit käyttää tätä tapaa saada muiden laskentataulukoiden datakoot yksitellen.
Tapa 2: Erä Hae kaikkien laskentataulukoiden tietokoot VBA: n kautta
- Aluksi avaa Excel VBA -editori kohdan ”Kuinka suorittaa VBA-koodi Excelissä".
- 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
- Sen jälkeen paina “F5” suorittaaksesi tämän makron heti.
- Lopulta makron päättymisen jälkeen takaisin työkirjaan.
- Näet aivan uuden laskentataulukon, joka sisältää jokaisen laskentataulukon koon, kuten seuraava kuva.
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