Xóa vùng cuối cùng vừa được nhập (1 người xem)

[ngoloi17]

Em có 1 vấn đề trong file đính kèm nhờ các a/chị giúp đỡ

 

[quanluu]

Em có 1 vấn đề trong file đính kèm nhờ các a/chị giúp đỡ

Bạn dùng code sau:
Sub xoa()
Dim lastrow As Integer, StartRow As Integer
lastrow = Sheets("Kem").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Kem").Select
StartRow = Cells.Find(What:="Ngày:", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & StartRow & "" & lastrow).Clear
End Sub

 

[khuongvietphong]

Em có 1 vấn đề trong file đính kèm nhờ các a/chị giúp đỡ

Sub xoa()
With Sheets("Kem")
.Range("A" & .[A20000].End(3).Row).Offset(-10).Resize(11, 4).ClearContents
End With
End Sub