Giúp em lọc các số có cùng 1 giá trị ở cột. Và xóa luôn hàng có số đó

[nguyengotus]

em có file này(có tới gần 7000 điểm).em muốn xóa các hàng mà ở cột C (Position Z) có giá trị là 10.anh chị có hàm hay code j giúp em với!

 

[khoavu87]

em có file này(có tới gần 7000 điểm).em muốn xóa các hàng mà ở cột C (Position Z) có giá trị là 10.anh chị có hàm hay code j giúp em với!

bạn thử code này xem :

Sub xoa()
Dim rng As Range
For Each rng In ActiveSheet.Range("c2", [c2].End(xlDown))
If rng.Value = 10 Then
rng.ClearContents
rng.Offset(, -1).ClearContents
rng.Offset(, -2).ClearContents
Else
End If
Next
End Sub

 

[Hai Lúa Miền Tây]

em có file này(có tới gần 7000 điểm).em muốn xóa các hàng mà ở cột C (Position Z) có giá trị là 10.anh chị có hàm hay code j giúp em với!

Bạn dùng AutoFilter, lọc những em có số 10 ra rồi xóa 1 phát là xong

 

[ChanhTQ@]

Cách này đỡ động tay động chưn hơn nè:

Bạn copy macro này vô CS VBE:

Option Explicit
Sub Xoa10()
 Const Xoa As Double = 10
 Dim Rng As Range, Clls As Range
 
 Set Rng = [C65500]
 For Each Clls In Range([C2], [C65500].End(xlUp))
   If Clls.Value = Xoa Then Set Rng = Union(Clls, Rng)
 Next Clls
 If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

Tìm cách gán cho nó tổ hợp fím, như {CTRL}& {SHIFT} & D

Sau đó lúc nào muốn xóa, bạn chỉ có việc bấm tổ hợp fím đó thôi

Món này giống như món ăn liền; còn của DOM. . giống như vô tiệm ăn vậy, khà, khà,. . .

Thêm nữa, nếu ngày đẹp trời nào đó bạn thích xóa số khác (như vì ghét số 13 chẳng hạn) thì thay con 13 vô vị trí con 10 đang giành chỗ là OK.

Chúc vui cuối tuần, nha!