Làm thế nào để tự động đánh số các ô đã hợp nhất trong Excel?
Làm cách nào chúng ta có thể điền số sê-ri vào danh sách các ô hợp nhất có kích thước khác nhau trong Excel? Đầu tiên, chúng tôi nghĩ đến việc kéo nút điều khiển Tự động điền để điền vào các ô đã hợp nhất, nhưng trong trường hợp này, chúng tôi sẽ nhận được thông báo cảnh báo sau và không thể điền vào các ô đã hợp nhất.
Vì chốt điền không hỗ trợ các ô đã hợp nhất, ở đây, tôi có thể nói về một số thủ thuật khác để giải quyết vấn đề này.
Tự động đánh số / điền các ô đã hợp nhất bằng mã VBA
Tự động đánh số / điền các ô đã hợp nhất bằng mã VBA
Mã VBA sau có thể giúp bạn đánh số các ô đã hợp nhất một cách nhanh chóng. Vui lòng làm như sau:
1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Số ô đã hợp nhất tự động
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra cho phép bạn chọn các ô đã hợp nhất mà bạn muốn điền, xem ảnh chụp màn hình:
4. Sau khi chọn các ô đã hợp nhất và nhấp vào OK, bây giờ, các ô được hợp nhất đã chọn của bạn đã được lấp đầy bằng các số tuần tự, hãy xem ảnh chụp màn hình:
Các bài liên quan:
Làm cách nào để đánh số tự động hoặc đánh số lại sau khi lọc trong Excel?
Làm cách nào để nhanh chóng hợp nhất các hàng liền kề với cùng một dữ liệu trong Excel?
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?
Công cụ năng suất văn phòng tốt nhất
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...
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!