Nối tên theo hàng ngang

[minhduc_kt91]

Các bác ơi,
em có 1 file rất dễ làm nhờ các bác chỉ giáo:
- Nối tất cả các ký tự hàng ngang lại thành 1 ô .

Em có dùng CONCATENATE(text, text,.....) nhưng ấn từng ô mỏi tay lắm, mà có thể sai sót thiếu ô nữa.

các bác bảo em phải làm sao ạ ?

 

[Ba Tê]

Các bác ơi,
em có 1 file rất dễ làm nhờ các bác chỉ giáo:
- Nối tất cả các ký tự hàng ngang lại thành 1 ô .

Em có dùng CONCATENATE(text, text,.....) nhưng ấn từng ô mỏi tay lắm, mà có thể sai sót thiếu ô nữa.

các bác bảo em phải làm sao ạ ?

Chép cái này vào Module, ô O4 nhập:
=GPE(B4:N4)

Public Function GPE(Rng As Range) As String
Dim Cll As Range
For Each Cll In Rng
    If Cll <> Empty Then GPE = GPE & Space(1) & Cll.Value
Next Cll
GPE = Trim(GPE)
End Function

 

[minhduc_kt91]

Chép cái này vào Module, ô O4 nhập:
=GPE(B4:N4)

Public Function GPE(Rng As Range) As String
Dim Cll As Range
For Each Cll In Rng
    If Cll <> Empty Then GPE = GPE & Space(1) & Cll.Value
Next Cll
GPE = Trim(GPE)
End Function

Em đã làm được.
Cảm ơn bác Ba Tê từ hôm qua tới giờ đã giúp đỡ em rất nhiều