Note: The other languages of the website are Google-translated. Back to English

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?

doc-insert-thiếu-number1 -2 doc-insert-thiếu-number2

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


mũi tên màu xanh bong bóng bên phải 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:

doc-insert-thiếu-number3

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:

doc-insert-thiếu-number4

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

doc-insert-thiếu-number5

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:

doc-insert-thiếu-number6 -2 doc-insert-thiếu-number7

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:

doc-insert-thiếu-number8


mũi tên màu xanh bong bóng bên phải 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:

doc-insert-thiếu-number9

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:

doc-insert-thiếu-number1 -2 doc-insert-thiếu-number2

mũi tên màu xanh bong bóng bên phải 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:

doc-insert-thiếu-number9

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:

doc-insert-thiếu-number1 -2 doc-insert-thiếu-number10

mũi tên màu xanh bong bóng bên phải 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ó.

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

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:

doc-insert-thiếu-number10

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:

doc-insert-thiếu-number10 2 doc-insert-thiếu-number10 2 doc-insert-thiếu-number10

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


mũi tên màu xanh bong bóng bên phải  Demo: Chèn số bị thiếu hoặc hàng trống cho chuỗi 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:

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.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (10)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thanks ! Kịch bản tuyệt vời! Làm cách nào để tôi có thể sửa đổi tập lệnh này nếu tôi nói rằng chúng tôi cần xử lý không chỉ cột ID + cột TÊN, mà cả cột ID + cột TÊN + cột MỚI? Làm cách nào tôi có thể thêm các cột mới trong tập lệnh này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sau đây là macro được sửa đổi để bao gồm một cột được thêm vào - Một điểm quan trọng khác là khi được nhắc chọn phạm vi, bạn chỉ nên chọn cột đầu tiên - những điều này khiến tôi mất vài giờ! hy vọng tiết kiệm thời gian của người khác

Sub InsertValueBetween ()
'Cập nhật bởi Extendoffice
Dim WorkRng As Range
Dim Rng Như Phạm vi
Dim outArr dưới dạng biến thể
Dim dic Là biến thể
Đặt dic = CreateObject ("Scripting.Dictionary")
Dim dic2 dưới dạng biến thể
Đặt dic2 = CreateObject ("Scripting.Dictionary")

'On Error Tiếp tục Tiếp theo
xTitleId = "KutoolsforExcel"
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox ("Phạm vi", xTitleId, WorkRng.Address, Loại: = 8)
num1 = WorkRng.Range ("A1"). Giá trị
num2 = WorkRng.Range ("A" & WorkRng.Rows.Count) .Value
khoảng = num2 - num1
ReDim outArr (1 Đến khoảng + 1, 1 đến 3)
Đối với mỗi Rng trong công việc
dic (Rng.Value) = Rng.Offset (0, 1) .Value
dic2 (Rng.Value) = Rng.Offset (0, 2) .Value
Sau
Đối với i = 0 Đến khoảng thời gian
outArr (i + 1, 1) = i + num1
If dic.Exists (i + num1) Sau đó
outArr (i + 1, 2) = dic (i + num1)
outArr (i + 1, 3) = dic2 (i + num1)
Khác
outArr (i + 1, 2) = ""
outArr (i + 1, 3) = ""

Cuối Nếu
Sau
Với WorkRng.Range ("A1"). Thay đổi kích thước (UBound (outArr, 1), UBound (outArr, 2))
.Value = outArr
.Lựa chọn
Kết thúc với
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
điều này đã hiệu quả và rất dễ dàng để hoàn thành nhiệm vụ. Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều. Làm cách nào để thay đổi tập lệnh nếu số gia chỉ là 0.02 chứ không phải 1 Đây là dành cho tập lệnh InsertNullBetween ()
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều gì sẽ xảy ra nếu tôi muốn chọn 6 cột và sau đó kiểm tra cột đầu tiên cho ngày tháng và nếu ngày tháng bị thiếu, hãy thêm một hàng (ô trống) cho tất cả 1 cột
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi muốn sử dụng "Chèn số thứ tự bị thiếu", nhưng nó không hỗ trợ nếu không. trong số các chữ số là nhiều hơn 12 bạn có thể giúp đỡ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn sử dụng tính năng "Chèn số thứ tự bị thiếu" nhưng tính năng này không hỗ trợ cho các chữ số lớn hơn 12? có nhiều bộ mà tôi muốn chèn chuỗi vào giữa (đó là một chữ số và chữ số) bạn có thể giúp
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều gì sẽ xảy ra nếu tôi muốn chọn 6 cột và sau đó kiểm tra cột đầu tiên cho ngày tháng và nếu ngày tháng bị thiếu, hãy thêm một hàng (ô trống) cho tất cả 1 cột
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn tuyệt vời
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng sử dụng VBA cho các số tuần tự. Tôi có một số cột bên cạnh những con số của những con số đó. I E
1. Đồng hồ HL 34
2. Đồng hồ đo nước HL 40
4. Máy đo CO2 HL 24

Khi tôi sử dụng mã, nó hoạt động cho 3 cột đầu tiên nhưng nó sẽ bị trộn lẫn nếu tôi bao gồm cột thứ 4 vì nó cũng bao gồm cả số.
Làm cách nào để thay đổi mã để đảm bảo các số trong cột 4 được giữ nguyên?
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL