Xin giúp đỡ code xóa từ dòng thứ n đến cuối file Excel

[vmhieu.cdcs]

Xin chào anh/chị
Hiện tại mình muốn xóa dữ liệu các dòng trống không cần thiết phí bên dưới dữ liệu.
Ví dụ:
Mình có 100 dòng (LR), nhưng trong đó dữ liệu mình cần tổng hợp là 60 dòng, còn lại 40 dòng mình muốn xóa ra khỏi dữ liệu. Mình có đoạn code sau, nhưng chưa biết làm thế nào để chọn vùng xóa từ dòng LRX đến LR (từ dòng 61 đến dòng 100). Xin nhờ anh/chị chỉ giúp ạ,

Sub sapxep_xoa()
Dim LR, LRX As Long

LR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row '100 dòng

Sheet1.Range("A1:Y" & LR).Sort Key1:=Range("X1"), Order1:=xlAscending, Header:=xlNo

LRX = Sheet1.Range("X" & Rows.Count).End(xlUp).Row ' 60 dòng

Sheet1.Range("A" & LRX + 1 ).select 'dòng thứ 61
' Xóa dòng 61 đến dòng 100

End Sub

Xin cảm ơn anh/chị !!!

 

[Nhattanktnn]

Sheet1.Range("A" & LRX + 1 ).select 'dòng thứ 61

Sheet1.Range("A" & lrx + 1, "A" & lr).EntireRow.Delete

 

[SA_DQ]

Đừng xóa các dòng trống, tội nghiệp chúng lắm;
Thay vào đó nên ẩn chúng đi & như vậy chúng ít đau hơn nhiều & sẽ rất biết ơn bạn dài dài!
Ví dụ:

Sub AnDong()
 Dim Rws As Long
 
 Rows("13:100").Hidden = False
 ' . . . . . .      '
 '. . . . . . . . . . '
 
 Rws = Sheet1.Range("X" & Rows.Count).End(xlUp).Row  ' 60 dòng  '
 Rows(1 + Rws & ":100").Hidden = True
End Sub

 

[Nguyenhoangphong0902]

Sheet1.Rows("61:100").EntireRow.Delete

1 câu code đơn giản này là xóa được dòng 61 đến 100 rồi, còn không thì bạn tăng lên 61:1000 cũng được


Còn ẩn dòng

Sheet1.Rows("61:100").EntireRow.Hidden = True

 

[befaint]

Họ bảo là dòng trống thì sau khi sort là xong việc rồi mà. Không cần ẩn hay xoá gì cả.

 

[Nhattanktnn]

Sheet1.Rows("61:100").EntireRow.Delete

1 câu code đơn giản này là xóa được dòng 61 đến 100 rồi, còn không thì bạn tăng lên 61:1000 cũng được


Còn ẩn dòng

Sheet1.Rows("61:100").EntireRow.Hidden = True

Hình như câu lệnh hơi dư dư

 

[Nguyenhoangphong0902]

Hình như câu lệnh hơi dư dư

Thiếu mới sợ, chứ dư thì ăn nhằm gì bác. Trừ bệnh ra thì mình thấy cái gì dư cũng tốt. Dư tiền, dư bạc, dư..................

 

[VetMini]

Thiếu mới sợ, chứ dư thì ăn nhằm gì bác. Trừ bệnh ra thì mình thấy cái gì dư cũng tốt. Dư tiền, dư bạc, dư..................

Nhỏ lớn chắc chưa hề yêu ai.
Thử làm ngưởi thứ ba, người dư ra xem.

 

[Maika8008]

Thiếu mới sợ, chứ dư thì ăn nhằm gì bác. Trừ bệnh ra thì mình thấy cái gì dư cũng tốt. Dư tiền, dư bạc, dư..................

Code dư mới sợ bạn nhé. Sợ ở đây không phải sợ như sợ ma mà là sợ quê.

 

[Nhattanktnn]

Thiếu mới sợ, chứ dư thì ăn nhằm gì bác. Trừ bệnh ra thì mình thấy cái gì dư cũng tốt. Dư tiền, dư bạc, dư..................

Dư ruột là đi mổ à nha