Xin hướng dẫn cách tìm số trùng nhau trong 2 cột (4 người xem)

[kthai2387]

Hiện tại mình có 1 dãy số file ( số không theo thứ tự )Tại Cột A và 1 cột C có những dãy số ngẫu nhiên khác. Làm cách nào để mình Loại bỏ những số mà cột C có rồi thì cột A sẻ xóa những số đã có tại cột C.


Mình bán 1 lô hàng gồm những dãy số tại cột C đó, h làm thế nào để loại bỏ những số đã bán đó đi,còn lại những số chưa bán....Mọi người giúp em với Thanks all

 

[kthai2387]

mọi người giúp em với

 

[Ba Tê]

mọi người giúp em với

Vu vơ!
Cột B làm gì có "cái gì".

 

[kthai2387]

vu vơ!
Cột b làm gì có "cái gì".
View attachment 140111

em nhầm anh ơi, cột c ,cột đã bán nội địa đó anh. Anh giúp em với.

 

[0905744404]

Hiện tại mình có 1 dãy số file ( số không theo thứ tự )Tại Cột A và 1 cột C có những dãy số ngẫu nhiên khác. Làm cách nào để mình Loại bỏ những số mà cột C có rồi thì cột A sẻ xóa những số đã có tại cột C.


Mình bán 1 lô hàng gồm những dãy số tại cột C đó, h làm thế nào để loại bỏ những số đã bán đó đi,còn lại những số chưa bán....Mọi người giúp em với Thanks all

Tôi không hiểu ý bạn lắm
Bạn xem File thử nha

 

[NGO TAN NHAT]

Bạn có thể sử dụng code dưới đây để kiểm tra những giá trị khác biệt giữa 2 cột, ngược lại với yêu cầu của bạn là kiểm tra những giá trị giống nhau của 2 cột. Tuy nhiên bạn vẫn đạt được mục đích như mong muốn.
Sử dụng: bấm giữ Ctr để chọn lần lượt 4 cell (2 cell ở cột cần so sánh & 2 cell ở cột trống, để hiện kết quả)

Sub SoSanh2Col()
'Ung dung: co 2 cot so lieu, lay tung cell cua cot nay so sanh voi tat ca cac cell cua cot kia.
'Ket qua: khi so sanh, neu ko thay cell nao giong, se thong bao su khac biet nay
'Su dung: bam giu Ctr de chon lan luot 4 cell (2 cell o cot can so sanh & 2 cell o cot trong de hien ket qua)
ActiveSheet.Select
c = Selection.Areas.Count
c1 = Selection.Areas(1).Column
c2 = Selection.Areas(2).Column
kq1 = Selection.Areas(3).Column
kq2 = Selection.Areas(4).Column
Cells(1, c1).Select
Set tbl = ActiveCell.CurrentRegion
r = tbl.Rows.Count
For i = 1 To r
Check = False
j = 0
Do
j = j + 1
If Cells(j, c2) = Cells(i, c1) Then Check = True
Loop Until Check = True Or j = r + 1
If Not Check Then
Cells(i, kq1) = Cells(i, c1)
End If
Next i
t = 0
For j = 1 To r
Check = False
i = 0
Do
i = i + 1
If Cells(i, c1) = Cells(j, c2) Then Check = True
Loop Until Check = True Or i = r + 1
If Not Check Then
Cells(j, kq2) = Cells(j, c2)
End If
Next j
For i = 1 To r
If Cells(i, kq1) <> "" Then
Cells(1, kq1) = "C1False"
Exit For
End If
Next i
If Cells(1, kq1) = "" Then
Cells(1, kq1) = "C1True"
End If
For i = 1 To r
If Cells(i, kq2) <> "" Then
Cells(1, kq2) = "C2False"
Exit For
End If
Next i
If Cells(1, kq2) = "" Then
Cells(1, kq2) = "C2True"
End If
End Sub