Tôi loay hoay 1 hồi, mới đưa về được 46M, chắc phải đợi thành viên khác giúp bạn vậy..Cho em hỏi file Excel này 70M này lí do gì vậy:
http://www.mediafire.com/view/sd8yclhadd6j6d6/Revised_SD.xlsx

Xuống được 26M rồi
Tại các sheet có chứa quá nhiều shape ẩn
bạn dùng code này để xóa các shape nhé
Sub xoa_shape()
Dim hinh As Shape
For Each hinh In ActiveSheet.Shapes
hinh.Visible = True
hinh.Delete
Next
End Sub
Lần chỉnh sửa cuối: