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 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 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 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 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!

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:

Bài viết liên quan:

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