Giúp Code VBA Lọc Tên hàng khi xuất hiện quá 3 lần

[Văn Toàn 1996]

Chào tất cả Mọi Người. Mình cần 1 đoạn code VBA lọc ra như Mô tả ảnh bên dưới. XIn chân thành cảm ơn !

 

[bebo021999]

Xài đỡ cái này nhé

Option Explicit
Sub test()
Dim i&
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    Select Case WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A"))
        Case Is < 4
            Cells(i, "D").Value = Cells(i, "A") ' ket qua tai cot D
        Case Else
            Cells(i, "D").Value = Cells(i, "A") & "-New"
    End Select
Next
End Sub

 

[VetMini]

Xài đỡ cái này nhé
...

Hổng dám xài đỡ đâu.
Ngày mai sẽ thấy code xịn, hoặc công thức xịn "một loáng là xong" của chủ thớt.

Mà bạn đã tét kỹ chưa vậy? Thớt này có thói quen tốt là phê phán code, bắt tét thực kỹ những dữ liệu bên mình đưa ra thì chả buồn xem lại.
Điển hình: sau mấy cái "New" thì tới cái gì?
Nói cách khác, thớt chưa làm cho nên chưa biết 1 chục cái new's là chả còn ý nghĩa gì cả.

 

[Phan Thế Hiệp]

Hổng dám xài đỡ đâu.
Ngày mai sẽ thấy code xịn, hoặc công thức xịn "một loáng là xong" của chủ thớt.

Mà bạn đã tét kỹ chưa vậy? Thớt này có thói quen tốt là phê phán code, bắt tét thực kỹ những dữ liệu bên mình đưa ra thì chả buồn xem lại.
Điển hình: sau mấy cái "New" thì tới cái gì?
Nói cách khác, thớt chưa làm cho nên chưa biết 1 chục cái new's là chả còn ý nghĩa gì cả.

Có gì lạ đâu anh! hoạt cảnh sống minh họa cho truyện dân gian: Lợn cưới - áo mới đó mà.

Một nụ cười bằng mười thang thuốc bổ đó anh.