XIn giúp đỡ câu lệnh VBA tìm dư liệu giống nhau ạ

Chia sẻ bởi:hands

★★★★★

‹ Anh chị giúp em đánh STT với... Tìm kiểm cùng giá bán cho cùng... ›

Quảng cáo

Em có bảng chấm công có dư liệu tại cột B. em muốn tìm nhưng người có họ và tên trùng nhau và gán cho nó giá trị A, B, C… để phân biệt nhưng người đó. Xin các bác giúp hộ em ạ. em gửi kèm dư liệu ( giá trị trả về mong muốn em có bôi mầu vàng ạ)

Chọn cột B. Vào Thẻ Home/Conditional Formatting/ Highlight Cells Rules/ Duplicate Value rồi định dạng màu cho nó.
Xong đâu đó rồi thì lọc theo cái màu vừa định dạng
Sẽ là tổng của những Người có tên trùng nhau
Sau đó Lọc tiếp theo từng người rồi thêm A, B, C như bạn muốn.Do lượng người trùng không phải là nhiều. Nên khỏi cần cô de cô dẹo gì cho mất công ra

Da cái này em lấy ví dụ thoi ạ. chứ công ty em hơn 900 còn người mà 12 tháng em làm cả bảng lương và công nữa rất mong mọi người giúp đỡ ạ

Này thì code VBA. Tự kiểm chứng kết quả

Option Explicit
Sub ABC()
    Dim Dic As Object, Arr(), Res(), i&
    Set Dic = CreateObject("scripting.dictionary")
    With Sheets("1- 2022")
        Arr = .Range("B3:B" & .Range("B" & Rows.Count).End(3).Row).Value
        ReDim Res(1 To UBound(Arr), 1 To 1)
        For i = 1 To UBound(Arr)
            If Dic.exists(Arr(i, 1)) = False Then
                Dic.Add Arr(i, 1), 1
                Res(i, 1) = Arr(i, 1)
            Else
                Dic(Arr(i, 1)) = Dic.Item(Arr(i, 1)) + 1
                Res(i, 1) = Arr(i, 1) & " " & Dic.Item(Arr(i, 1))
            End If
        Next
        .Range("B3").Resize(UBound(Arr), 1).Value = Res
    End With
End Sub

www.giaiphapexcel.com/diendan/threads/xin-gi%C3%BAp-%C4%91%E1%BB%A1-c%C3%A2u-l%E1%BB%87nh-vba-t%C3%ACm-d%C6%B0-li%E1%BB%87u-gi%E1%BB%91ng-nhau-%E1%BA%A1.165314/