Làm cách nào để chèn số hoặc hàng cho các số tuần tự bị thiếu trong Excel?

Giả sử bạn có một danh sách các số liên tiếp trong một trang tính, nhưng có một số số bị thiếu giữa các dãy và bây giờ bạn cần phải chèn các số còn thiếu hoặc các hàng trống để đảm bảo dãy được hoàn chỉnh (được hiển thị như ảnh chụp màn hình sau). Làm thế nào bạn có thể nhanh chóng giải quyết vấn đề này trong Excel?

Chèn các số còn thiếu cho chuỗi với tính năng Sắp xếp và Xóa các Từ trùng lặp Chèn các số còn thiếu cho chuỗi bằng mã VBA Chèn các hàng trống cho trình tự bị thiếu với mã VBA Chèn số bị thiếu hoặc hàng trống cho chuỗi với Kutools cho Excel

Chèn các số còn thiếu cho chuỗi với tính năng Sắp xếp và Xóa các Từ trùng lặp

Có thể bạn có thể tìm từng số còn thiếu rồi chèn chúng vào, nhưng bạn sẽ khó xác định được vị trí của những số còn thiếu nếu có hàng trăm số liên tiếp. Trong Excel, tôi có thể sử dụng tính năng Sắp xếp và Loại bỏ Bản sao để giải quyết công việc này.

1. Sau khi kết thúc danh sách chuỗi, hãy điền vào một số thứ tự khác từ 2005023001 đến 2005023011. Xem ảnh chụp màn hình:

2. Sau đó, chọn phạm vi của hai số thứ tự và nhấp vào Ngày > Sắp xếp A đến Z, xem ảnh chụp màn hình:

3. Và dữ liệu đã chọn đã được sắp xếp như ảnh chụp màn hình sau:

4. Sau đó, bạn cần loại bỏ các bản sao bằng cách nhấp vào Ngày > Loại bỏ các bản saovà trong cửa sổ bật ra Loại bỏ các bản sao hộp thoại, kiểm tra Cột tên mà bạn muốn xóa trùng lặp, hãy xem ảnh chụp màn hình:

5. Sau đó nhấn vào OK, các bản sao trong Cột A đã bị xóa và các số bị thiếu trong danh sách trình tự đã được chèn vào, xem ảnh chụp màn hình:

Chèn các số còn thiếu cho chuỗi bằng mã VBA

Nếu bạn cảm thấy có quá nhiều bước với các phương pháp trên, thì đây cũng có mã VBA có thể giúp bạn giải quyết vấn đề này. Vui lòng làm như sau:

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 mã sau vào Mô-đun cửa sổ.

VBA: chèn các số còn thiếu cho chuỗi

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    outArr(i + 1, 1) = i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Sau đó nhấn F5 để chạy mã này và hộp nhắc sẽ bật ra, vui lòng chọn phạm vi dữ liệu mà bạn muốn chèn các số còn thiếu (không chọn phạm vi tiêu đề), xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK, các số còn thiếu đã được chèn vào danh sách trình tự. Xem ảnh chụp màn hình:

Chèn các hàng trống cho trình tự bị thiếu với mã VBA

Đôi khi, bạn chỉ cần xác định vị trí của các số bị thiếu và chèn các hàng trống vào giữa dữ liệu để có thể nhập thông tin khi cần. Tất nhiên, mã VBA sau đây cũng có thể giúp bạn giải quyết vấn đề này.

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

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

VBA: chèn các hàng trống cho trình tự bị thiếu

Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    If dic.Exists(i + num1) Then
        outArr(i + 1, 1) = i + num1
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 1) = ""
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ hiển thị, sau đó chọn phạm vi dữ liệu mà bạn muốn chèn các hàng trống cho chuỗi bị thiếu (không chọn phạm vi tiêu đề), xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK, các hàng trống đã được chèn cho danh sách trình tự bị thiếu. Xem ảnh chụp màn hình:

Chèn số bị thiếu hoặc hàng trống cho chuỗi với Kutools cho Excel

Ở đây, tôi sẽ giới thiệu một công cụ dễ dàng và tiện dụng- Kutools cho Excel, Với khả Tìm số thứ tự bị thiếu tính năng, bạn có thể nhanh chóng chèn số thứ tự bị thiếu hoặc các hàng trống vào giữa chuỗi dữ liệu hiện có.

Nếu bạn đã cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Chọn chuỗi dữ liệu mà bạn muốn chèn các số còn thiếu.

2. Nhấp chuột Kutools > Chèn > Tìm số thứ tự bị thiếu, xem ảnh chụp màn hình:

3. Trong Tìm số thứ tự bị thiếu hộp thoại, kiểm tra Chèn số thứ tự bị thiếu để chèn các số còn thiếu hoặc tôichèn các hàng trống khi gặp các số thứ tự bị thiếu để chèn các hàng trống khi bạn cần. Xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK và các số thứ tự bị thiếu hoặc hàng trống đã được chèn vào dữ liệu, hãy xem ảnh chụp màn hình:

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

  Demo: Chèn số bị thiếu hoặc hàng trống cho chuỗi với Kutools cho Excel

Bài viết liên quan:

Làm thế nào để xác định dãy số bị thiếu trong Excel?

---

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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
• Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
• Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
• Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
• Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
• Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
• Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào... 

---

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!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...