Cách xóa tất cả các ô trống
Bạn muốn xóa tất cả các ô trống trong bảng hiện hoạt? Đây không phải là vấn đề với macro. Macro sau sẽ xóa tất cả các ô trống trong bảng hiện hoạt:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Select
Selection.Delete Shift: = xlUp
Kết thúc Sub
Macro tự động tìm kiếm tất cả các ô trống trong vùng người dùng của bảng hiện hoạt và xóa các ô này. Các ô bên dưới nó được dịch chuyển lên trên. Vì vậy, bạn sẽ có được một bảng được nén cao.