Giúp tìm lỗi code sai... (1 người xem)

[hoanglam666]

Chào các anh/chị.

Em mới tập viết code

Viết đoạn code bên dưới để xoá dòng nào không phải ô trống. (Cột E).
Chạy thì được nhưng báo lỗi overflow.
Em tìm hoài không ra.
Mong các bác giúp đỡ.
Cám ơn nhiều.

 

[Quang_Hải]

Chào các anh/chị.

Em mới tập viết code

Viết đoạn code bên dưới để xoá dòng nào không phải ô trống. (Cột E).
Chạy thì được nhưng báo lỗi overflow.
Em tìm hoài không ra.
Mong các bác giúp đỡ.
Cám ơn nhiều.

Muốn xóa dòng thì nên xóa từ dưới lên

Sub xoadong()
Dim i As Integer
i = [a65536].End(3).Row
Do While Cells(i, 1) > 0
    If Cells(i, 5) = "" Then Cells(i, 5).EntireRow.Delete
   i = i - 1
Loop
End Sub

 

[hoanglam666]

Cám ơn bác Quanghai.

Nhưng ý em là xoá dòng có số, chứ không phải dòng trống.

Nếu được bác chỉ lại giúp em.
Cám ơn bác.

 

[Quang_Hải]

Cám ơn bác Quanghai.

Nhưng ý em là xoá dòng có số, chứ không phải dòng trống.

Nếu được bác chỉ lại giúp em.
Cám ơn bác.

Sửa lại dòng này. Thay dấu = thành dấu <>
If Cells(i, 5) <> "" Then Cells(i, 5).EntireRow.Delete

 

[hoanglam666]

Em làm được rồi. Sửa thành thế này.hjhj

Sub xoadong()
Dim i As Integer
i = 4
Do While Cells(i, 1) > 0
Do While Cells(i, 5) > 0
Range("a4:e4").Offset(i - 4, 0).Select
Selection.Delete Shift:=xlUp
Loop
i = i + 1
Loop
End Sub