VBA - Gôm nội dung các ô thành một ô (2 người xem)

[gianghoxaotra]

Hi các bạn, hiện tại mình viết Function để gom nội dung các ô thành 1 ô nhưng ở các dòng khác nhau. Gom lại được nhưng chưa xuống dòng được.
Please hep me! Thanks so much.

 

[kdang]

Hi các bạn, hiện tại mình viết Function để gom nội dung các ô thành 1 ô nhưng ở các dòng khác nhau. Gom lại được nhưng chưa xuống dòng được.
Please hep me! Thanks so much.

Bạn tham khảo hàm này nhé

Function NoiChuoi(Rng As Range) As Variant Dim Clls As Range
For Each Clls In Rng
If Clls <> "" Then _
NoiChuoi = NoiChuoi & Chr(10) & " " & Clls
Next Clls
NoiChuoi = Mid(NoiChuoi, 2)
End Function

 

[giaiphap]

Hi các bạn, hiện tại mình viết Function để gom nội dung các ô thành 1 ô nhưng ở các dòng khác nhau. Gom lại được nhưng chưa xuống dòng được.
Please hep me! Thanks so much.

Thật ra hàm của bạn cũng đã xuống dòng rồi, nhưng lý do là trong ô của bạn đã định dạng không cho xuống dòng nên nó mới vậy, để khắc khục chọn ô B1 nhấn Ctrl+1, chọn thẻ Alignment đánh dấu vào mục Wrap text, OK và xem kết quả.