Dữ liệu trùng nhau giữa 2 cột (1 người xem)

bluesky2222 · 6/9/14

Chào cả nhà,
Mình đang cần lọc dữ liệu trùng nhau giữa 2 cột, mình dùng hàm countif, sau đó dùng cách đếm thủ công để lấy ra số trùng lặp.
Bây giờ mình đang muốn dùng công thức, nhưng không biết làm thế nào. Ai biết chỉ giúp mình

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

gtri · 6/9/14

bluesky2222 đã viết:
Chào cả nhà,
Mình đang cần lọc dữ liệu trùng nhau giữa 2 cột, mình dùng hàm countif, sau đó dùng cách đếm thủ công để lấy ra số trùng lặp.
Bây giờ mình đang muốn dùng công thức, nhưng không biết làm thế nào. Ai biết chỉ giúp mình

Như trong file viết "Cột B có, A không có" thì đếm bằng cái này
Nhập vào ô bất kỳ =SUM(IF(COUNTIF($A$2:$A$87,$B$2:$B$91)>0,0,1)) ---> nhấn Ctrl+Shift+Enter

bluesky2222 · 8/9/14

gtri · 8/9/14

bluesky2222 đã viết:
Không phải như thế, mình muốn lấy giá trí, ví dụ: cột A có FN00000335711, cột B không có, thì mình cần hiển thị ra giá trị này.

Có lẽ bạn cho 1 file có kết quả giả định lên thì xử lý nhanh hơn ( Để biết kết quả trình bày thế nào )

bluesky2222 · 8/9/14

Let'GâuGâu · 8/9/14

bluesky2222 đã viết:
Mình sửa lại file đính kèm, có giả định kết qua trong file đính kèm rồi. Ai giúp mình viết câu lệnh tự động, please

bạn thử làm theo bài #9 của anh NDU
http://www.giaiphapexcel.com/forum/showthread.php?45800-Lọc-giá-trị-khác-nhau-giữa-2-bảng-danh-sách

gtri · 8/9/14

bluesky2222 đã viết:
Mình sửa lại file đính kèm, có giả định kết qua trong file đính kèm rồi. Ai giúp mình viết câu lệnh tự động, please

Dùng cái này xem sao
Viết cho số số dữ liệu cột A và B bằng nhau

bluesky2222 · 10/9/14

gtri đã viết:
Dùng cái này xem sao
Viết cho số số dữ liệu cột A và B bằng nhau

gtri · 10/9/14

bluesky2222 đã viết:
Nếu viết cho số liệu cột A và cột B không bằng nhau thì sao a.
Ví dụ cột B, mình sẽ xoá bớt khoảng 10 phần tử. Vậy thì "cột A có B không có" sẽ phải hiển hị những phần tử mà không có trong cột B.

Nhấn alt+F11, vào module1, dán đè cái này vào

PHP:

Public Sub TrungSoLieu()
Dim DL, Mau1, Mau2, Sd, Kq() As String, d As Long, i As Long, j As Long, k As Long

DL = Sheet1.Range("A2").CurrentRegion
Sd = UBound(DL)
ReDim Kq(1 To Sd, 1 To 3)
Sheet1.Range("D3:F" & Sd).Clear
Set Mau1 = CreateObject("Scripting.Dictionary")
Set Mau2 = CreateObject("Scripting.Dictionary")

For d = 2 To Sd * 2 - 1
If d <= Sd Then
Mau1.Add DL(d, 1), ""
Mau2.Add DL(d, 2), ""
Else

If Mau1.exists(DL(d - Sd + 1, 2)) Then
i = i + 1
Kq(i, 1) = DL(d - Sd + 1, 2)
Else
k = k + 1
Kq(k, 3) = DL(d - Sd + 1, 2)
End If

If Not Mau2.exists(DL(d - Sd + 1, 1)) Then
j = j + 1
Kq(j, 2) = DL(d - Sd + 1, 1)
End If

End If
Next d

Sheet1.Range("D3").Resize(Application.WorksheetFunction.Max(i, j, k), 3).Value = Kq

Set Mau1 = Nothing
Set Mau2 = Nothing

End Sub

bluesky2222 · 10/9/14

gtri · 10/9/14

bluesky2222 đã viết:
MÌnh thêm vào rồi, nhưng nó không chạy, bị debug, hết dụng lượng tải rồi, nên ko tải được file lên. Runtime error 457

Không biết cấu trúc số liệu có giống ví dụ hay không?
Với file mẫu tại bài 1, code này chạy bình thường.
Upload file lên đâu đó rồi dán đường dẫn vào.

gtri · 10/9/14

bluesky2222 đã viết:
MÌnh thêm vào rồi, nhưng nó không chạy, bị debug, hết dụng lượng tải rồi, nên ko tải được file lên. Runtime error 457

Không xem file nhưng có lẽ dữ liệu trong cột A hoặc cột B bị trùng
Bạn dán code này vào sẽ hết lỗi

PHP:

Public Sub TrungSoLieu()
Dim DL, Mau1, Mau2, Sd, Thay, Kq() As String, d As Long, i As Long, j As Long, k As Long

DL = Sheet1.Range("A2").CurrentRegion
Sd = UBound(DL)
ReDim Kq(1 To Sd, 1 To 3)
Sheet1.Range("D3:F" & Sd).Clear
Set Mau1 = CreateObject("Scripting.Dictionary")
Set Mau2 = CreateObject("Scripting.Dictionary")

For d = 2 To Sd * 2 - 1
If d <= Sd Then
Mau1.Add DL(d, 1) & d, ""
Mau2.Add DL(d, 2) & d, ""
Else

Thay = d - Sd + 1
If Mau1.exists(DL(Thay, 2) & Thay) Then
i = i + 1
Kq(i, 1) = DL(Thay, 2)
Else
k = k + 1
Kq(k, 3) = DL(Thay, 2)
End If

If Not Mau2.exists(DL(Thay, 1) & Thay) Then
j = j + 1
Kq(j, 2) = DL(Thay, 1)
End If

End If
Next d

Sheet1.Range("D3").Resize(Application.WorksheetFunction.Max(i, j, k), 3).Value = Kq

Set Mau1 = Nothing
Set Mau2 = Nothing

End Sub

bluesky2222 · 28/9/14

Cảm ơn bạn gtri, mình thử không được, mục tiêu của mình là:
Tìm những giá trị khác nhau giữa 2 cột A và B.
Khi mình cho code vào thì bị lỗi "Run-time error "457"
this key is alreary associated with an element of this collection

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

bluesky2222 · 28/9/14

gtri · 28/9/14

bluesky2222 đã viết:
Mình làm theo câu lệnh của bạn, nhưng file bị lỗi, bạn xem file đính kèm rồi sửa giúp mình

File đính kèm, dữ liệu là text hay là number, số dòng cột A và B khác nhau đều được.

PHP:

Public Sub TrungSoLieu()
Dim DL, Mau1, Mau2, Sd, Thay, Kq() As String, d As Long, i As Long, j As Long, k As Long

DL = Sheet1.Range("A2").CurrentRegion
Sd = UBound(DL)
ReDim Kq(1 To Sd, 1 To 3)
Sheet1.Range("D3", Sheet1.Range("F1000000").End(xlUp)).Clear
Set Mau1 = CreateObject("Scripting.Dictionary")
Set Mau2 = CreateObject("Scripting.Dictionary")

For d = 2 To Sd
If Not Mau1.exists(DL(d, 1)) And DL(d, 1) <> "" Then
Mau1.Add DL(d, 1), ""
End If
If Not Mau2.exists(DL(d, 2)) And DL(d, 2) <> "" Then
Mau2.Add DL(d, 2), ""
End If
Next d

For d = 2 To Sd
If Mau1.exists(DL(d, 2)) Then
i = i + 1
Kq(i, 1) = DL(d, 2)
Else
k = k + 1
Kq(k, 3) = DL(d, 2)
End If

If Not Mau2.exists(DL(d, 1)) Then
j = j + 1
Kq(j, 2) = DL(d, 1)
End If
Next d

Sheet1.Range("D3").Resize(Sd, 3).Value = Kq

Set Mau1 = Nothing
Set Mau2 = Nothing

End Sub

----------------
Lỗi ở file trước là do dữ liệu trong một cột bị trùng và code phần add dic viết hơi ẩu.Sorry
Bạn kiểm tra xem, còn gì sẽ xử lý.

bluesky2222 · 29/9/14

Dữ liệu trùng nhau giữa 2 cột (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên mới

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên tích cực

Thành viên mới

Thành viên mới

File đính kèm

Thành viên tích cực

File đính kèm

Thành viên mới

Thời gian đếm ngược.