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ó.
| Ho & Ten | Mã NV | |||||||||||||||||||
| Đặng Thị Minh Trang | FMT00 | |||||||||||||||||||
| Đinh Thị Thành | FTT00 | |||||||||||||||||||
| Đỗ Tiến Hanh | FTH00 | |||||||||||||||||||
| Đỗ Văn Sinh | FVS00 | |||||||||||||||||||
| Đoàn Thị Bách | FTB00 | |||||||||||||||||||
| Hoàng Đình Minh | HFM00 | |||||||||||||||||||
| Hoàng Thị Thúy Huyền | HTH00 | |||||||||||||||||||
| Lê Hiếu | LJH00 | |||||||||||||||||||
| Lương Thị Khương | LTK00 | |||||||||||||||||||
| Lương Thị Khương | LTK01 | |||||||||||||||||||
| Lương Thị Khương | LTK02 | |||||||||||||||||||
| Lương Văn Sơn | LVS00 | |||||||||||||||||||
| Du Tiến Đạt | DTF00 |
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 đỡ ạ
da em chỉ sài nội bộ cơ quan và phục vụ công việc của em thoi ạ. rất mong bác hỗ trợ em cái code ạ
Vậy là cuối cùng là vẫn muốn sử dụng VBA à. hơn 900 con người chứ chẳng lẽ 900 con người có tên giống nhau sao?
vâng em muốn dùng lệnh VBA bác ạ. bác xem gúp em phát ạ
Cứ phải là ABC à? Công ty nếu trùng tên thì nhiều nhất là bao nhiêu người?
dạ ko nhất thiết abc ạ. miễn là sao phân biết là được. em dùng abc là thói quen thoi ạ
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
Bổ sung thêm code. Mà cũng chẳng hiểu cứ code để làm gì? 900 người thì lọc tay cũng ra được số người trùng tên. Quản lý nhân sự thế này thì chắc có ngày công nhân nó đâp vỡ alo vì nhầm lẫn công cán các kiểu.
Sub ABC()
Dim ws As Worksheet
Dim rg As Range
Dim lr, i, j, k As Long
Set ws = ActiveSheet
lr = ws.Cells(Rows.count, "B").End(xlUp).Row
Set rg = ws.Range("B1:B" & lr)
For i = 1 To lr
k = 0
For j = i + 1 To lr
If rg.Cells(i).Value = rg.Cells(j).Value Then
k = k + 1
rg.Cells(j).Value = rg.Cells(j).Value & " " & Chr(64 + k)
End If
Next j
Next i
MsgBox "OK! Xong!"
End SubCông ti có khoảng 9OO nhân mạng mà CSDL không có lấy mã NV thì bạn nên xin đi chỗ khác mà làm tốt hơn
Hết ký tự thì mần ký số; Mà cần thiết thì thêm ký tự đặc biệt (như @, #, $ , %,. . . . )
1. Công nhân xé xác: Nhiều bảng chấm công trên đưa lên GPE này dùng công thức khủng thay vì cột phụ. Công nhân không giỏi toán không theo nổi, sẽ bị bên quản lý dùng chính sách "cả vú lấp miệng em" (bác không biết tính đấy thôi, chứ máy vi tính làm sa tính sai được)
Em thấy riêng đoạn quản lý mà chữ nghĩa như dòng màu đỏ trên dòng này là anh em công nhân sẽ vô cùng khổ cực vì quá ẩu rồi.
