Cột NĂM SINH (cột C) bạn phải thống nhất về cách nhập liệu chứ ---> Tất cả đều là Number trong khi cell C4 lại là Text thì làm sao mà tính hả bạn ---> Lý nào có ai lại sinh vừa năm 1975, vừa năm 1976 thế kia chứ (1975 - 1976)Nhờ các bạn Đếm số ngưới cùng họ tên, khác năm sinh như trong file dưới đây.
Xin cảm ơn.
SUMPRODUCT(ISNUMBER(SEARCH("Trần Văn";$B$2:$B$5))*(1970<=$C$2:$C$5)*($C$2:$C$5<=1980))
Option Explicit
Sub CountPart()
Dim Rng As Range, sRng As Range, Clls As Range
Dim Dem As Byte, MyAdd As String
Set Rng = Range([b1], [B65500].End(xlUp))
Set sRng = Rng.Find([e2].Value, , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
With sRng.Offset(, 1)
If IsNumeric(.Value) Then
If .Value > 1969 And .Value < 1981 Then
Dem = Dem + 1: .Interior.ColorIndex = 35
End If
Else
If CLng(Left(.Value, 4)) > 1969 And CLng(Right(.Value, 4)) < 1981 Then
Dem = Dem + 1: .Interior.ColorIndex = 38
End If
End If
End With
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
[f2].Value = Dem
End Sub
Bạn vui lòng xác nhận lại ông Trần Văn Tuấn tại cell B4 sinh vào năm nào (theo bạn) ---> Dù dử liệu là TEXT thì ít nhất trong đầu của bạn cũng phải ngầm định 1 năm sinh nào đó chứ (1975 hay 1976)Thế mới khó ạ. Em nghĩ mãi mà không ra.
Yêu cầu là không dùng cột phụ các bác nhé.
Công thức của bác MinhCong ra kết quả chưa đúng ạ, phải là 2 chứ.
Sao bạn không nói là 3 mà lại là 2?Thế mới khó ạ. Em nghĩ mãi mà không ra.
Yêu cầu là không dùng cột phụ các bác nhé.
Công thức của bác MinhCong ra kết quả chưa đúng ạ, phải là 2 chứ.
Bạn có thể kết hợp hàm find để xác định những số phía trước dấu "-"Hỏi thêm bác MinhCong:
Nếu số năm không phải là 4 ký tự, mà bất ký thì sao? Em muốn lấy phần trước dấu "-"
Đưa file THẬT lên đây bạn ơi ---> Lòng vòng mệt quáMình cũng đã thử hàm FIND trước khi post bài, tuy nhiên gặp lỗi là ô thì có dấu"-", ô thì không, nên không giải quyết được.
Nhờ các bác chỉ giáo!