Cum să verificați dimensiunea fiecărei foi de lucru a registrului de lucru?
Presupunând că aveți un registru de lucru mare care conține mai multe foi de lucru, iar acum, doriți să aflați dimensiunea fiecărei foi de lucru pentru a determina ce foaie trebuie redusă. Există metode rapide pentru a face față acestei sarcini?
Verificați dimensiunea fiecărei foi de lucru cu codul VBA
Verificați dimensiunea fiecărei foi de lucru cu Kutools pentru Excel
Verificați dimensiunea fiecărei foi de lucru cu codul VBA
Cu următorul cod VBA, puteți obține rapid dimensiunea fiecărei foi de lucru din registrul dvs. de lucru. Vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: verificați dimensiunea fiecărei foi de lucru dintr-un registru de lucru </ p>
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. Apoi apăsați F5 cheie pentru a executa acest cod și o nouă foaie de lucru numită KutoolsforExcel va fi inserat în registrul de lucru curent care conține numele fișei de lucru și dimensiunea fișierului, iar unitatea este Bit. Vedeți captura de ecran:
Verificați dimensiunea fiecărei foi de lucru cu Kutools pentru Excel
Dacă aveţi Kutools pentru Excel, Cu său Carnet de lucru divizat utilitar, puteți împărți întregul registru de lucru în fișiere separate, apoi mergeți la folderul specific pentru a verifica dimensiunea fiecărui fișier.
Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.
După instalarea Kutools pentru Excel, efectuați următorii pași:
1. Deschideți registrul de lucru pe care doriți să verificați dimensiunea fiecărei foi de lucru și faceți clic pe Afacere > Instrumente de registru de lucru > Carnet de lucru divizat, vezi captura de ecran:
2. În Carnet de lucru divizat , verificați toate foile de lucru și faceți clic pe Despică , apoi specificați un folder pentru a pune noile fișiere din registrul de lucru. Vedeți capturi de ecran:
3. Și apoi fiecare foaie de lucru a registrului de lucru curent va fi salvată ca fișier Excel separat, puteți merge la folderul dvs. specific pentru a verifica dimensiunea fiecărui registru de lucru.
Pentru a afla mai multe despre această funcție Split Workbook.
Legate de articole:
Cum se împarte un registru de lucru pentru a separa fișierele Excel în Excel?
Cum se exportă și se salvează foi și foi de lucru ca registru de lucru nou în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!