Excel'de eksik ardışık sayılar için nasıl sayı veya satır eklenir?
Bir çalışma sayfasında ardışık bir sayı listesiniz olduğunu varsayalım, ancak bu sırada bazı eksik sayılar var. Şimdi, bu sırayı tamamlamak için eksik sayıları veya boş satırları nasıl eklersiniz (aşağıdaki ekran görüntülerinde gösterildiği gibi)? Excel’de bu sorunu hızlıca nasıl çözebilirsiniz?
 |  |  | Sıralama ve Yinelenenleri Kaldır özelliğiyle eksik sayıları doldurun Eksik sayıları veya Boş satırlar'leri sıralama ile Kutools for Excel doldurun |
Sıralama ve Yinelenenleri Kaldır özelliğiyle eksik sayıları doldurun
Eksik sayıları tek tek bularak ekleyebilirsiniz; ancak yüzlerce ardışık sayı söz konusuysa, eksik olanların konumlarını belirlemek oldukça zorlaşabilir. Excel’de bu görevi “Sıralama ve Yinelenenleri Kaldır” özelliğiyle kolayca halledebilirsiniz.
1. Sıra listesinin sonundan itibaren 2005023001’den 2005023011’e kadar başka bir ardışık numara girin. Ekran görüntüsüne bakın:
2. Ardından iki ardışık numaranın aralığını seçin ve şuna tıklayın: Veri > Artan. Ekran görüntüsüne bakın:
3. Ve Veri Seç, aşağıdaki ekran görüntüsünde gösterildiği gibi sıralanmıştır:
4. Ardından yinelenenleri kaldırmak için şu adımları izleyin: Veri > Yinelenenleri Kaldır. 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 düğmesine tıklayın; A Sütunu'ndaki yinelenenler silinir ve sıra listesindeki eksik sayılar eklenir. Ekran görüntüsüne bakın:
Eksik sayıları veya Boş satırlar'leri Kutools for Excel ile doldurun
Size burada kolay ve kullanışlı bir araç tanıtacağım: Kutools for Excel. Eksik Diziyi Bul özelliği sayesinde, mevcut veri sırasının arasına eksik dizi numaralarını veya boş satırları hızla ekleyebilirsiniz.
Kutools for Excel'i yüklediyseniz,lütfen aşağıdaki adımları izleyin:
1. Eksik sayıları eklemek istediğiniz veri aralığını seçin.
2. Tıklayın: Kutools > Ekle > Eksik diziyi bul, ekran görüntüsüne bakın:
3. Açılan Eksik diziyi bul iletişim kutusunda, eksik sayıları eklemek için Eksik veri ekle seçeneğini işaretleyin veya eksik ardışık numaralarla karşılaşıldığında boş satırlar eklemek için İhtiyacınıza göre boş satırlar ekleyin. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; eksik ardışık numaralar veya boş satırlar veriye eklendi. Ekran görüntülerine bakın:
 | |  | |  |
Kutools for Excel'i hemen indirin ve ücretsiz deneyin!
VBA koduyla eksik sayıları doldurun
Yukarıdaki yöntemlerde çok fazla adım olduğunu düşünüyorsanız, bu sorunu çözmek için size yardımcı olabilecek bir VBA kodu da vardır. Lütfen aşağıdaki adımları izleyin:
1. ALT + F11 tuşlarına basılı tutun, böylece Microsoft Visual Basic for Applications penceresi açılır.
2. Tıklayın: Ekle > Modül, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA: sıra için eksik sayıları 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 F5 tuşuna basın; bu kod çalıştırıldığında bir uyarı kutusu açılacak. Eksik sayıları eklemek istediğiniz Veri Aralığı'nı seçin (Başlık Aralığı'nı seçmeyin). Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; eksik sayılar sıra listesine eklendi. Ekran görüntülerine bakın:
| | |
VBA koduyla eksik sıra için Boş satırlar ekleyin
Bazen yalnızca eksik sayıların yerini belirlemek ve verilerin arasına Boş satırlar eklemek istersiniz, böylece ihtiyacınıza göre bilgi girebilirsiniz. Elbette aşağıdaki VBA kodu da bu sorunun çözümüne yardımcı olabilir.
1. ALT + F11 tuşlarına basılı tutun; böylece bir Microsoft Visual Basic for Applications penceresi açılır.
2. Tıklayın:Ekle>Modül, ardından aşağıdaki kodu Modülpenceresine yapıştırın.
VBA: eksik sıra 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 F5 tuşuna basın; bu kod çalıştırıldığında bir uyarı kutusu görüntülenecek. Daha sonra eksik satırlar için boş satır eklemek istediğiniz Veri Aralığı'nı seçin ()Başlık Aralığı'nı seçmeyin). Ekran görüntüsüne göz atın:
4. Ardından, eksik sıra listesi için boş satırlar eklendiğinde Tamam düğmesine tıklayın. Ekran görüntülerine bakın:
| |  |
İlgili makale:
Excel'de eksik sayı sırası nasıl belirlenir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar