[URL="http://www.giaiphapexcel.com/forum/showthread.php?t=14768"]Những tuyệt chiêu vào mục 14,15,16 nhé.[/URL]Xin hỏi bạn ban đã sửa cho mình rồi mà mình vào vẫn thấy còn name rác và sheet ẩn ban lam thế nào mà nó giảm kích cỡ vầy xin bạn chỉ cho mình với nhé trong máy mình còn rất nhiều file cần giảm kích thước bạ ạ thank
Bạn cứ vào từng sheet, chọn dòng dưới dòng cuối cùng có dữ liệu rồi quét chọn đến dòng 65536 ---> Clear sạch hếtcác pro xem giúp minh tai sao file excel lại có dung lượng lớn như vây ma minh có gửi lên cho bkav pro thi họ nói là ko có iruts hè (có file đính kèm)
Bạn cứ vào từng sheet, chọn dòng dưới dòng cuối cùng có dữ liệu rồi quét chọn đến dòng 65536 ---> Clear sạch hết
Xong, lưu lại, bảo đảm file còn lại chừng vài chục KB
bạn lưu file vào desktop. mở file lên và chạy code . xong lưu lại và đóng file lại- Em có một file excel trong file có 3 sub để xóa vùng dữ liệu ở 3 sheet. Khi em xây dựng file chép code vào modul và lưu lại (chưa chạy code) thì dung lượng file của em khoảng 52.5kb. Khi em chạy code thì dung lượng file tăng lên thành 3.22Mb luôn mới đáng sợ. Code thực thi lệnh xóa thì em nghĩ dung lượng file excel phải giảm đi, nhưng ở file của em lại ngược lại.
- Em mong được các anh chị và các bạn giải thích giùm em xem nguyên nhân là gì?. Làm thế nào để thực thi code xóa vùng dữ liệu trọng các sheet ở file đính kèm của em mà dung lượng file không bị tăng như vậy.
- Xin cảm ơn sự giúp đỡ của mọi người!./.
Híc Híc ... Em làm theo Anh Thương hướng dẫn mà sao file của em nó vẫn 3.21 Mbbạn lưu file vào desktop. mở file lên và chạy code . xong lưu lại và đóng file lại
vào desktop . right click , chon refresh rồi xem thử file chỉ còn 33kb
thử xem cách 2 trong video hướng dẫn nhéHíc Híc ... Em làm theo Anh Thương hướng dẫn mà sao file của em nó vẫn 3.21 Mb
Không hiểu là sao?. Ai biết cách giảm dung lượng thì chỉ giùm em với.
Cảm ơn Anh. Làm theo cách anh hướng dẫn trong video là ok rồi, tuy nhiên ý định của em trong file này là xóa phần dữ liệu và bỏ định dạng kẻ khung phía dưới còn các vùng khác giữ nguyên định dạng, Nếu chọn cách làm trên thì bị mất phần khung tiêu đề phía trên vậy có cách nào khác không anh?. Cảm ơn Anh đã chỉ bảo.thử xem cách 2 trong video hướng dẫn nhé
[video=youtube_share;U8uG5Bdnxv0]http://youtu.be/U8uG5Bdnxv0[/video]
Cảm ơn Anh đã hướng dẫn, em sẽ tìm hiểu thêmBạn xóa dữ liệu & border đến đâu, Excel lưu trữ thông tin đến đó. Code bạn xóa đến dòng 10.000 và dòng 65.000. Thế là Excel lưu trữ thông tin thừa của bằng ấy dòng. Bạn xem thanh trượt bị nhỏ xíu thì biết.
Có các cách như sau:
1. Chỉ xóa vừa đúng số dòng cần xóa.
2. Clear format hoặc clear all thay vì clear contents và border
3. Delete dòng thay vì xóa dữ liệu, nhưng cũng chỉ nên xóa vừa đúng số dòng.
Để tìm dòng cuối dữ liệu thì bạn tìm hiểu End()
- Em Sửa lại code và chạy:3. Delete dòng thay vì xóa dữ liệu, nhưng cũng chỉ nên xóa vừa đúng số dòng.
Thì thấy dung lượng file không còn lớn như trước nữa.Public Sub Xoa1()
Sheets("Sheet1").Activate
Range("A265000").EntireRow.Delete
End Sub
Public Sub Xoa2()
Sheets("Sheet2").Activate
Range("A9:K1000").EntireRow.Delete
End Sub
Public Sub Xoa3()
Sheets("Sheet3").Activate
Range("A15:O1000").EntireRow.Delete
End Sub