Dacă doriți să obțineți rapid dimensiunea datelor fiecărei foi de lucru dintr-un registru de lucru Excel, puteți consulta acest articol. Aici vă vom împărtăși 2 metode utile.
Uneori, atunci când aveți de-a face cu un registru de lucru Excel care constă dintr-o cantitate mare de foi de lucru, este posibil să doriți să obțineți dimensiunea datelor fiecărei foi de lucru. Cu toate acestea, nu există o caracteristică nativă pentru această cerință. Așadar, trebuie să utilizați câteva soluții, cum ar fi următoarea Metodă 1. Sau puteți utiliza Metoda 2, mult mai inteligentă, pentru a obține în bloc dimensiunile datelor tuturor foilor de lucru.
Metoda 1: Obțineți manual dimensiunea datelor din foaia de lucru unul câte unul
- La început, deschideți registrul de lucru Excel specific.
- Apoi, copiați conținutul unei foi de lucru Excel.
- Apoi, creați un nou registru de lucru și inserați foaia de lucru copiată în Foaia 1.
- Mai târziu, salvați noul registru de lucru într-un folder Windows.
- În cele din urmă, puteți verifica dimensiunea datelor noului registru de lucru, egală cu dimensiunea datelor foii de lucru, în Windows Explorer, așa cum se arată în următoarea captură de ecran.
- Acum, puteți utiliza acest mod pentru a obține dimensiunea datelor altor foi de lucru una câte una.
Metoda 2: Loturi Obțineți dimensiunile datelor tuturor foilor de lucru prin VBA
- Pentru început, deschideți editorul Excel VBA conform „Cum să rulați codul VBA în Excel".
- Apoi, introduceți următorul cod într-un proiect sau 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 = „Dimensiuni foi” strTempWorkbook = ThisWorkbook.Path & „\Temp Workbook.xls” Cu ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)) .Name = strTargetSheetName .Cells(1, 1) = „Foaie” .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) Pentru fiecare objWorksheet din Application.ActiveWorkbook.Worksheets Dacă objWorksheet.Name <> strTargetSheetName Then objWorksheet.Copy Application.ActiveWorkbook.SaveAs strTempWorkbook Application.ActiveWorkbook.Close SaveChanges:=False nLastEmptyRow = objTargetWorksheet.Range(„A” și objTargetWorksheet.Rows.Count).End(xlUp).Row + 1 Cu objTargetWorksheet .Cells(nLastEmptyRow, 1) = objWorksheet.Name .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook) End With Kill strTempWorkbook End If Next End Sub
- După aceea, apăsați „F5” pentru a rula această macrocomandă imediat.
- În cele din urmă, după terminarea macro, reveniți la registrul de lucru.
- Veți vedea o foaie de lucru nouă la început, care conține dimensiunea fiecărei foi de lucru, ca în imaginea următoare.
Comparaţie
| Avantaje | Dezavantaje | |
| Metoda 1 | Ușor de operat | Prea deranjant dacă există prea multe foi de lucru în registrul de lucru curent |
| Metoda 2 | Ușor și convenabil, indiferent câte foi de lucru există în registrul de lucru | Poate că codul VBA de mai sus este puțin de neînțeles pentru începători |
Remediați problemele PST exasperante
Utilizatorii pot întâmpina tot felul de probleme tulburătoare în MS Excel, de la închidere neașteptată sau retart la sever corupție xlsx. Fără îndoială, most Problema cu noduri este un fișier Excel deteriorat, deoarece nu poate fi rezolvată cu ușurință. Vă cere să aplicați un instrument extern de remediere Excel, cum ar fi DataNumen Excel Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupt SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com