Giúp code gạch dòng kẽ theo điều kiện mã hàng xuất hiện 2 lần trở Lên

[Văn Toàn 1996]

Xin chào tất cả mọi người. Chúc mọi người 1 kỳ nghĩ lễ vui vẻ Hạnh phúc bên gia đình. Hôm nay em mang đến 1 câu hỏi như sau. Em cần đóng khung trong vùng C1:d17 với điều kiện là Nếu dòng mã hàng xuất hiện từ 2 dòng trở lên ( giống như hình mô tả bên dưới ). Em xin chân thành cảm ơn

 

[Văn Toàn 1996]

Đang tháng Bảy mà...
Thử code này nhé . . .
Theo tôi thì dạng câu hỏi này cũng thường gặp, hiểu nôm na là " nhóm các mã hàng có phát sinh" (từ 2 trở lên) cho dễ nhìn

Option Explicit
Sub gachchan()
Dim lr&, ce As Range
lr = Cells(Rows.Count, "C").End(xlUp).Row
Range("C3:D" & lr).Borders.LineStyle = xlNone
For Each ce In Range("C3:C" & lr)
    If ce <> ce.Offset(-1, 0) And ce = ce.Offset(1, 0) Then
        ce.Resize(1, 2).Borders(xlEdgeTop).LineStyle = xlContinuous
    ElseIf ce = ce.Offset(-1, 0) And ce <> ce.Offset(1, 0) Then
        ce.Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
    End If
Next
End Sub

CẢm ơn bạn đã giúp đỡ đúng ý tôi. Tôi đã đỡ ý rất nhiều lần . Bạn trả lời chưa sai 1 lần nào theo yêu cầu hơn 10 năm nay. Chúc bạn 1 ngày vui vẽ bên gia đình

 

[VetMini]

Đang tháng Bảy mà...
...

Chúc mừng.
Hồi nào giờ chỉ có 2 người chưa bị mắng.
Bây giờ có thêm bạn được làm người thứ ba.

 

[SA_DQ]

Chúc mừng BeBo. . . nhận được bắc đẩu bội tinh mức 3;
Mà chưa biết ai đã nhận mức 2 & mức 1 vậy ta, ao ước được nghe danh quá chừng luôn?