Là sao ta... chẳng lẽ dùng công thức =A3=B3 không được sao?
Không dùng cột phụ và muốn trích ra các tên sai và địa chỉ sai thì tạm dùng cái này.
Về nhân sự nên quản lý bằng mã NV để tránh việc trùng tên.
Nếu may mắn thì 1000 người không trùng họ tên thì dùng cách trên ok, nếu trùng tên trong danh sách thì công thức sẽ lấy số ATM của người trùng đầu tiên. Đó là chưa nói đến việc đánh sai họ tên thì công thức cũng tiêu.
Option Explicit
Sub TimKiem()
Dim Rng As Range, sRng As Range, Clls As Range
Dim TgS As Integer, Tim As Integer
Dim MyAdd As String, Color_ As Byte
Sheets("S0").Select: Columns("B:C").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1
Set Rng = Range([B1], [B1].End(xlDown))
ActiveSheet.UsedRange.Select: Selection.ClearFormats
Sheets("S1").Select: Color_ = 34
ActiveSheet.UsedRange.ClearFormats
For Each Clls In Range([b2], [b2].End(xlDown))
Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
1 Clls.Interior.ColorIndex = 3
Else
MyAdd = sRng.Address: Tim = Tim + 1
Do
5 sRng.Interior.ColorIndex = Color_
Set sRng = Rng.FindNext(sRng)
7 TgS = TgS + 1
If sRng.Address <> MyAdd Then sRng.Offset(, 1).Interior.ColorIndex = 3
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Color_ = 1 + Color_
If Color_ > 41 Then Color_ = 34
End If
Next Clls
[d2] = TgS: [d4] = Tim
End Sub
Dùng COUNTIF thử xem!
Cái này dùng Validation là được rồi, cần gì code
Chào bạn!
Kính gửi bạn Viendo mình thấy hướng dẫn của bạn rất hữu ích với mình, mong bạn hướng dẫn thêm trong trường hợp 2 cột dữ liệu có số liệu khác nhau: VD cột A đến hàng 43, cột B đến hàng 55 thì trong trường hợp này phải làm thế nào, rất mong bạn giúp đỡ
