Ứng dụng VBA để gộp ô mà không mất dữ liệu trong excel

Trong quá trình xử lý dữ liệu, thường phải thực hiện nhiều thao tác khác nhau để đạt được mục đích của mình, gộp ô cũng là một trong những điều cần thiết có thể được sử dụng nhiều. Bài viết dưới đây sẽ chỉ cho mọi người thấy một trong những ứng dụng của VBA trong vấn đề gộp ô trong excel.

Dưới đây là chi tiết cách thực hiện

Có một bảng dữ liệu như sau:

Yêu cầu: Gộp ô cột " Tính cách" của cùng một đối tượng vào với nhau.

Nếu Excel của bạn chưa Add in Developer thì bạn vào File/Options/Customize the Ribbon.

Ở bên Main Tabs tích vào Developer rồi ấn OK

Bước 1: Nhấn tổ hợp phím Alt + F8, màn hình hiện ra, ta đặt tên cho macro tùy ý, sau đó nhấn Create

Bước 2: Sau khi Create sẽ hiện ra một màn hình như sau: Thêm đoạn code vào

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

Bước 4: Trở về màn hình excel nhấn tổ hợp phím ALT + F8 và nhấn OK

Sẽ hiện ra một hộp thoại, nhấn OK

Sau khi thực hiện lần lượt các ô ta được kết quả như sau:

Để làm tự động, ta tạo nút bấm để thực hiện gộp ô đơn giản hơn, vào Insert chọn một biểu tượng bất kỳ và đặt tên

chuột phải vào ô và chọn Assign Macro,....

chuột phải vào ô và chọn Assign Macro,....

Chọn Gopo rồi nhấn OK,  từ đó ta có nút gộp ô mới.

Trên đây là phần hướng dẫn của mình trong việc thực hiện gộp ô mà không mất dữ liệu. Mọi người thử ứng dụng và thực hành nhé.