Ana içeriğe atla

Excel'de eksik sıralı sayılar için sayılar veya satırlar nasıl eklenir?

Bir çalışma sayfasında sıralı sayıların bir listesine sahip olduğunuzu varsayarsak, ancak dizide bazı eksik sayılar vardır ve şimdi dizinin tamamlandığından emin olmak için eksik sayıları veya boş satırları eklemeniz gerekir (aşağıdaki ekran görüntüleri olarak gösterilir). Bu sorunu Excel'de nasıl hızlı bir şekilde çözebilirsiniz?

doc-insert-eksik-sayı1 -2 doc-insert-eksik-sayı2

Yinelenenleri Sırala ve Kaldır özelliğiyle sıra için eksik numaraları ekleyin

VBA kodu ile dizi için eksik numaraları ekleyin

VBA kodu ile eksik sıra için boş satırlar ekleyin

Kutools for Excel ile dizi için eksik sayıları veya boş satırları ekleyin

ok mavi sağ balon Yinelenenleri Sırala ve Kaldır özelliğiyle sıra için eksik numaraları ekleyin

Belki eksik numaraları tek tek bulabilir ve sonra ekleyebilirsiniz, ancak yüzlerce ardışık sayı varsa, eksik olanların yerini belirlemeniz zordur. Excel'de, bu görevle başa çıkmak için Yinelemeleri Sırala ve Kaldır özelliğini kullanabilirim.

1. Sıra listesinin sonunu takiben, 2005023001 ile 2005023011 arasında başka bir sıra numarası girin. Ekran görüntüsüne bakın:

doc-insert-eksik-sayı3

2. Ardından iki sıra numarasının aralığını seçin ve Veri > A'dan Z'ye sırala, ekran görüntüsüne bakın:

doc-insert-eksik-sayı4

3. Ve seçilen veriler aşağıdaki ekran görüntüsü olarak sıralanmıştır:

doc-insert-eksik-sayı5

4. Ardından kopyaları tıklayarak kaldırmanız gerekir. Veri > Yinelemeleri Kaldırve dışarı çıkmış Yinelemeleri Kaldır iletişim kutusunda Sütun kopyaları kaldırmak istediğiniz adı, ekran görüntülerine bakın:

doc-insert-eksik-sayı6 -2 doc-insert-eksik-sayı7

5. Sonra tıklayın OK, içindeki kopyalar Sütun A silindi ve sıra listesindeki eksik numaralar eklendi, ekran görüntüsüne bakın:

doc-insert-eksik-sayı8

ok mavi sağ balon VBA kodu ile dizi için eksik numaraları ekleyin

Yukarıdaki yöntemlerle çok fazla adım olduğunu düşünüyorsanız, burada ayrıca VBA kodu da bu sorunu çözmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül pencere.

VBA: dizi için eksik sayıları girin

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve bir istem kutusu açılır, lütfen eksik numaraları eklemek istediğiniz veri aralığını seçin (başlık aralığını seçmeyin), ekran görüntüsüne bakın:

doc-insert-eksik-sayı9

4. Ve sonra tıklayın OKeksik numaralar sıra listesine eklenmiştir. Ekran görüntülerine bakın:

doc-insert-eksik-sayı1 -2 doc-insert-eksik-sayı2

ok mavi sağ balon VBA kodu ile eksik sıra için boş satırlar ekleyin

Bazen eksik numaraların yerini bulmanız ve veriler arasına boş satırlar eklemeniz gerekir, böylece bilgileri istediğiniz gibi girebilirsiniz. Elbette, aşağıdaki VBA kodu da bu sorunu çözmenize yardımcı olabilir.

1. basılı tutun ALT + F11 anahtarlar ve bir Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül pencere.

VBA: eksik sıra için boş satırlar ekleyin

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve bir istem kutusu görüntülenecek ve ardından eksik sıra için boş satırlar eklemek istediğiniz veri aralığını seçin (başlık aralığını seçmeyin), ekran görüntüsüne bakın:

doc-insert-eksik-sayı9

4. Ve sonra tıklayın OKeksik sıra listesi için boş satırlar eklendi. Ekran görüntülerine bakın:

doc-insert-eksik-sayı1 -2 doc-insert-eksik-sayı10

ok mavi sağ balon Kutools for Excel ile dizi için eksik sayıları veya boş satırları ekleyin

Burada, kolay ve kullanışlı bir araç sunacağım. Kutools for Excel, Onun ile Eksik Sıra Numarasını Bul özelliği, eksik sıra numarasını veya boş satırları mevcut veri dizisi arasına hızlı bir şekilde ekleyebilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. 
İndir'e git
30 gün Ücretsiz DenemeSatın alma
PayPal / Ticaretim

Yüklediyseniz Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. Eksik sayıları eklemek istediğiniz veri sırasını seçin.

2. tıklayın Kutools > Ekle > Eksik Sıra Numarasını Bul, ekran görüntüsüne bakın:

3. In Eksik Sıra Numarasını Bul iletişim kutusu, işaretleyin Eksik sıra numarasını eklemek eksik numaraları eklemek için veya IEksik sıra numaralarıyla karşılaşıldığında boş satırlar ekleme ihtiyaç duyduğunuz kadar boş satır eklemek için. Ekran görüntüsüne bakın:

doc-insert-eksik-sayı10

4. Ve sonra tıklayın OK düğmesi ve eksik sıra numaraları veya boş satırlar verilere eklenmişse, ekran görüntülerine bakın:

doc-insert-eksik-sayı10 2 doc-insert-eksik-sayı10 2 doc-insert-eksik-sayı10

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!

ok mavi sağ balon  Demo: Kutools for Excel ile dizi için eksik sayıları veya boş satırları ekleyin

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

İlgili makale:

Excel'de eksik sayı dizisi nasıl belirlenir?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (12)
No ratings yet. Be the first to rate!
melanie.m
melanie.m
This comment was minimized by the moderator on the site
I have used the code for "VBA: insert blank rows for missing sequence" as listed above and works great - but i need it to insert rows across the all columns it only adds rows to the first 2 columns of my selection - not my entire table.
Reply
Report
0
0
skyyang
skyyang     melanie.m
This comment was minimized by the moderator on the site
Hello, Melanie,

To solve your problem, maybe the following code can help you: (Note: A indicates the column contains the missing sequence, please change it to your need.)
Sub InsertBlankRowsForMissingSequence()
    Dim i As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If IsNumeric(Cells(i, "A").Value) And IsNumeric(Cells(i - 1, "A").Value) And Cells(i, "A").Value <> "" And Cells(i - 1, "A").Value <> "" Then
            If Cells(i, "A").Value - Cells(i - 1, "A").Value > 1 Then
                Debug.Print Cells(i, "A").Value - Cells(i - 1, "A").Value - 1
                Rows(i).Resize(Cells(i, "A").Value - Cells(i - 1, "A").Value - 1).Insert
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Please have a try, hope it can help you!
Reply
Report
0
0
Manouk
Manouk
This comment was minimized by the moderator on the site
I am trying to use the VBA for sequential numbers. I have several columns next to the numbers of which numbers too. I.e.
1. HL Meter 34
2. HL Watermeter 40
4. HL CO2meter 24

When I use the code it works for the first 3 columns but it gets mixed up if I include the 4th column since it includes numbers too.
How can I change the code to make sure the numbers in column 4 stay the same?
Reply
0
0
Rob
Rob
This comment was minimized by the moderator on the site
Thank you amazing
Reply
0
0
Gavin Cooke
Gavin Cooke
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
I want to use "Inserting missing sequence Number" feature but it's not supporting for digits more than 12 ? there are many sets in which I want to insert the sequence between (it's a alpha-numeric digit) can you help
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
Hi, I want to use "Inserting Missing Sequence Number", but it's not supporting if the no. of digits are more than 12 can you help ?
Reply
0
0
Shahab
Shahab
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
Francois
Francois
This comment was minimized by the moderator on the site
Thank you very much. How do i change the script if the increments is only 0.02 and not 1 This is for the script InsertNullBetween()
Reply
0
0
jonny
jonny
This comment was minimized by the moderator on the site
this worked and was very easy to complete the task. Thank you.
Reply
0
0
Denis
Denis
This comment was minimized by the moderator on the site
Thanks ! Great script ! How i can modify this script if i say we need to process not only ID column + NAME column, but ID column + NAME column + NEW column ? How i can add new columns in this script?
Reply
0
0
Amir
Amir     Denis
This comment was minimized by the moderator on the site
The following is the modified macro to include an added column - Another important point is that when prompted to select the range, you should only select the first column - these took me a few hours! hope to save others' time

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")
Dim dic2 As Variant
Set dic2 = 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 3)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
dic2(Rng.Value) = Rng.Offset(0, 2).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)
outArr(i + 1, 3) = dic2(i + num1)
Else
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations