Nhờ giúp đỡ giải pháp tìm kiếm và truy xuất dữ liệu từ hai bảng trong cùng một trang tính (2 người xem)

[nguyenhungquyen]

Xin chào các anh chị
Em có tệp dữ liệu như đã đính kèm trong bài đăng. Em đang gặp vấn đề về việc tìm kiếm và truy xuất dữ liệu từ hai bảng trong cùng một trang tính. Nhờ mọi người giúp em giải pháp cho yêu cầu sau:
1. Khi nhập dữ liệu vào cột NGUỒN THÔ thì cột NGUỒN TRA CỨU sẽ dò tìm trong bảng 2 để trả về tên đầy đủ tương ứng với các chữ viết tắt, giữ nguyên vị trí của các ký tự đặc biệt (như dấu ","). Dữ liệu trong cột NGUỒN THÔ (bảng 1) sẽ đồng bộ với cột VIẾT TẮT (bảng 2).
ví dụ: powo, gbif, s1 t1 244, s3 t1 209 (trong NGUỒN THÔ) sẽ thành Plant of the World online, Global Biodiversity Information Facility, Cây cỏ Việt Nam tập 1 trang 244, Cây thuốc và động vật làm thuốc ở Việt Nam tập 1 trang 209 (trong NGUỒN TRA CỨU)
2. Có thể sử dụng được trên cả điện thoại Android (vốn không hỗ trợ VBA, Marco).
3. Số lượng ô trong cột NGUỒN THÔ có thể sẽ lên đến 5000. Nếu có thể thì em muốn tệp này có dung lượng nhẹ, khi tìm kiếm dữ liệu trong tệp cho tốc độ nhanh.
Nếu có vấn đề gì về cách trình bày thông tin hay trong tệp dữ liệu nhờ mọi người chỉ giúp!
Cảm ơn các anh chị nhiều và chúc sức khoẻ!

 

[LamNA]

Xin chào các anh chị
Em có tệp dữ liệu như đã đính kèm trong bài đăng. Em đang gặp vấn đề về việc tìm kiếm và truy xuất dữ liệu từ hai bảng trong cùng một trang tính. Nhờ mọi người giúp em giải pháp cho yêu cầu sau:
1. Khi nhập dữ liệu vào cột NGUỒN THÔ thì cột NGUỒN TRA CỨU sẽ dò tìm trong bảng 2 để trả về tên đầy đủ tương ứng với các chữ viết tắt, giữ nguyên vị trí của các ký tự đặc biệt (như dấu ","). Dữ liệu trong cột NGUỒN THÔ (bảng 1) sẽ đồng bộ với cột VIẾT TẮT (bảng 2).
ví dụ: powo, gbif, s1 t1 244, s3 t1 209 (trong NGUỒN THÔ) sẽ thành Plant of the World online, Global Biodiversity Information Facility, Cây cỏ Việt Nam tập 1 trang 244, Cây thuốc và động vật làm thuốc ở Việt Nam tập 1 trang 209 (trong NGUỒN TRA CỨU)
2. Số lượng ô trong cột NGUỒN THÔ có thể sẽ lên đến 5000. Nếu có thể thì em muốn tệp này có dung lượng nhẹ, khi tìm kiếm dữ liệu trong tệp cho tốc độ nhanh vì em sử dụng trên điện thoại là chính.
Nếu có vấn đề gì về cách trình bày thông tin hay trong tệp dữ liệu nhờ mọi người chỉ giúp!
Cảm ơn các anh chị nhiều và chúc sức khoẻ!

Dùng hàm tự tạo của bác @ndu96081631

Function MReplace(ByVal Text As String, Dictionary As Range, Optional ByVal CompareMode As VbCompareMethod = vbTextCompare) As String
  Dim aDic, idx As Long
  MReplace = Text
  aDic = Dictionary.Value
  For idx = 1 To UBound(aDic, 1)
    MReplace = Replace(MReplace, aDic(idx, 1), aDic(idx, 2), CompareMode)
  Next
End Function

 

[CHAOQUAY]

Xin chào các anh chị
Em có tệp dữ liệu như đã đính kèm trong bài đăng. Em đang gặp vấn đề về việc tìm kiếm và truy xuất dữ liệu từ hai bảng trong cùng một trang tính. Nhờ mọi người giúp em giải pháp cho yêu cầu sau:
1. Khi nhập dữ liệu vào cột NGUỒN THÔ thì cột NGUỒN TRA CỨU sẽ dò tìm trong bảng 2 để trả về tên đầy đủ tương ứng với các chữ viết tắt, giữ nguyên vị trí của các ký tự đặc biệt (như dấu ","). Dữ liệu trong cột NGUỒN THÔ (bảng 1) sẽ đồng bộ với cột VIẾT TẮT (bảng 2).
ví dụ: powo, gbif, s1 t1 244, s3 t1 209 (trong NGUỒN THÔ) sẽ thành Plant of the World online, Global Biodiversity Information Facility, Cây cỏ Việt Nam tập 1 trang 244, Cây thuốc và động vật làm thuốc ở Việt Nam tập 1 trang 209 (trong NGUỒN TRA CỨU)
2. Số lượng ô trong cột NGUỒN THÔ có thể sẽ lên đến 5000. Nếu có thể thì em muốn tệp này có dung lượng nhẹ, khi tìm kiếm dữ liệu trong tệp cho tốc độ nhanh vì em sử dụng trên điện thoại là chính.
Nếu có vấn đề gì về cách trình bày thông tin hay trong tệp dữ liệu nhờ mọi người chỉ giúp!
Cảm ơn các anh chị nhiều và chúc sức khoẻ!

Bài này được viết trên máy tính, bạn dùng máy tính mà kiểm tra.
Điện thoại có dùng được không thì có lẽ bạn tự test xem sao.

Sub TraCuu()
Dim Nguon
Dim BangTra
Dim Kq
Dim Mang
Dim i, j
With Sheet1
    Nguon = .Range("A3", .Range("A3").End(xlDown))
    BangTra = .Range("G3", .Range("H3").End(xlDown))
End With
ReDim Kq(1 To UBound(Nguon), 1 To 1)
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(BangTra)
        .Add BangTra(i, 1), BangTra(i, 2)
    Next i
    For i = 1 To UBound(Nguon)
        Mang = Split(Trim(Replace(Nguon(i, 1), ",", " ,")))
        For j = 0 To UBound(Mang)
            If .exists(Mang(j)) Then
                Mang(j) = .Item(Mang(j))
            End If
        Next j
        Kq(i, 1) = Replace(Join(Mang), " ,", ",")
    Next i
End With
Sheet1.Range("B3").Resize(UBound(Kq), 1) = Kq
End Sub

 

[nguyenhungquyen]

Em cảm ơn ạ.
Cả hai cách đều hoạt động tốt trên máy tính nên đã giúp em rất nhiều.
Tuy nhiên trên điện thoại thì không dùng được vì ứng dụng Excel cho điện thoại không hỗ trợ VBA. Mong có một giải pháp hoạt động được cả trên điện thoại!

 

[LamNA]

Em cảm ơn ạ.
Cả hai cách đều hoạt động tốt trên máy tính nên đã giúp em rất nhiều.
Tuy nhiên trên điện thoại thì không dùng được vì ứng dụng Excel cho điện thoại không hỗ trợ VBA. Mong có một giải pháp hoạt động được cả trên điện thoại!

Dùng hàm có vẻ căng não với mình bạn chờ anh chị khác đi ngang xem có giải pháp nào không nhé

 

[LamNA]

Em cảm ơn ạ.
Cả hai cách đều hoạt động tốt trên máy tính nên đã giúp em rất nhiều.
Tuy nhiên trên điện thoại thì không dùng được vì ứng dụng Excel cho điện thoại không hỗ trợ VBA. Mong có một giải pháp hoạt động được cả trên điện thoại!

Cách dùng công thức thì nó sẽ dài

=IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),TraCuu,2,0))&" "

nên tận dụng name để cho công thức ngắn lại, có điều dấu , chưa tìm ra cách để nối chỉ cần gõ công thức đã mở rộng ra 30 từ viết tắt

=KetQua

 

[LamNA]

Em cảm ơn ạ.
Cả hai cách đều hoạt động tốt trên máy tính nên đã giúp em rất nhiều.
Tuy nhiên trên điện thoại thì không dùng được vì ứng dụng Excel cho điện thoại không hỗ trợ VBA. Mong có một giải pháp hoạt động được cả trên điện thoại!

Một giải pháp dùng hàm để có dấu phẩy thay cho bài 6
Công thức ô b3

=NguonTraCuu

 

[huonglien1901]

Cách dùng công thức thì nó sẽ dài

=IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!A1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!B1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!C1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!D1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!E1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!F1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!G1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!H1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!I1)-1)*200+1,200)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),VLOOKUP(TRIM(MID(SUBSTITUTE(TraCuu[@[CẦN TÌM]]," ",REPT(" ",200)),(COLUMN(DATA!J1)-1)*200+1,200)),TraCuu,2,0))&" "

nên tận dụng name để cho công thức ngắn lại, có điều dấu , chưa tìm ra cách để nối chỉ cần gõ công thức đã mở rộng ra 30 từ viết tắt

=KetQua

Sao công thức đó anh xem có thể rút gọn lại được không?

 

[nguyenhungquyen]

Một giải pháp dùng hàm để có dấu phẩy thay cho bài 6
Công thức ô b3

=NguonTraCuu

Cảm ơn anh nhiều! Anh có thể đăng lại công thức dùng trong #7 không? Trong tệp đính kèm không thể hiện.

 

[Phuocam]

Cảm ơn anh nhiều! Anh có thể đăng lại công thức dùng trong #7 không? Trong tệp đính kèm không thể hiện.

Công thức trong Name, nhấn Ctrl+F3 để thấy nó.

 

[LamNA]

Cảm ơn anh nhiều! Anh có thể đăng lại công thức dùng trong #7 không? Trong tệp đính kèm không thể hiện.

Nếu không dùng name nó sẽ vậy

=IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1))*50+1,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1))*50+1,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1))*50+1,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+1)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+1)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+1)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+2)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+2)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+2)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+3)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+3)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+3)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+4)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+4)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+4)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+5)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+5)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+5)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+6)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+6)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+6)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+7)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+7)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+7)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+8)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+8)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+8)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+9)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+9)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+9)*50,50)),TraCuu,2,0))&" "&IF(ISNA(VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+10)*50,50)),TraCuu,2,0)),TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+10)*50,50)),VLOOKUP(TRIM(MID(SUBSTITUTE(DATA!$A3," ",REPT(" ",50)),(COLUMN(BangTraCuu!A1)+10)*50,50)),TraCuu,2,0))&" "