Giúp đỡ code xóa dữ liệu khi đang ở chế độ lọc (filter)

[hoanganhvo2612]

Chào các anh/chị GPE,
Anh chị cho em hỏi là làm sao xóa được toàn bộ dữ liệu khi mình đang ở chế độ lọc ạ
Mục đích của em là xóa toàn bộ dữ liệu vùng [A411] nhưng khi chạy code dưới và bỏ lọc thì vẫn còn dữ liệu ạ. Vậy có cách nào mà xóa hết dữ liệu mà KHÔNG cần bỏ lọc rồi mới xóa không ạ.
Em cảm ơn

Sub cleardata()
    Range("A4:D11").Clear
End Sub

 

[tigertiger]

Chào các anh/chị GPE,
Anh chị cho em hỏi là làm sao xóa được toàn bộ dữ liệu khi mình đang ở chế độ lọc ạ
Mục đích của em là xóa toàn bộ dữ liệu vùng [A411] nhưng khi chạy code dưới và bỏ lọc thì vẫn còn dữ liệu ạ. Vậy có cách nào mà xóa hết dữ liệu mà KHÔNG cần bỏ lọc rồi mới xóa không ạ.
Em cảm ơn

Sub cleardata()
    Range("A4:D11").Clear
End Sub

Muốn thế, thì trước khi xóa, bạn phải bỏ chế độ lọc đi (xóa bỏ filter, hoặc là Show all - hiện tất cả)

 

[hoanganhvo2612]

Muốn thế, thì trước khi xóa, bạn phải bỏ chế độ lọc đi (xóa bỏ filter, hoặc là Show all - hiện tất cả)

Ý em là không cần bỏ lọc mà vẫn xóa được ấy ạ.

 

[Nhattanktnn]

Ý em là không cần bỏ lọc mà vẫn xóa được ấy ạ.

Dữ liệu nhiều không biết có bị chậm không thì không rõ

Sub cleardata()
    Dim cll As Range
    For Each cll In Range("A4:D11")
        cll.ClearContents
    Next
End Sub

 

[Hoàng Tuấn 868]

Ý em là không cần bỏ lọc mà vẫn xóa được ấy ạ.

Tham khảo........

 

[be_09]

Chào các anh/chị GPE,
Anh chị cho em hỏi là làm sao xóa được toàn bộ dữ liệu khi mình đang ở chế độ lọc ạ
Mục đích của em là xóa toàn bộ dữ liệu vùng [A411] nhưng khi chạy code dưới và bỏ lọc thì vẫn còn dữ liệu ạ. Vậy có cách nào mà xóa hết dữ liệu mà KHÔNG cần bỏ lọc rồi mới xóa không ạ.
Em cảm ơn

Sub cleardata()
    Range("A4:D11").Clear
End Sub

Thử code sau (xóa những dữ liệu hiển thị khi Filter).

Sub cleardata()
    Range("A3").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).ClearContents
End Sub

Thử code sau (xóa những dòng hiển thị khi Filter).

Sub cleardata()
    Range("A3").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

 

[hoanganhvo2612]

Em cảm ơn tất cả mọi người đã giúp đỡ, Code chạy tốt ạ. Theo em thấy thì dùng cells.clear thì mới có tác dụng.