Kako preveriti velikost vsakega delovnega lista delovnega zvezka?
Recimo, da imate velik delovni zvezek, ki vsebuje več delovnih listov, in zdaj želite ugotoviti velikost vsakega delovnega lista, da določite, kateri list je treba zmanjšati. Ali obstajajo kakšne hitre metode za reševanje te naloge?
Velikost vsakega delovnega lista preverite s kodo VBA
Velikost vsakega delovnega lista preverite s programom Kutools za Excel
Velikost vsakega delovnega lista preverite s kodo VBA
Z naslednjo kodo VBA lahko hitro dobite velikost vsakega delovnega lista v vašem delovnem zvezku. Naredite to:
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: preverite velikost vsakega delovnega lista v delovnem zvezku </ 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. Nato pritisnite F5 tipko za izvajanje te kode in nov delovni list z imenom KutoolsforExcel bo vstavljen v trenutni delovni zvezek, ki vsebuje ime vsakega delovnega lista in velikost datoteke, enota pa je Bit. Oglejte si posnetek zaslona:
Velikost vsakega delovnega lista preverite s programom Kutools za Excel
Če imate Kutools za Excel, Z njegovim Razdeljeni delovni zvezek Celoten delovni zvezek lahko razdelite na ločene datoteke in nato odprete določeno mapo, da preverite velikost posamezne datoteke.
Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now.
Po namestitvi Kutools za Excel naredite naslednje:
1. Odprite delovni zvezek, za katerega želite preveriti velikost vsakega delovnega lista, in kliknite Podjetje > Orodja za delovne zvezke > Razdeljeni delovni zvezek, glej posnetek zaslona:
2. v Razdeljeni delovni zvezek pogovorno okno, preverite vse delovne liste in kliknite Split in nato določite mapo, v katero želite shraniti nove datoteke delovnega zvezka. Oglejte si posnetke zaslona:
3. Nato se bo vsak delovni list vašega trenutnega delovnega zvezka shranil kot ločena Excelova datoteka. Odprite svojo mapo in preverite velikost vsakega delovnega zvezka.
Če želite izvedeti več o tej funkciji Split Workbook.
Sorodni članki:
Kako razdeliti delovni zvezek za ločevanje Excelovih datotek v Excelu?
Kako izvoziti in shraniti liste in delovne liste kot nov delovni zvezek v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!