Nếu muốn lấy nhanh kích thước dữ liệu của từng sheet trong workbook Excel, bạn có thể tham khảo bài viết này. Ở đây chúng tôi sẽ chia sẻ 2 phương pháp hữu ích với bạn.
Đôi khi, khi xử lý một sổ làm việc Excel bao gồm rất nhiều trang tính, bạn có thể muốn lấy kích thước dữ liệu của từng trang tính. Tuy nhiên, không có tính năng riêng cho yêu cầu này. Vì vậy, bạn cần sử dụng một số giải pháp thay thế, chẳng hạn như Phương pháp 1 sau đây. Hoặc bạn có thể sử dụng Phương pháp 2 thông minh hơn nhiều để lấy hàng loạt kích thước dữ liệu của tất cả các trang tính.
Phương pháp 1: Nhận kích thước dữ liệu trang tính từng cái một theo cách thủ công
- Lúc đầu, hãy mở sổ làm việc Excel cụ thể.
- Sau đó, sao chép nội dung của một trang tính Excel.
- Tiếp theo, tạo một sổ làm việc mới và dán trang tính đã sao chép vào Trang tính 1.
- Sau đó, lưu sổ làm việc mới vào một thư mục Windows.
- Cuối cùng, bạn có thể kiểm tra kích thước dữ liệu của sổ làm việc mới, bằng với kích thước dữ liệu của trang tính, trong Windows Explorer, như minh họa trong ảnh chụp màn hình sau.
- Bây giờ, bạn có thể sử dụng cách này để lấy từng kích thước dữ liệu của các trang tính khác.
Phương pháp 2: Lấy hàng loạt kích thước dữ liệu của tất cả các trang tính thông qua VBA
- Để bắt đầu, hãy mở trình soạn thảo Excel VBA theo “Cách chạy mã VBA trong Excel của bạn".
- Sau đó, đặt đoạn mã sau vào một dự án hoặc mô-đun.
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 = "Sheet Sizes"
strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"
With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = strTargetSheetName
.Cells(1, 1) = "Sheet"
.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)
For Each objWorksheet In Application.ActiveWorkbook.Worksheets
If objWorksheet.Name <> strTargetSheetName Then
objWorksheet.Copy
Application.ActiveWorkbook.SaveAs strTempWorkbook
Application.ActiveWorkbook.Close SaveChanges:=False
nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1
With objTargetWorksheet
.Cells(nLastEmptyRow, 1) = objWorksheet.Name
.Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)
End With
Kill strTempWorkbook
End If
Next
End Sub
- Sau đó nhấn “F5” để chạy macro này ngay.
- Cuối cùng, sau khi kết thúc macro, hãy quay lại sổ làm việc.
- Bạn sẽ thấy một trang tính mới ngay từ đầu, chứa kích thước của từng trang tính, giống như hình ảnh sau đây.
sự so sánh
| Ưu điểm | Nhược điểm | |
| Phương pháp 1 | Dễ dàng hoạt động | Quá rắc rối nếu trong workbook hiện tại có quá nhiều sheet |
| Phương pháp 2 | Dễ dàng và thuận tiện cho dù có bao nhiêu trang tính tồn tại trong sổ làm việc | Có lẽ đoạn mã VBA trên hơi khó hiểu đối với người mới |
Khắc phục sự cố PST bực bội
Người dùng có thể gặp phải đủ loại sự cố khó chịu trong MS Excel, từ việc tắt máy hoặc khởi động lại đột ngột đến các lỗi nghiêm trọng. tham nhũng xlsxKhông thể phủ nhận, vấn đề khó giải quyết nhất là các tập tin Excel bị hỏng, vì chúng không dễ dàng khắc phục. Điều này đòi hỏi bạn phải sử dụng một công cụ sửa chữa Excel bên ngoài, chẳng hạn như... DataNumen Excel Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm hư hỏng SQL Server và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm