Nhờ Anh, Chị hỗ trợ giúp đỡ về việc nối các ô lại với nhau bằng VBA ạ.

[trihay]

Chào các Anh, Chị,
Nhờ Anh/Chị hỗ trợ xem và chỉnh sửa file này giúp em để phù hợp với yêu cầu với ạ. Em dùng đoạn code (em sưu tầm trên web) để nối các ô lại với nhau, với các ô có kiểu dữ liệu là text thì không sao nhưng nếu dữ liệu trong ô đó là số hay % là kết quả ra nó hiển thị ra không như yêu cầu được ạ. Em cảm ơn.
Hôm trước em có post nhờ giúp đỡ trên diễn đàn GPE một lần, không biết lần này em post trong đây có sai quy định nữa không, có gì mong anh chị Mod bỏ qua cho em dùm. Em cảm ơn nhiều.

 

[huuthang_bd]

Chào các Anh, Chị,
Nhờ Anh/Chị hỗ trợ xem và chỉnh sửa file này giúp em để phù hợp với yêu cầu với ạ. Em dùng đoạn code (em sưu tầm trên web) để nối các ô lại với nhau, với các ô có kiểu dữ liệu là text thì không sao nhưng nếu dữ liệu trong ô đó là số hay % là kết quả ra nó hiển thị ra không như yêu cầu được ạ. Em cảm ơn.
Hôm trước em có post nhờ giúp đỡ trên diễn đàn GPE một lần, không biết lần này em post trong đây có sai quy định nữa không, có gì mong anh chị Mod bỏ qua cho em dùm. Em cảm ơn nhiều.

Function noi_o(vung_can_noi As Range, delim As String)
    Dim Mot_o As Range
    For Each Mot_o In vung_can_noi
        noi_o = noi_o & Mot_o.Text & delim
    Next
    noi_o = Left(noi_o, Len(noi_o) - Len(delim))
End Function

 

[trihay]

Function noi_o(vung_can_noi As Range, delim As String)
    Dim Mot_o As Range
    For Each Mot_o In vung_can_noi
        noi_o = noi_o & Mot_o.Text & delim
    Next
    noi_o = Left(noi_o, Len(noi_o) - Len(delim))
End Function

Ôi Trời, cảm ơn anh rất nhiều. Em ở Sài Gòn, nếu anh cũng ở Sài Gòn cho em mời anh Cafe nhé

 

[huuthang_bd]

Ôi Trời, cảm ơn anh rất nhiều. Em ở Sài Gòn, nếu anh cũng ở Sài Gòn cho em mời anh Cafe nhé

Cảm ơn bạn. Tôi cũng ở HCM nhưng chắc không có thời gian đi cafe