Ghép nội dung ở nhiều ô lại thành một ô

Tính năng Merge Cells trong Excel chỉ dùng cho nội dung góc trên cùng bên trái của dãy ô lựa chọn , như hình dưới . Tuy nhiên với kết quả như vậy không làm hài lòng cho nhiều người .   Để ghép thực sự tất cả nội dung các ô lựa chọn vào thành một ô , bạn cần phải dùng Macro bên dưới Sub JoinAndMerge() Dim outputText As String delim = \" \" On Error Resume Next For Each cell In Selection outputText = outputText & cell.Value & delim Next cell With Selection .Clear .Cells(1).Value = outputText .Merge .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = True End With End Sub Khi chạy Macro này bạn sẽ được như hình bên dưới