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

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

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 Ü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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (10)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler ! Harika senaryo! Sadece ID sütunu + NAME sütununu değil, ID sütunu + NAME sütunu + YENİ sütununu da işlememiz gerektiğini söylersem bu betiği nasıl değiştirebilirim? Bu komut dosyasına nasıl yeni sütunlar ekleyebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eklenmiş bir sütun eklemek için değiştirilmiş makro aşağıdadır - Bir diğer önemli nokta, aralığı seçmeniz istendiğinde yalnızca ilk sütunu seçmeniz gerektiğidir - bunlar benim birkaç saatimi aldı! başkalarının zamanını kurtarmayı umuyoruz

Alt InsertValueBetween()
'güncelleme Extendoffice
Aralık Olarak Dim WorkRng
Menzil Olarak Dim Rng
Varyant Olarak Dim outArr
Dim dic Varyant Olarak
Set dic = CreateObject("Scripting.Dictionary")
Dim dic2 Varyant Olarak
Set dic2 = CreateObject("Scripting.Dictionary")

'Hatada Devam Devam Et
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection olarak ayarlayın
WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) olarak ayarlayın
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
aralık = sayı2 - sayı1
ReDim outArr(1 ila aralık + 1, 1 ila 3)
WorkRng'deki Her Rng İçin
dic(Rng.Value) = Rng.Offset(0, 1).Değer
dic2(Rng.Value) = Rng.Offset(0, 2).Değer
Sonraki
i = 0 için aralığa
outArr(i + 1, 1) = ben + sayı1
Eğer dic.Exists(i + num1) O zaman
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
başka
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

Eğer son
Sonraki
WorkRng.Range("A1") ile.Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = çıkışArr
.Seçin
İle bitmek
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu işe yaradı ve görevi tamamlamak çok kolaydı. Teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler. Artışlar yalnızca 0.02 ise ve 1 değilse, komut dosyasını nasıl değiştiririm Bu, InsertNullBetween() komut dosyası içindir
Bu yorum sitedeki moderatör tarafından en aza indirildi
6 sütun seçmek ve ardından tarihler için 1. sütunu kontrol etmek istersem ve tarihler eksikse 6 sütunun tümü için bir satır (boş hücreler) eklersem ne olur?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, "Eksik Sıra Numarası Ekleme" özelliğini kullanmak istiyorum, ancak hayır ise desteklemiyor. basamak sayısı 12'den fazla yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Eksik sıra numarası ekleme" özelliğini kullanmak istiyorum ancak 12'den büyük rakamları desteklemiyor mu? Arasına diziyi eklemek istediğim birçok küme var (bu bir alfasayısal rakamdır) yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
6 sütun seçmek ve ardından tarihler için 1. sütunu kontrol etmek istersem ve tarihler eksikse 6 sütunun tümü için bir satır (boş hücreler) eklersem ne olur?
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkür ederim harika
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sıralı sayılar için VBA'yı kullanmaya çalışıyorum. Sayıların yanında da birkaç sütunum var. yani
1. HL Metre 34
2. HL Su Sayacı 40
4. HL CO2metre 24

Kodu kullandığımda ilk 3 sütun için çalışıyor ama 4. sütunu da dahil edersem, sayılar da içerdiğinden karışıyor.
4. sütundaki sayıların aynı kalmasını sağlamak için kodu nasıl değiştirebilirim?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır