Code xóa dòng khi giá trị trống (1 người xem)

[lhthai]

Hiện tại có file dữ liệu sau
Nhấn nút thì sort tất cả những dòng có số lượng trống xuống cuối và chọn những danh sanh đó và clearcoment di
Nay muốn viết code xóa dòng có giá trị trống

 

[Ba Tê]

Hiện tại có file dữ liệu sau
Nhấn nút thì sort tất cả những dòng có số lượng trống xuống cuối và chọn những danh sanh đó và clearcoment di
Nay muốn viết code xóa dòng có giá trị trống

Viết được 1 dòng rồi, thêm 1 dòng nữa xem:

Private Sub CommandButton1_Click()
Range("B4:D5000").Sort [D5], 2 
Rows([D4].End(xlDown).Row + 1 & ":5000").Delete
End Sub

 

[lhthai]

Viết được 1 dòng rồi, thêm 1 dòng nữa xem:

Private Sub CommandButton1_Click()
Range("B4:D5000").Sort [D5], 2 
Rows([D4].End(xlDown).Row + 1 & ":5000").Delete
End Sub

Cám ơn anh nhiều nha

 

[Quang_Hải]

Viết được 1 dòng rồi, thêm 1 dòng nữa xem:

Private Sub CommandButton1_Click()
Range("B4:D5000").Sort [D5], 2 
Rows([D4].End(xlDown).Row + 1 & ":5000").Delete
End Sub

Chọt vô cái coi

Private Sub CommandButton1_Click()
Range([D4], [D5000]).SpecialCells(4).EntireRow.Delete
End Sub

 

[Ba Tê]

Chọt vô cái coi

Private Sub CommandButton1_Click()
Range([D4], [D5000]).SpecialCells(4).EntireRow.Delete
End Sub

Rồi thêm 1 dòng lệnh Sort ?
Ẹc..

 

[lhthai]

Chọt vô cái coi

Private Sub CommandButton1_Click()
Range([D4], [D5000]).SpecialCells(4).EntireRow.Delete
End Sub

Private Sub CommandButton1_Click()
Range("B4:D5000").Sort [D5], 2 
Rows([D4].End(xlDown).Row + 1 & ":5000").Delete
End Sub

[/QUOTE]

Anh cho em hỏi thêm trường hợp xóa các dòng có giá tri thi sau anh

 

[Quang_Hải]

Anh cho em hỏi thêm trường hợp xóa các dòng có giá tri thi sau anh

Trong code bài số 4, đổi số 4 thành số 2 xem sao.