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?

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

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:

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:

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

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:

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:

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:

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

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:

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

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.

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:

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:

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

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

İlgili makale:

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

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

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!

Devamı ... Ücretsiz indirin... Satın alma...