Add-in Merge Cells không mất dữ liệu.

Mình vừa làm Add-in này dùng để Merge Cells mà không làm mất dữ liệu, dữ liệu mới sẽ là toàn bộ dữ liệu trong các Cell được Merge. Chỉ là đoạn Code đơn giản nhưng mình thấy nó có ích cho công việc của mình, xin chia sẻ với mọi người.

Chọn vùng dữ liệu cần Merge –> nhấn tổ hợp phím Ctrl Shift Z.

Sub MrgCll()
Dim Cll As Range, Temp As String
On Error Resume Next
If Selection.MergeCells = False Then
For Each Cll In Selection
If Cll <> "" Then Temp = Temp + Cll.Text + " "
Next Cll
Selection.Merge
Selection.Value = Left(Temp, Len(Temp) – 1)
Else
Selection.UnMerge
End If
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub

www.giaiphapexcel.com/diendan/threads/add-in-merge-cells-kh%C3%B4ng-m%E1%BA%A5t-d%E1%BB%AF-li%E1%BB%87u.23494/

Khóa học SprinGO phù hợp

Kỹ năng giải quyết vấn đề hiệu quả

Mô tả Nội dung Đánh giá Tài nguyên KỸ NĂNG GIẢI QUYẾT VẤN ĐỀ HIỆU QUẢHiểu đúng vấn đề là một nửa của giải...

Xem khóa học