Như thế nào được tính là 2 dòng giống nhau bạn?
Này dùng format conditional được mà
Trong file mới đính kèm, dòng 2 và dòng 7 là giống nhau
Như vầy hả bạn?
Mục đích của tôi là kiểm tra xem mình có nhập dữ liệu nào 2 lần không
Dạ đúng, nhưng từng dữ liệu 0 và 1 nằm ở từng cột khác nhau chứ không cùng 1 cột (thí dụ như cột O)
Vậy từ đầu giờ vẫn chưa đăng cái nhưng lên à bạn?
Đoạn này là sao không hiểu lắm nhỉ? Vì cột O file bạn cũng có gì đâu
Dạ cột trong file mà bạn đính kèm để dùng hàm countif đó, chứ không phải file do tôi upload
Kể cả xem file bác ấy tôi cũng không hiểu nằm ở từng cột khác nhau là sao, bạn có thể đính kèm file thật cắt bớt nội dung được không
Từng dữ liệu năm trong từng cell khác nhau, thí dụ: trong dòng 2: số 0 đầu tiên năm trong cell "C5", số 0 kế nằm ô "D5", .v.v..
Thì đã bảo là mình úp cái này lên. 11 bài rồi mà mãi chưa xong cái đề bài.
Thì thế tôi mới nói bạn đưa file thật lên đây, 1000 dòng của bạn nếu thấy nhiều thì có thể đưa 20 dòng thôi, muốn làm VBA hay công thức gì thì file cũng phải rõ ràng chứ đâu thể mô tả như này mà làm được. Rồi thời gian đâu ngồi tạo file theo mô tả của bạn để làm cho bạn. Còn file giả lập thì 1 "nhưng" 2 "nhưng" bao giờ mới xong
1/ Nếu không cần bí mật, anh cứ gửi file lên đây được không?
Dạ tôi xin gửi 12 dòng đầu của file thật
Trùng thì vàng .
Cám ơn bạn nhiều.
Vì đoạn này của bác mà làm em đau đầu đấy:
Cuối cùng hiểu ra vấn đề là hình như bác đang tưởng chuỗi nhị phân đó là tự bác ấy (bác befaint) gõ ra. Nhưng thực ra không phải đâu nha, có công thức đó bác. Cứ nối từng ô lại với nhau (bằng dấu &) thì ra một chuỗi giống như dữ liệu từ 1 đến 60 của bác. Xong sau đó đếm nếu có 2 chuỗi như vậy thì tô màu vàng thôi ạ!
Cám ơn các bạn thật nhiều. Bây giờ hơi tối rồi, sáng mai tôi sẽ ráng làm thử, có trục trặc gì thì niếu kéo các bạn nữa nha...
Lời thật mất lòng. Tôi cũng lớn tuổi như bạn.
Giải thuật:
Bạn ngâm cứu thử code VBA
Sub ABC()
Dim Dic As Object, iKey As String
Dim fRow As Long, eRow As Long, fCol As Long, eCol As Long
Dim i As Long, j As Long, ik As Long
fRow = 4 'Dong dau
fCol = 4 'Cot dau
Set Dic = CreateObject("scripting.dictionary")
With Sheets("Exam2")
eRow = .Range("D" & Rows.Count).End(xlUp).Row 'Dong cuoi
eCol = .Range("BK3").Column 'Cot cuoi
For i = fRow To eRow
iKey = Empty
For j = fCol To eCol
iKey = iKey & .Cells(i, j)
Next j
If Dic.exists(iKey) = False Then
Dic.Add iKey, i
Else
.Range(.Cells(i, fCol), .Cells(i, eCol)).Interior.ColorIndex = 27
ik = Dic.Item(iKey)
If ik > 0 Then
.Range(.Cells(ik, fCol), .Cells(ik, eCol)).Interior.ColorIndex = 27
Dic.Item(iKey) = 0 'Loai dong da to mau
End If
End If
Next i
End With
End SubGhép 2 Sumproduct thành 1 chuổi, Đếm theo cột phụ
Không phải chạy nhanh chậm. Mà là nếu 2016 trở xuống thì không có hàm TextJoin để làm, Concatenate 60 ô cũng dài quá.
Làm vài thao tác
