Lấp đầy dữ liệu sau khi xóa dòng

[hanhpptc]

Nhờ diễn đàn chỉ giúp code lấp đầy dữ kiệu sau khi xóa dòng.
Ví dụ tại sheet1 có dữ liệu từ dòng 1 đến dòng 10. Sau khi xóa dòng 4 thì dữ liệu từ dòng 5 đến dòng 10 tự động đẩy lên thành từ dòng 4 đến dòng 9.

 

[brian_huynh]

Bạn có thể dùng đoạn code này nè tương ứng với ví dụ của bạn:
Range("A4").Select
Selection.Delete Shift:=xlUp
Hy vọng đúng ý bạn

 

[ptm0412]

Xoá nguyên dòng thì phải là
Range("A4").EntireRow.Delete Shift:=xlUp