Vâng em xin cảm ơn Bác rất nhiều...tại em lính mới nên cũng chưa rành về vấn đề này lắm ..mong các Bác thồng cảm Em...
Bạn muốn có kết quả nào? Kết quả 1 hay kết quả 2 ?
Xin cám ơn bạn nhiều.....ý mình là xóa bớt tất cả giá trị trùng nhau..trong mảng ( a1.i3).chứ không phải một hàng hay 1 cột...thanks bạn..bạn có thể xem lại file cho dễ hiểu hơn được không..
Public Sub Loc()
Dim DL, Tam(99), kq(1 To 100000, 1 To 9), r As Long, c As Long
DL = Sheet1.Range("A1").CurrentRegion
For r = 1 To UBound(DL)
For c = 1 To UBound(DL, 2)
Tam(DL(r, c)) = DL(r, c)
Next c
Next r
DL = Split(Application.Trim(Join(Tam, " ")), " ")
For c = 0 To UBound(DL)
kq(Int(c / 9) + 1, c Mod 9 + 1) = DL(c)
Next c
Sheet1.Range("A1").End(xlDown).Offset(2).CurrentRegion.ClearContents
Sheet1.Range("A1").End(xlDown).Offset(2).Resize(Int(UBound(DL) / 9) + 1, 9) = kq
End SubSub quanthienhan()
Dim k As Integer
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
If Sheet1.Cells(i, j) <> Sheet1.Cells(k, 10) Then
c = Application.WorksheetFunction.CountIf(Sheet1.Range("M1:M20"), Sheet1.Cells(i, j))
If c = 0 Then
cc = Application.WorksheetFunction.CountA(Sheet1.Range("M1:M20")) + 1
With Sheet1
.Cells(cc, 13) = Sheet1.Cells(i, j)
'.Cells(cc, 14) = Application.WorksheetFunction.CountIf(Sheet1.Range("A1:I10"), Sheet1.Cells(i, j))
End With
End If
End If
Next
Next
Next
End Sub
