Lập danh sách từ mã trùng nhau

[nilt02]

Mình có 1 bảng số liệu có nhiều mã khác nhau, mình muốn lập 1 danh sách ở cột (i), theo đó những CODE trùng nhau ở cột H,A sẽ cho vào danh sách, nhưng mà 1 CODE trùng nhiều tên nên mình chỉ lấy 1 cái thôi, mình thử xài filter, remove dublicate nhưng như vậy thì lâu mà cột A,B giá trị thay đổi liên tục. Bạn nào giúp mình công thức với.
Thank cả nhà!

 

[Let'GâuGâu]

Mình có 1 bảng số liệu có nhiều mã khác nhau, mình muốn lập 1 danh sách ở cột (i), theo đó những CODE trùng nhau ở cột H,A sẽ cho vào danh sách, nhưng mà 1 CODE trùng nhiều tên nên mình chỉ lấy 1 cái thôi, mình thử xài filter, remove dublicate nhưng như vậy thì lâu mà cột A,B giá trị thay đổi liên tục. Bạn nào giúp mình công thức với.
Thank cả nhà!

mấy cái vụ nối nhau bằng ph6ảy phẩy này phải xài vba rùi, bạn muốn xài ko?
=============
thôi làm đại đi, đợi bạn đồng ý lâu quá
nhớ enamble macro nha

 

[nilt02]

thank bác, vụ nối nhau bằng dấu phẩy sao bác ko dùng hàm

 

[gtri]

theo đó những CODE trùng nhau ở cột H,A sẽ cho vào danh sách, nhưng mà 1 CODE trùng nhiều tên nên mình chỉ lấy 1 cái thôi

1 CODE trùng nhiều tên thì bạn muốn lấy cái tên nào?
-----
Không phải là lấy mà là nối!!!

 

[Zerothink]

thank bác, vụ nối nhau bằng dấu phẩy sao bác ko dùng hàm & ", "
bac' có cách nào khác ko xài VB ko ạ ^(^

Không , bài này buộc phải dùng VBA mới nhanh

Còn không dùng VBA, thì bạn phải filter thành danh sách duy nhất, sắp xếp ----> rồi dùng & nối từng cells

 

[nilt02]

1 CODE trùng nhiều tên thì bạn muốn lấy cái tên nào?
-----
Không phải là lấy mà là nối!!!

thank bác, em nói ví dụ ntn:
trong cột A (CODE) có mã số 8 gồm rất nhiều quận huyện tên trùng nhau ở cột B, em chỉ lấy 1 tên thôi ạ, bác có cách khác ko dùng VA ko chỉ em cái, vì cái này em hay copy sang nhiều vị trí khác nhau..hix

 

[nilt02]

1 CODE trùng nhiều tên thì bạn muốn lấy cái tên nào?
-----
Không phải là lấy mà là nối!!!

thank bác, em nói ví dụ ntn:
trong cột A (CODE) có mã số 8 gồm rất nhiều quận huyện tên trùng nhau ở cột B, em chỉ lấy 1 tên thôi ạ, bác có cách khác ko dùng VA ko chỉ em cái, vì cái này em hay copy sang nhiều vị trí khác nhau..hix

 

[Lê Duy Thương]

thank bác, em nói ví dụ ntn:
Trong cột a (code) có mã số 8 gồm rất nhiều quận huyện tên trùng nhau ở cột b, em chỉ lấy 1 tên thôi ạ, bác có cách khác ko dùng va ko chỉ em cái, vì cái này em hay copy sang nhiều vị trí khác nhau..hix

bạn thử dùng pivot table xem
dã sử bạn có 50 tên nối chuỗi lại thì dài hết bảng tính thì làm sao mà in nhỉ

 

[nilt02]

bạn thử dùng pivot table xem
dã sử bạn có 50 tên nối chuỗi lại thì dài hết bảng tính thì làm sao mà in nhỉ

hix...em ko biết làm theo cách đó bác ạ, chắc chỉ khoảng 20 tên thôi bác, em để như vậy là muốn copy ra word nó tự xuống dòng đó bác, bác thử em coi đc ko ạ ?
thank bác nhiều

 

[Let'GâuGâu]

thank bác, em nói ví dụ ntn:
trong cột A (CODE) có mã số 8 gồm rất nhiều quận huyện tên trùng nhau ở cột B, em chỉ lấy 1 tên thôi ạ, bác có cách khác ko dùng VA ko chỉ em cái, vì cái này em hay copy sang nhiều vị trí khác nhau..hix

cthức thì bạnt hử vậy xem

I2=IF(COLUMN()-8<=COUNTIF($A$2:$A$100,$H2),INDEX($B$2:$B$100,MATCH(0,COUNTIF($H2:H2,$B$2:$B$100),0)),"")

cthức mảng nên bạn nhấn CTrl shift enter để kết thức
kéo qua phải 20 ô để đó
kéo xuống
sau đó bạn dùng hàm CONCATENATE nối từng cell lại

bạn gặp khó khăn gì khi xài vba, bạn nói chép ra nhiều chổ, tôi làm cho bạn cái hàm mà, bạn muốn đặt nó ở đâu mà không được

 

[nilt02]

thank bác GauGau nhieu ạ, bác rất nhiệt tình, em làm dc cả 2 cách của bác ruj ạ

 

[Let'GâuGâu]

thank bác GauGau nhieu ạ, bác rất nhiệt tình, em làm dc cả 2 cách của bác ruj ạ

cách thứ hai sai rồi, làm xong thấy sai, nhưng làm biếng sửa lại quá. phải xài index, small, match
trên diễn đàn nhiều lắm, bạn thử gõ lọc duy nhất có điều kiện tìm thử.

 

[nilt02]

thank bác, em xài VB vậy, kách kia e ko rành :d

 

[Lê Duy Thương]

thank bác, em xài VB vậy, kách kia e ko rành :d

thử thêm cái vờ bê a củ chuối này xem sao

 

[nilt02]

thử thêm cái vờ bê a củ chuối này xem sao

cảm ơn bác nhiều nhé

 

[Quang_Hải]

thử thêm cái vờ bê a củ chuối này xem sao

Công nhận củ chuối thiệt đó nha Thương

Sub GomGom()
Dim data(), res(), i, tmp, it, kq(1 To 1000, 1 To 2)
With Sheets("data")
    data = .Range(.[A2], .[B65536].End(3)).Value
End With
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(data)
        tmp = data(i, 1) & "," & data(i, 2)
        .Item(tmp) = data(i, 1)
    Next
    For i = 1 To Application.Max(.items)
        For Each it In .keys
            If .Item(it) = i Then
                kq(i, 1) = i
                kq(i, 2) = kq(i, 2) & Replace(it, i, "")
            End If
        Next
        kq(i, 2) = Replace(kq(i, 2), ",", "", 1, 1)
    Next
End With
Sheets("LOC").[A2].Resize(i - 1, 2) = kq
End Sub