Làm thế nào để kiểm tra kích thước của mỗi trang tính của sổ làm việc?
Giả sử bạn có một sổ làm việc lớn chứa nhiều trang tính và bây giờ, bạn muốn tìm kích thước của từng trang tính để xác định trang tính nào cần được giảm bớt. Có phương pháp nhanh nào để giải quyết công việc này không?
Kiểm tra kích thước của mỗi trang tính bằng mã VBA
Kiểm tra kích thước của từng trang tính với Kutools cho Excel
Kiểm tra kích thước của mỗi trang tính bằng mã VBA
Với mã VBA sau, bạn có thể nhanh chóng nhận được kích thước của từng trang tính trong sổ làm việc của mình. Vui lòng làm như sau:
1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Kiểm tra kích thước của từng trang tính trong sổ làm việc </ 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. Sau đó nhấn F5 phím để thực thi mã này và một trang tính mới có tên KutoolsforExcel sẽ được chèn vào sổ làm việc hiện tại chứa mỗi tên trang tính và kích thước tệp, và đơn vị là Bit. Xem ảnh chụp màn hình:
Kiểm tra kích thước của từng trang tính với Kutools cho Excel
Nếu bạn có Kutools cho Excel, Với khả Chia sổ làm việc tiện ích, bạn có thể chia toàn bộ sổ làm việc thành các tệp riêng biệt, sau đó đi đến thư mục cụ thể để kiểm tra kích thước của từng tệp.
Kutools cho Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay.
Sau khi cài đặt Kutools cho Excel, hãy làm theo các bước sau:
1. Mở sổ làm việc bạn muốn kiểm tra kích thước của từng trang tính và bấm Doanh nghiệp > Công cụ sổ làm việc > Chia sổ làm việc, xem ảnh chụp màn hình:
2. Trong Chia sổ làm việc hộp thoại, kiểm tra tất cả các trang tính và nhấp vào chẻ và sau đó chỉ định một thư mục để đặt các tệp sổ làm việc mới. Xem ảnh chụp màn hình:
3. Và sau đó mỗi trang tính của sổ làm việc hiện tại của bạn sẽ được lưu dưới dạng tệp Excel riêng biệt, bạn có thể đi đến thư mục cụ thể của mình để kiểm tra kích thước của từng sổ làm việc.
Để biết thêm về tính năng Split Workbook này.
Các bài liên quan:
Làm cách nào để chia sổ làm việc để tách các tệp Excel trong Excel?
Làm cách nào để xuất và lưu trang tính và trang tính dưới dạng sổ làm việc mới trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!