Jak sprawdzić rozmiar każdego arkusza roboczego skoroszytu?
Przypuśćmy, że masz duży skoroszyt, który zawiera wiele arkuszy roboczych, a teraz chcesz sprawdzić rozmiar każdego arkusza, aby określić, który arkusz należy zmniejszyć. Czy są jakieś szybkie metody radzenia sobie z tym zadaniem?
Sprawdź rozmiar każdego arkusza z kodem VBA
Sprawdź rozmiar każdego arkusza roboczego za pomocą Kutools for Excel
Sprawdź rozmiar każdego arkusza z kodem VBA
Za pomocą następującego kodu VBA możesz szybko uzyskać rozmiar każdego arkusza w skoroszycie. Zrób tak:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: sprawdź rozmiar każdego arkusza w skoroszycie </ 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. Następnie naciśnij F5 klucz do wykonania tego kodu i nowy arkusz o nazwie Kutools dla programu Excel zostanie wstawiony do bieżącego skoroszytu, który zawiera nazwę każdego arkusza i rozmiar pliku, a jednostką jest Bit. Zobacz zrzut ekranu:
Sprawdź rozmiar każdego arkusza roboczego za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel, Z siedzibą w Podziel skoroszyt narzędzie, możesz podzielić cały skoroszyt na osobne pliki, a następnie przejść do określonego folderu, aby sprawdzić rozmiar każdego pliku.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.
Po zainstalowaniu Kutools dla programu Excel wykonaj następujące czynności:
1. Otwórz skoroszyt, dla którego chcesz sprawdzić rozmiar każdego arkusza, i kliknij Enterprise > Narzędzia skoroszytu > Podziel skoroszytzobacz zrzut ekranu:
2, w Podziel skoroszyt zaznacz wszystkie arkusze i kliknij Split , a następnie określ folder, w którym mają zostać umieszczone nowe pliki skoroszytu. Zobacz zrzuty ekranu:
3. A następnie każdy arkusz roboczy bieżącego skoroszytu zostanie zapisany jako oddzielny plik Excel, możesz przejść do określonego folderu, aby sprawdzić rozmiar każdego skoroszytu.
Aby dowiedzieć się więcej o tej funkcji Podziel skoroszyt.
Podobne artykuły:
Jak podzielić skoroszyt, aby oddzielić pliki Excela w programie Excel?
Jak wyeksportować i zapisać arkusze i arkusze jako nowy skoroszyt w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!