trích xuất các dữ liệu lặp lai

[ngtchung]

Chào cả nhà
Hiện trong công việc mình đang muốn trích dữ liệu như sau:

LQD-2"-AI-A6-3040_SHT 1 OF 2	1
LQD-2"-AI-A6-3040_SHT 1 OF 2	2
LQD-2"-AI-A6-3040_SHT 2 OF 2	3
LQD-2"-AI-A6-3040_SHT 2 OF 2	4
Dữ liệu muốn trích xuất
LQD-2"-AI-A6-3040_SHT 1 OF 2	1,2
LQD-2"-AI-A6-3040_SHT 2 OF 2	3,4

Mình muôn lấy tất cả các giá trị cột B nếu cột A trùng nhau nên chưa bít làm cách nào để lấy hết nội dung trùng lặp trên nhờ diễn đàn tư vấn giúp??? Trân trọng cảm ơn
Chi tiết file đính kèm

 

[quanluu]

Chào cả nhà
Hiện trong công việc mình đang muốn trích dữ liệu như sau:

LQD-2"-AI-A6-3040_SHT 1 OF 2	1
LQD-2"-AI-A6-3040_SHT 1 OF 2	2
LQD-2"-AI-A6-3040_SHT 2 OF 2	3
LQD-2"-AI-A6-3040_SHT 2 OF 2	4
Dữ liệu muốn trích xuất
LQD-2"-AI-A6-3040_SHT 1 OF 2	1,2
LQD-2"-AI-A6-3040_SHT 2 OF 2	3,4

Mình muôn lấy tất cả các giá trị cột B nếu cột A trùng nhau nên chưa bít làm cách nào để lấy hết nội dung trùng lặp trên nhờ diễn đàn tư vấn giúp??? Trân trọng cảm ơn
Chi tiết file đính kèm

VỚi mình thì mình sẽ dùng code VBA, không biết ý bạn thế nào?

 

[ngtchung]

VỚi mình thì mình sẽ dùng code VBA, không biết ý bạn thế nào?

Dùng code VBA như thế nào vậy bạn, hướng dẫn giúp mình với, chắc dùng hàm trường hợp này cũng khó hỉ?

 

[quanluu]

Dùng code VBA như thế nào vậy bạn, hướng dẫn giúp mình với, chắc dùng hàm trường hợp này cũng khó hỉ?

Nếu dùng công thức thì bạn tham khảo bài này xem (#8). còn code VBA thì đợi chút
http://www.giaiphapexcel.com/forum/showthread.php?115652-Hàm-Index-dữ-liệu-trong-một-ô-bảng-tính-!!!

 

[quanluu]

Dùng code VBA thì như thế này:
Lưu ý là cột A phải đc sort nhé.

Sub combine()
Dim i, j, k, lastrow As Integer, Arr()
lastrow = Range("A" & Rows.Count).End(3).Row
ReDim Arr(1 To lastrow, 1 To 2)
k = 1
For i = 1 To lastrow
    Arr(k, 1) = Cells(i, 1)
    For j = i To lastrow + 1
        Arr(k, 2) = Arr(k, 2) & ", " & Cells(j, 2)
        If Cells(j, 1) <> Cells(i, 1) Then
            Arr(k, 2) = Mid(Arr(k, 2), 2, Len(Arr(k, 2)) - Len(Cells(j, 2)) - 3)
            k = k + 1
            i = j - 1
            GoTo 1
        End If
    Next
1:
Next
Range("C1").Resize(k, 2) = Arr
End Sub

 

[Let'GâuGâu]

tôi góp thêm một code