Bỏ qua nội dung chính

Làm cách nào để hủy hợp nhất các ô và điền các giá trị trùng lặp trong Excel?

Nếu bạn có một trang tính chứa nhiều ô đã hợp nhất và bây giờ bạn cần hủy hợp nhất chúng và tự động điền các giá trị ban đầu từ các ô đã hợp nhất như ảnh chụp màn hình sau được hiển thị. Làm thế nào bạn có thể nhanh chóng giải quyết nhiệm vụ này?

Hủy hợp nhất các ô và lấp đầy dữ liệu trùng lặp bằng lệnh Đi tới Đặc biệt

Hủy hợp nhất các ô và điền dữ liệu trùng lặp bằng mã VBA

Hủy hợp nhất các ô và lấp đầy dữ liệu trùng lặp bằng một cú nhấp chuột


mũi tên màu xanh bong bóng bên phải Hủy hợp nhất các ô và lấp đầy dữ liệu trùng lặp bằng lệnh Đi tới Đặc biệt

Với Đi đặc biệt , bạn có thể hủy hợp nhất các ô và điền vào các giá trị. Nhưng phương pháp này hơi rắc rối, vui lòng làm theo các bước sau:

1. Chọn các cột đã hợp nhất các ô.

2. Nhấp chuột Trang Chủ > Hợp nhất & Trung tâm > Hủy hợp nhất các ô. Xem ảnh chụp màn hình:

3. Và các ô được hợp nhất đã không được hợp nhất và chỉ ô đầu tiên sẽ được lấp đầy bằng các giá trị ban đầu. Và sau đó chọn lại phạm vi.

4. Sau đó nhấn vào Trang Chủ > Tìm & Chọn > Đi đặc biệt. Trong Đi đặc biệt hộp thoại, chọn Chữ trống Lựa chọn. Xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK, tất cả các ô trống trong phạm vi đã được chọn. Sau đó nhập = và báo chí Up phím mũi tên trên bàn phím. Xem ảnh chụp màn hình:

6. Sau đó nhấn Ctrl + Enter , tất cả các ô trống đã được lấp đầy bằng dữ liệu đã hợp nhất ban đầu. Xem ảnh chụp màn hình:


mũi tên màu xanh bong bóng bên phải Hủy hợp nhất các ô và điền dữ liệu trùng lặp bằng mã VBA

Với mã VBA sau, bạn có thể nhanh chóng hủy hợp nhất các ô và điền vào các giá trị.

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Mô-đuncửa sổ.

Sub UnMergeSameCell () 'Upadateby Extendoffice
Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = Sai đối với mỗi Rng trong WorkRng Nếu Rng.MergeCells Thì Với Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. Sau đó nhấn F5 để chạy mã này, một hộp thoại được hiển thị để chọn một dải ô để làm việc, xem ảnh chụp màn hình:

4. Nhấp chuột OK, sau đó các ô được hợp nhất đã được hủy hợp nhất và tự động điền vào các giá trị được hợp nhất ban đầu.


mũi tên màu xanh bong bóng bên phải Hủy hợp nhất các ô và lấp đầy dữ liệu trùng lặp bằng một cú nhấp chuột

Với Hủy hợp nhất ô tiện ích của Kutools cho Excel, bạn có thể hủy hợp nhất các ô và điền dữ liệu trùng lặp với một cú nhấp chuột, phương pháp này rất đơn giản và tiện dụng.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày

Sau khi cài đặt Kutools cho Excel, bạn có thể làm như sau:

1. Chọn các cột bạn muốn hủy hợp nhất và điền vào dữ liệu.

2. Nhấp chuột Kutools > Hợp nhất & Tách > Hủy hợp nhất các ô & điền giá trị, xem ảnh chụp màn hình:

3. Và các ô được hợp nhất đã được hủy hợp nhất và được lấp đầy bằng các giá trị trùng lặp cùng một lúc. Xem ảnh chụp màn hình:


mũi tên màu xanh bong bóng bên phải Hủy hợp nhất các ô và lấp đầy dữ liệu trùng lặp với Kutools cho Excel

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

Bài viết liên quan:

Hợp nhất các hàng liền kề với cùng một dữ liệu trong Excel

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (49)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, It really made life easier
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations