Cách Tìm dữ liệu và nối dữ liệu lại với nhau (1 người xem)

[vietnd]

em có một vấn đề tìm dữ liệu và nối chúng lại với nhau xin nhờ các anh chi giúp đỡ em. Trân trọng cảm ơn! A/C có file đính kem

 

[nghiaphuc]

em có một vấn đề tìm dữ liệu và nối chúng lại với nhau xin nhờ các anh chi giúp đỡ em. Trân trọng cảm ơn! A/C có file đính kem

Tôi chỉ có thể sử dụng VBA thôi, công thức thì tôi chịu.
Code như sau (còn rất luộm thuộm nhưng tạm thời giải quyết được vấn đề):
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Cll As Range, KQ As String
If Target.Address <> "$M$1" Or Target.Count > 1 Then Exit Sub
[M2].ClearContents
If Target = "" Then Exit Sub
On Error Resume Next
Set Rng = [C3:I3].Find(Target).Offset(1).Resize(54).SpecialCells(2, 1)
If Rng Is Nothing Then Exit Sub
For Each Cll In Rng
KQ = KQ & ";" & Cells(Cll.Row, 2)
Next
[M2] = Right(KQ, Len(KQ) - 1)
End Sub[/GPECODE]
Trong file đính kèm, bạn chọn giá trị tại ô M1, kết quả sẽ xuất hiện tại ô M2.

 

[ndu96081631]

em có một vấn đề tìm dữ liệu và nối chúng lại với nhau xin nhờ các anh chi giúp đỡ em. Trân trọng cảm ơn! A/C có file đính kem

Bạn xem bài này nhé:
http://www.giaiphapexcel.com/forum/...-cùng-điều-kiện-cho-trước&p=573632#post573632

 

[vietnd]

như vậy đã giả quyết vấn đề cho em rồi cảm ơn các anh đã giúp đỡ.