Trong hướng dẫn này, chúng ta sẽ xem xét các cách khác nhau mà bạn có thể hợp nhất các ô bằng VBA.
Hợp nhất các ô bằng VBA
Bạn có thể hợp nhất các ô trong VBA bằng phương pháp Range.Merge. Đoạn mã sau sẽ hợp nhất các ô A1: C1:
12345 | Sub MergingCells ()Phạm vi ("A1: C1"). Hợp nhấtKết thúc Sub |
Kết quả là:
Hủy hợp nhất các ô bằng VBA
Bạn có thể hủy hợp nhất một dải ô đã hợp nhất bằng phương pháp Range.UnMerge. Giả sử bạn đã hợp nhất dải ô A1: D1. Bạn có thể sử dụng một trong các tham chiếu ô trong phạm vi để hủy hợp nhất các ô. Đoạn mã sau cho bạn biết cách hủy hợp nhất các ô A1: D1, trong trường hợp này chúng tôi đang sử dụng ô B1:
12345 | Sub UnmergeCells ()Phạm vi ("B1"). UnMergeKết thúc Sub |
Thêm Ví dụ về Hợp nhất
Hợp nhất các hàng bằng VBA
Bạn có thể hợp nhất các hàng bằng VBA bằng cách chỉ định số hàng mà bạn muốn hợp nhất. Chúng tôi có văn bản trong ô A1 được hiển thị bên dưới:
Đoạn mã sau sẽ hợp nhất các hàng 1-4:
12345 | Sub MergeRows ()Phạm vi ("1: 4"). Hợp nhấtKết thúc Sub |
Kết quả là:
Hợp nhất các cột bằng VBA
Bạn có thể hợp nhất các cột bằng VBA và các chữ cái của cột. Đoạn mã sau sẽ hợp nhất các cột A: C.
12345 | Sub MergeColumns ()Phạm vi ("A: C"). Hợp nhấtKết thúc Sub |
Kết quả là:
Hợp nhất và Nội dung ô giữa theo chiều ngang
Bạn có thể hợp nhất và căn giữa nội dung ô theo chiều ngang trên một phạm vi ô. Bạn phải hợp nhất các ô quan tâm và cũng đặt thuộc tính căn chỉnh theo chiều ngang của đối tượng phạm vi ở giữa. Chúng tôi có văn bản trong ô A1 như hình dưới đây:
Đoạn mã sau sẽ hợp nhất phạm vi ô A1: D1 và căn giữa nội dung của ô A1 theo chiều ngang trên phạm vi ô này:
123456 | Sub MergeandCenterContentsHoriz Theo chiều ngang ()Phạm vi ("A1: D1"). Hợp nhấtPhạm vi ("A1: D1"). HorizontalAlignment = xlCenterKết thúc Sub |
Kết quả là:
Hợp nhất và giữa nội dung ô theo chiều dọc
Bạn có thể hợp nhất và căn giữa nội dung ô theo chiều dọc trên một phạm vi ô. Bạn phải hợp nhất các ô quan tâm và cũng đặt thuộc tính căn chỉnh dọc của đối tượng phạm vi thành trung tâm. Chúng tôi có văn bản trong ô A1 như hình dưới đây:
Đoạn mã sau sẽ hợp nhất phạm vi ô A1: A4 và căn giữa nội dung của ô A1 theo chiều dọc trên phạm vi ô này:
123456 | Sub MergeandCenterContentsVerently ()Phạm vi ("A1: A4"). Hợp nhấtPhạm vi ("A1: D1"). VerticalAlignment = xlCenterKết thúc Sub |
Kết quả là:
Hợp nhất các ô trên một phạm vi ô
Bạn có thể hợp nhất các ô trong một phạm vi ô. Bạn phải đặt tham số Across tùy chọn của phương thức Merge thành True. Chúng tôi có văn bản trong ô A1 như hình dưới đây:
Đoạn mã sau sẽ hợp nhất dải ô A1: D1:
12345 | Sub MergeCellsAcross ()Range ("A1: D1"). Merge Across: = TrueKết thúc Sub |
Kết quả là: