Xin giúp đỡ về cách tìm kiếm tên theo mã gộp (7 người xem)

[hml89]

Kính chào các Thầy và anh,chị,em diễn đàn GPE.

Em đang gặp một rắc rối khi tìm kiếm tên theo mã. Đó là những mã gộp thì em đang không biết làm công thức gì để có thể ghi tên đầy đủ.
Chi tiết em có ghi trong file gửi kèm.
Mong nhận được sự giúp đỡ của cả nhà.

Em cám ơn!

 

[ngo ly]

Kế hoạch bạn lên có dựa trên tiêu thức nào không?

 

[hml89]

Kế hoạch bạn lên có dựa trên tiêu thức nào không?

À, phần kế hoạch đang là phần riêng, tất nhiên là có cách thức để lập kế hoạch. Chủ yếu là mình đang muốn diễn giải tên ra khi gộp lại.

 

[huuthang_bd]

Kính chào các Thầy và anh,chị,em diễn đàn GPE.

Em đang gặp một rắc rối khi tìm kiếm tên theo mã. Đó là những mã gộp thì em đang không biết làm công thức gì để có thể ghi tên đầy đủ.
Chi tiết em có ghi trong file gửi kèm.
Mong nhận được sự giúp đỡ của cả nhà.

Em cám ơn!

Trường hợp này phải dùng VBA.

 

[ngo ly]

Cách của mình thêm một số thao tác trên excel - cũng ra được kết quả bạn tham khảo

 

[Nhattanktnn]

Kính chào các Thầy và anh,chị,em diễn đàn GPE.

Em đang gặp một rắc rối khi tìm kiếm tên theo mã. Đó là những mã gộp thì em đang không biết làm công thức gì để có thể ghi tên đầy đủ.
Chi tiết em có ghi trong file gửi kèm.
Mong nhận được sự giúp đỡ của cả nhà.

Em cám ơn!

Mình làm thử bạn xem sao: (dùng UDF)

Function NoiChuoi(TT As String, Vung As Range, CotSoSanh As Long, CotCanLay As Long) As String
Dim Arr(), TtArr As Variant, R&, I&, J&
Arr = Vung.Value
TtArr = Split(TT, ",")
R = UBound(TtArr)
For I = 0 To R
    For J = 1 To UBound(Arr, 1)
        If Trim(TtArr(I)) = Arr(J, CotSoSanh) Then
            NoiChuoi = IIf(NoiChuoi = "", Arr(J, CotCanLay), NoiChuoi & ", " & Arr(J, CotCanLay))
        End If
    Next
Next
End Function

 

[hocexcel_1991]

Kính chào các Thầy và anh,chị,em diễn đàn GPE.

Em đang gặp một rắc rối khi tìm kiếm tên theo mã. Đó là những mã gộp thì em đang không biết làm công thức gì để có thể ghi tên đầy đủ.
Chi tiết em có ghi trong file gửi kèm.
Mong nhận được sự giúp đỡ của cả nhà.

Em cám ơn!

Dùng hàm JoinText của thầy @ndu96081631
Nếu bạn dùng Excel 2019 hoặc 365 thì có hàm TEXTJOIN

I3=JoinText(", ",IF(MMULT(N(TRIM(MID(SUBSTITUTE(G3,",",REPT(" ",100)),(TRANSPOSE(ROW($1:$10)-1))*100+1,100))=$E$3:$E$22),ROW($1:$10)^0),$C$3:$C$22,1/0))
Nhấn Ctrl+Shirt+Enter

 

[excel_lv1.5]

Dùng hàm JoinText của thầy @ndu96081631
Nếu bạn dùng Excel 2019 hoặc 365 thì có hàm TEXTJOIN

I3=JoinText(", ",IF(MMULT(N(TRIM(MID(SUBSTITUTE(G3,",",REPT(" ",100)),(TRANSPOSE(ROW($1:$10)-1))*100+1,100))=$E$3:$E$22),ROW($1:$10)^0),$C$3:$C$22,1/0))
Nhấn Ctrl+Shirt+Enter

Sao bạn không dùng Find hay search nhỉ ?

 

[PacificPR]

Kính chào các Thầy và anh,chị,em diễn đàn GPE.

Em đang gặp một rắc rối khi tìm kiếm tên theo mã. Đó là những mã gộp thì em đang không biết làm công thức gì để có thể ghi tên đầy đủ.
Chi tiết em có ghi trong file gửi kèm.
Mong nhận được sự giúp đỡ của cả nhà.

Em cám ơn!

Lâu lắm không viết. Luộc hết cả nghề. Bạn tham khảo thử

Function HVLOOKUP(ByVal Delimiter As String, ByVal Range, ByVal Criteria, Optional ByVal Find_Range) As String
' Delimiter: Ky tu ngan cach
' Range: Vung chua ket qua tra ve
' Criteria: Chuoi do tim
' Find_Range): vung chua chuoi do tim
    Dim sArr(), tArr(), Dic As Object
    Dim I As Long, R As Long, Ma, Text As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range.Value: tArr = Find_Range.Value
For I = 1 To UBound(tArr)
    If Not Dic.Exists(tArr(I, 1)) Then Dic.Add tArr(I, 1), I
Next I
For Each Ma In Split(Criteria, Delimiter)
    R = Dic.Item(Trim(Ma))
    If R Then Text = IIf(Text = "", sArr(R, 1), Text & Delimiter & sArr(R, 1))
Next
If Len(Text) Then HVLOOKUP = Text
End Function

 

[huuthang_bd]

Lâu lắm không viết. Luộc hết cả nghề. Bạn tham khảo thử

Đã là LOOKUP thì khi không tìm thấy phải trả về kết quả lỗi chứ nhỉ. Ví dụ tôi tìm 03.1-4, !%, 07.1-3 thì phải trả về Tấm bắt, #N/A, Tăng cứng cánh hoặc ít ra là chỉ trả về #N/A thôi chứ.

TB: Hình như là lụt nghề chứ không phải luộc nghề thì phải.

 

[hocexcel_1991]

Sao bạn không dùng Find hay search nhỉ ?

Đúng là dùng FIND ngắn hơn nhiều . Cảm ơn bạn

=JoinText(", ",IF(FIND($E$3:$E$22,G3),$C$3:$C$22,1/0))

 

[huhumalu]

Cái này thì làm hàm thì sẽ dễ dàng hơn. Mình góp vui, mình dùng công thức.
Nó ra một cái rất chi là khổng lồ, các bạn xem vui nhé.

 

[hml89]

Em Xin chân thành cám ơn các anh, chị và mọi người. Mình sẽ thử từng cách một. Nếu có gặp vướng mắc gì trong lúc làm. Mong nhận được sự giúp đỡ tiếp ạ.

Chúc mọi người ngày mới vui vẻ!