Tìm dữ liệu giống nhau giữa 2 danh sách hay lọc ra dùm danh sách giống nhau (1 người xem)

[thnnh10]

Như tiêu đề, ai giúp dùm mình, với 2 danh sách rất dài. Em càn làm báo cáo gấp.
Ai làm giúp có thể chỉ cách làm trực tiếp để em làm luôn. Cám ơn nhiều.
(sỏry KH Biet, mạn phép mượn file của bạn)

 

[lehuong1409]

Vlookup

Như tiêu đề, ai giúp dùm mình, với 2 danh sách rất dài. Em càn làm báo cáo gấp.
Ai làm giúp có thể chỉ cách làm trực tiếp để em làm luôn. Cám ơn nhiều.
(sỏry KH Biet, mạn phép mượn file của bạn)

Bạn dùng Vlookup cũng đc, rồi sort là đc, k biết đúng ý b k

 

[leonguyenz]

Như tiêu đề, ai giúp dùm mình, với 2 danh sách rất dài. Em càn làm báo cáo gấp.
Ai làm giúp có thể chỉ cách làm trực tiếp để em làm luôn. Cám ơn nhiều.
(sỏry KH Biet, mạn phép mượn file của bạn)

Đặt Data1 và Data2 cho 2 Danh sách Họ và Tên.
Công thức tại G4:

=INDEX(Data2,MATCH(1,INDEX((COUNTIF(Data1,Data2)=1)*(COUNTIF($G$3:G3,Data2)=0),0),0))

Kéo xuống. Bạn tự sửa lỗi #N/A.
Các giải pháp khác: dùng VLOOKUP, dùng Remove Duplicate, Dùng Consolidate, ....

 

[Hai Lúa Miền Tây]

Như tiêu đề, ai giúp dùm mình, với 2 danh sách rất dài. Em càn làm báo cáo gấp.
Ai làm giúp có thể chỉ cách làm trực tiếp để em làm luôn. Cám ơn nhiều.
(sỏry KH Biet, mạn phép mượn file của bạn)

Dùng ADO thử:

1. Sheet1 đặt name cho vùng A320 là Data1
2. Sheet2 đặt name cho vùng A322 là Data2
3. Tạo thêm 1 sheet mới và đặt tên là ketqua
4. Chèn code sau vào module rồi chạy thử.

[GPECODE=sql]Sub LayDL()
Dim cn As Object, rst As Object
Dim mySQL As String
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
.Open
End With
mySQL = " SELECT Data1.[" & Sheet1.[A3] & "]," ' Cot stt
mySQL = mySQL & " Data1.[" & Sheet1.[B3] & "]," ' Cot ten liet si
mySQL = mySQL & " Data1.[" & Sheet1.[C3] & "]," ' Cot nam sinh
mySQL = mySQL & " Data1.[" & Sheet1.[D3] & "] " ' Cot nguyen quan
mySQL = mySQL & "FROM [Data1] " ' Name Data1 o sheet1
mySQL = mySQL & " INNER JOIN [Data2] " ' Join voi Name Data2 o sheet2
mySQL = mySQL & " ON [Data1].[" & Sheet1.[B3] & "] = [Data2].[" & Sheet1.[B3] & "];"
Set rst = cn.Execute(mySQL)
With Sheets("ketqua")
.[A2:H1000].ClearContents
.[A2].CopyFromRecordset rst
End With
rst.Close: cn.Close
Set rst = Nothing: Set cn = Nothing
End Sub

[/GPECODE]