Xóa dữ liệu theo điều kiện cung một cột (2 người xem)

[sinhatexcel]

Trong cùng cột A chi xét dữ liệu la số 0 va 1
Em muốn xóa những dòng dữ liệu chứa số 0 còn số 1 không xóa( Xóa nguyên dòng có số 0 ở cột A).

Sử dụng macro de xóa chứ không dùng chức năng AutoFilter.Em đã viết vài đoạn code nhưng chạy không hiệu quả.
Nhờ các anh trong diễn đàn giúp đỡ.

 

[ndu96081631]

Trong cùng cột A chi xét dữ liệu la số 0 va 1
Em muốn xóa những dòng dữ liệu chứa số 0 còn số 1 không xóa( Xóa nguyên dòng có số 0 ở cột A).
Nhờ các anh trong diễn đàn giúp đỡ.

AutoFilter cột A theo điều kiện = 0 rồi cứ.. vô tư mà xóa thôi

 

[sinhatexcel]

Nhờ anh giúp đơ chạy bằng macro chứ không dùng chức năng AutoFilter.

 

[ndu96081631]

Nhờ anh giúp đơ chạy bằng macro chứ không dùng chức năng AutoFilter.

Thì cũng vậy thôi... record macro quá trình AutoFilter dữ liệu, vậy là bạn đã có được code rồi

 

[concogia]

Nhờ anh giúp đơ chạy bằng macro chứ không dùng chức năng AutoFilter.

Muốn Macro thì có Macro
Dữ liệu bắt đầu từ A1 như hình nhé
Dùng Autofilter

Public Sub XoaZero()
    With Range([a1], [a10000].End(xlUp))
        .AutoFilter 1, "0"
        .SpecialCells(12).EntireRow.Delete
    End With
End Sub

Dùng vòng lặp

Public Sub XoaZe()
Dim Vung As Range, I
    Application.ScreenUpdating = False
        Set Vung = Range([a1], [a1000].End(xlUp))
            For I = Vung.Rows.Count To 1 Step -1
                If Vung(I) = 0 Then Rows(I).Delete
            Next
    Application.ScreenUpdating = True
End Sub