lọc ra dữ liệu trùng trong 2 cột

Liên hệ QC

kanmai

Thành viên mới
Tham gia
17/12/18
Bài viết
5
Được thích
0
Mình có một bảng như trong file up lên, vấn đề là dữ liệu ở cột E và F sẽ trùng nhau, nhưng nếu chỉ tô màu lên thì tách ra không nổi vì rất nhiều! Mình muốn hỏi là dùng cách gì để lọc ra dữ liệu trùng nhau ở cột E và F! Lọc ra hẳn một cột khác!

P/s: mình bị chửi quá rồi ạ! Sếp quần quá!
 

File đính kèm

  • hoi.xlsx
    11 KB · Đọc: 11
Mình có một bảng như trong file up lên, vấn đề là dữ liệu ở cột E và F sẽ trùng nhau, nhưng nếu chỉ tô màu lên thì tách ra không nổi vì rất nhiều! Mình muốn hỏi là dùng cách gì để lọc ra dữ liệu trùng nhau ở cột E và F! Lọc ra hẳn một cột khác!

P/s: mình bị chửi quá rồi ạ! Sếp quần quá!
Dùng Vba không bạn.Mà E và F làm gì trùng nhau bạn xem lại xem nào.
 
Dùng Vba không bạn.Mà E và F làm gì trùng nhau bạn xem lại xem nào.
do cột E và F là mã số của nhóm, mỗi nhóm sẽ có một mã số (vd: 103000001 là mã của nhóm 1) trong 1 nhóm sẽ có các thành viên, và mỗi thành viên sẽ có mã số trùng nhau! nhưng cột F lại là mã số của một người trong nhóm, và dùng để đối chiếu xem người tại cột F có trùng mã số với cột E hay không! mình muốn lọc ra mã số của cột E xem có bao nhiêu thành viên trùng mã số tại cột F! rất nhiều, lên đến mấy trăm ngàn mã số nên k thể chỉ tô màu! bác giúp em
 
do cột E và F là mã số của nhóm, mỗi nhóm sẽ có một mã số (vd: 103000001 là mã của nhóm 1) trong 1 nhóm sẽ có các thành viên, và mỗi thành viên sẽ có mã số trùng nhau! nhưng cột F lại là mã số của một người trong nhóm, và dùng để đối chiếu xem người tại cột F có trùng mã số với cột E hay không! mình muốn lọc ra mã số của cột E xem có bao nhiêu thành viên trùng mã số tại cột F! rất nhiều, lên đến mấy trăm ngàn mã số nên k thể chỉ tô màu! bác giúp em
Đây bạn xem.Chỉ có cột E với G thôi.Không có E với F.
Mã:
Sub loctrung()
Dim arr, arr1
Dim dic As Object
Dim lr As Long, i As Long, a As Long
Dim dk As String
Set dic = CreateObject("scripting.dictionary")
With Sheet1
     lr = .Range("B" & Rows.Count).End(xlUp).Row
     arr = .Range("a2:G" & lr).Value
     ReDim arr1(1 To UBound(arr, 1), 1 To 2)
     For i = 1 To UBound(arr, 1)
         dk = arr(i, 5)
         dic.Item(dk) = "KK"
     Next i
     For i = 1 To UBound(arr, 1)
         dk = arr(i, 7)
         If dic.exists(dk) Then
            If dic.Item(dk) = "KK" Then
                a = a + 1
                arr1(a, 1) = a
                arr1(a, 2) = dk
                dic.Item(dk) = "AA"
            End If
         End If
    Next i
    .Range("k2:k100000").ClearContents
    .Range("K2").Resize(a, 2).Value = arr1
End With
End Sub
 

File đính kèm

  • hoi.xlsm
    19.4 KB · Đọc: 12
Đây bạn xem.Chỉ có cột E với G thôi.Không có E với F.
Mã:
Sub loctrung()
Dim arr, arr1
Dim dic As Object
Dim lr As Long, i As Long, a As Long
Dim dk As String
Set dic = CreateObject("scripting.dictionary")
With Sheet1
     lr = .Range("B" & Rows.Count).End(xlUp).Row
     arr = .Range("a2:G" & lr).Value
     ReDim arr1(1 To UBound(arr, 1), 1 To 2)
     For i = 1 To UBound(arr, 1)
         dk = arr(i, 5)
         dic.Item(dk) = "KK"
     Next i
     For i = 1 To UBound(arr, 1)
         dk = arr(i, 7)
         If dic.exists(dk) Then
            If dic.Item(dk) = "KK" Then
                a = a + 1
                arr1(a, 1) = a
                arr1(a, 2) = dk
                dic.Item(dk) = "AA"
            End If
         End If
    Next i
    .Range("k2:k100000").ClearContents
    .Range("K2").Resize(a, 2).Value = arr1
End With
End Sub
mình dùng hàm được k ạ! e copy vào bảng tính rồi, nó nhảy ra nhưng dữ liệu ở cột E không lọc đoực
 
cho e hỏi kết hợp với vlookup để dò được k ạ! lấy cột G làm trị dò, nếu ở các ô tại cột E có giá trị nào trùng với cột G thì cho ra kết quả của giá trị trùng
Tùy theo mục đích cuối cùng bạn muốn kết quả là gì thì sẽ có hàm tương thích.
Có rất nhiều hàm được sử dụng để tìm giá trị trùng khớp, như: Vlookup, Match, Countif .....

Nếu bạn muốn ra kết quả gì, thì bạn cứ gõ tay ra đi để làm mẫu, tự khắc anh em GPE sẽ biết dùng hàm gì mà chia sẻ cùng bạn.

Thân
 
Web KT
Back
Top Bottom