Xóa dữ liệu có điều kiện (1 người xem)

[cachabu]

chào các anh chị

em có 1 chuổi dòng dữ liệu từ A5 đến E.. em muốn xóa các dòng dữ liệu thừa

điều kiện là nếu từ A5 đến E nếu dòng tiếp theo của cột A là trống thì sẽ xóa hết tất cả những dòng tiếp theo từ A đến E trở về sau

cám ơn

 

[Quang_Hải]

chào các anh chị

em có 1 chuổi dòng dữ liệu từ A5 đến E.. em muốn xóa các dòng dữ liệu thừa

điều kiện là nếu từ A5 đến E nếu dòng tiếp theo của cột A là trống thì sẽ xóa hết tất cả những dòng tiếp theo từ A đến E trở về sau

cám ơn

Thử code này

Sub QuangHai()
Dim LastRow, FirstRow
LastRow = Sheet1.UsedRange.SpecialCells(11).Row
FirstRow = Sheet1.[A5].End(4).Offset(1).Row
Range(Cells(FirstRow, 1), Cells(LastRow, 5)).Clear
End Sub

 

[HungQuoc49]

chào các anh chị

em có 1 chuổi dòng dữ liệu từ A5 đến E.. em muốn xóa các dòng dữ liệu thừa

điều kiện là nếu từ A5 đến E nếu dòng tiếp theo của cột A là trống thì sẽ xóa hết tất cả những dòng tiếp theo từ A đến E trở về sau

cám ơn

Bạn dùng tạm cái này

Sub XOADONG()

Sheet1.Range(Cells(Sheet1.Range("A5").End(xlDown).Row + 1, 1), _
Cells(Sheet1.UsedRange.Rows.Count + 4, Sheet1.UsedRange.Columns.Count)).Delete

End Sub

 

[cachabu]

Bạn dùng tạm cái này

Sub XOADONG()

Sheet1.Range(Cells(Sheet1.Range("A5").End(xlDown).Row + 1, 1), _
Cells(Sheet1.UsedRange.Rows.Count + 4, Sheet1.UsedRange.Columns.Count)).Delete

End Sub

2 đoạn code em dùng ok hết cám ơn các anh