Lọc dữ liệu excel (1 người xem)

[mindtool]

Cả nhà giúp mình với, mình có bài toán như này:
Có cột A (dữ liệu gốc), Cột B là dữ liệu đã sử dụng.
Muốn xóa tất cả dữ liệu của đã sử dụng (giá trị có trong cột B) ở cột A. như trong hình đính kèm dưới đây.
Mọi người giúp nhé. Dữ liệu rất nhiều nên không thể dùng tay hay lọc được
Cám ơn cả nhà

 

[phulien1902]

Cả nhà giúp mình với, mình có bài toán như này:
Có cột A (dữ liệu gốc), Cột B là dữ liệu đã sử dụng.
Muốn xóa tất cả dữ liệu của đã sử dụng (giá trị có trong cột B) ở cột A. như trong hình đính kèm dưới đây.
Mọi người giúp nhé. Dữ liệu rất nhiều nên không thể dùng tay hay lọc được
Cám ơn cả nhà

Bạn thử:

Sub abc()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    With Range("C1:C" & LR)
        .Formula = "=COUNTIF($A$1:$A$9,B1)=1"
        .AutoFilter 1, "TRUE"
    End With
    Columns(1).SpecialCells(xlCellTypeConstants, 1).ClearContents
    Range("C1").AutoFilter
    Columns("C:C").ClearContents
End Sub

 

[befaint]

- Công thức cho cột C:

C1=Vlookup(A1,vùng dữ liệu ở cột B,1,0)

Fill công thức ở C1 tới dòng cuối cùng có dữ liệu tương ứng ở cột A.
- Lọc cột C với điều kiện <> #N/A
- Chọn vùng dữ liệu cột A, nhấn tổ hợp phím Alt + ; (phím Alt và phím chấm phẩy). Kế đó nhấn phím Delete.
- Hủy lọc. Xóa dữ liệu tại cột C. Kết thúc.

 

[mindtool]

Bạn thử:

Sub abc()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("C1:C" & LR).Formula = "=COUNTIF($A$1:$A$9,B1)=1"
    Range("C1:C" & LR).AutoFilter 1, "TRUE"
    Columns(1).SpecialCells(xlCellTypeConstants, 1).ClearContents
    Range("C1").AutoFilter
    Columns("C:C").ClearContents
End Sub

Ui, cám ơn bạn nhưng khi nút lọc chạy thêm lần nữa thì nó xóa tất cả dữ liệu ở cột dữ liệu A.
Bạn chỉnh lại giúp mình nhé.
Cám ơn bạn !