Excel'de eksik sıralı numaralar için nasıl numara veya satır eklenir?

Diyelim ki çalışma sayfasında sıralı numaralardan oluşan bir listeniz var, ancak bu sıralamada bazı numaralar eksik ve şimdi sıralamanın tamamlanmasını sağlamak için eksik numaraları veya boş satırları eklemeniz gerekiyor (aşağıdaki ekran görüntülerinde gösterildiği gibi). Bu sorunu Excel'de hızlıca nasıl çözebilirsiniz?

Sıralama ve Yinelenenleri Kaldır özelliği ile eksik numaraları ekleme Kutools for Excel ile eksik numaraları veya boş satırları ekleme VBA kodu ile eksik numaraları ekleme VBA kodu ile eksik sıralama için boş satırlar ekleme

Sıralama ve Yinelenenleri Kaldır özelliği ile eksik numaraları ekleme

Belki eksik numaraları tek tek bulabilir ve sonra ekleyebilirsiniz, ancak yüzlerce sıralı numara varsa eksik olanların yerini belirlemek sizin için zor olacaktır. Excel'de bu görevle başa çıkmak için Sıralama ve Yinelenenleri Kaldır özelliğini kullanabilirim.

1. Sıralı listenin sonuna, 2005023001'den 2005023011'e kadar başka bir dizi numara doldurun. Ekran görüntüsüne bakın:

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

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

4. Ardından yinelenenleri kaldırmak için Veri > Yinelenenleri Kaldır'a tıklayın ve açılan Yinelenenleri Kaldır iletişim kutusunda, yinelenenleri kaldırmak istediğiniz Sütun adını işaretleyin, ekran görüntülerine bakın:

5. Ardından Tamam'a tıklayın, Sütun A'daki yinelenenler silinmiş olacak ve sıralı listedeki eksik numaralar eklenecektir, ekran görüntüsüne bakın:

Kutools for Excel ile eksik numaraları veya boş satırları ekleme

Burada size kolay ve kullanışlı bir araç olan Kutools for Excel'i tanıtacağım. Eksik Sıra Numarasını Bul özelliğiyle, mevcut veri sırası arasına eksik sıra numarasını veya boş satırları hızlıca ekleyebilirsiniz.

Kutools for Excel'i yüklediyseniz, lütfen şu adımları izleyin:

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

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

3. Eksik Sıra Numarasını Bul iletişim kutusunda, eksik numaraları eklemek için Eksik sıra numarası ekle seçeneğini işaretleyin veya eksik sıra numaraları olduğunda boş satırlar eklemek için Boş satırlar ekle seçeneğini işaretleyin. Ekran görüntüsüne bakın:

4. Ve ardından Tamam düğmesine tıklayın ve eksik sıra numaraları veya boş satırlar veri arasına eklenecektir, ekran görüntülerine bakın:

Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!

VBA kodu ile eksik numaraları ekleme

Yukarıdaki yöntemlerde çok fazla adım olduğunu düşünüyorsanız, burada aynı zamanda bu sorunu çözmek için VBA kodu da bulunmaktadır. Lütfen şu adımları izleyin:

1. ALT + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module penceresine yapıştırın.

VBA: sıraya eksik numaraları ekleme

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu açılacak, 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 ardından Tamam'a tıklayın, eksik numaralar sıralı listeye eklenecektir. Ekran görüntülerine bakın:

VBA kodu ile eksik sıralama için boş satırlar ekleme

Bazen sadece eksik numaraların yerini belirlemek ve veriler arasında boş satırlar eklemek istersiniz, böylece ihtiyacınız olan bilgileri girebilirsiniz. Elbette, aşağıdaki VBA kodu da bu sorunu çözmenize yardımcı olabilir.

1. ALT + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.

VBA: eksik sıralama için boş satırlar ekleme

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu görüntülenecek, ardından eksik sıralama 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 ardından Tamam'a tıklayın, eksik sıra listesi için boş satırlar eklenecektir. Ekran görüntülerine bakın:

İlgili makale:

Excel'de eksik numara sıralaması nasıl belirlenir?