"thủ tục để xóa dòng trống " trong Lập trình VBA trong Excel

[minhbinhdinh]

chào mọi người
mình có thử thủ tục "thủ tục để xóa dòng trống " trong sách Lập trình VBA trong Excel của a PTH như sau :
Sub DeleteEmptyRows()
Dim i As Integer
Dim FirstRow As Integer, LastRow As Integer, UsedRows As Integer
Application.ScreenUpdating = False
'xác định dòng đầu tiên có chứa dữ liệu
FirstRow = ActiveSheet.UsedRange.Row
'xác định số hàng có chứa dữ liệu
UsedRows = ActiveSheet.UsedRange.Rows.Count
'xác định hàng cuối có chứa dữ liệu
LastRow = FirstRow - 1 + UsedRows
For i = LastRow To step - 1 'lùi từng hàng lên trên
'xóa hàng nếu tổng số ô trông hàng có chứa dữ liệu bằng 0(hàng rỗng)
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
kết quả là xóa luôn sheet đó luôn.Mình chưa hiểu nó hoạt động như thế nào.
Mong mọi người chỉ giáo

 

[Kiều Mạnh]

Ở cột A và C đều có giá trị 0 thì mới ẩn bác ạ. Nếu 1 trong 2 cột có giá trị 0 thì k ẩn đi

Vậy thử test đi nếu có gì không ổn ta tính tiếp.... giúp được gì thì mình giúp cho...vả lại mình cũng đang luyện code mà...
tẩu hoả nhập ma là thường thôi

 

[thanhduc_iit]

Vậy thử test đi nếu có gì không ổn ta tính tiếp.... giúp được gì thì mình giúp cho...vả lại mình cũng đang luyện code mà...
tẩu hoả nhập ma là thường thôi

Code trên của bác chỉ chạy ở 1 cột A thôi.
Vấn đề em muốn là chạy cùng lúc cột A và C. Nếu A và C đều bằng 0 thì ẩn nó đi

 

[Ba Tê]

Code trên của bác chỉ chạy ở 1 cột A thôi.
Vấn đề em muốn là chạy cùng lúc cột A và C. Nếu A và C đều bằng 0 thì ẩn nó đi

Thử cái này coi sao, ô rỗng cũng coi như =0

Public Sub Andong()
Dim R As Long, I As Long
R = Range("A65536").End(xlUp).Row
Cells.EntireRow.Hidden = False
For I = 1 To R
    If Range("A" & I) = 0 And Range("C" & I) = 0 Then Range("A" & I).EntireRow.Hidden = True
Next I
End Sub

 

[SonBDND]

Trong code anh viết:
Cells(r, 5).EntireRow.Delete
là xóa cho hàng r cột E sao nó lại xóa luôn cho các cột khác ( F và G) được Anh giải thich giúp em chỗ này với....
Thanks Anh

Khi chạy cột e bị xóa thì cột f bị dồn lại vị trí vọt e. Lúc này điều kiện lại đúng và nó xóa tiếp