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

Excel'de değer değiştiğinde boş satırlar nasıl eklenir?

Bir dizi veriye sahip olduğunuzu varsayarsak ve şimdi değer değiştiğinde veriler arasına boş satırlar eklemek istiyorsunuz, böylece bir sütundaki sıralı aynı değerleri aşağıda gösterilen ekran görüntüleriyle ayırabilirsiniz. Bu yazıda, bu sorunu çözmeniz için bazı püf noktalarından bahsedeceğim.

Alt Toplam işleviyle değer değiştiğinde boş satırlar ekle

Yardımcı sütunlarla değer değiştiğinde boş satırlar ekle

VBA kodu ile değer değiştiğinde boş satırlar ekleyin

Güçlü bir özellikle değer değiştiğinde belirli sayıda boş satır ekleyin


Alt Toplam işleviyle değer değiştiğinde boş satırlar ekle

İle Ara Toplam özelliği, aşağıdaki adımlar gibi değer değiştiğinde veriler arasına boş satırlar ekleyebilirsiniz:

1. Kullanmak istediğiniz veri aralığını seçin.

2. tıklayın Veri > Ara Toplam açmak için Ara Toplam iletişim kutusunda ve Ara Toplam iletişim kutusu, lütfen aşağıdaki seçenekleri yapın:

1: Değerin ne zaman değiştiğine bağlı olarak boş satırlar eklemek istediğiniz sütun adını seçin. Her değişimde kısımda;
2: Seçmek saymak itibaren Kullanım fonksiyonu açılır liste;
3: Alt toplamı eklemek istediğiniz sütun adını kontrol edin. Ara toplam ekle liste kutusu

3. Sonra tıklayın OKara toplam satırları farklı ürünler arasına eklenmiştir ve tablonun solunda ana hat sembolleri görüntülenir, ekran görüntüsüne bakın:

4. Ve sonra sadece ara toplam satırlarını görüntülemek için anahat sembolünün üstündeki 2 rakamını tıklayın.

5. Ardından ara toplam aralığı verilerini seçin ve Alt +; sadece görünür satırları seçmek için kısayol tuşları, ekran görüntüsüne bakın:

6. Yalnızca görünen satırları seçtikten sonra Sil tuş ve tüm ara toplam satırları kaldırıldı.

7. Sonra başka bir hücreyi tıklayın ve geri dönün Veri > Çöz > Anahattı Temizle Anahatları kaldırmak için ekran görüntüsüne bakın:

8. Anahat sembolleri bir kerede silindi ve değer değiştiğinde veriler arasına boş satırların eklendiğini görebilirsiniz, ekran görüntüsüne bakın:

9. Sonunda, ihtiyaç duyduğunuzda A sütununu silebilirsiniz.


Değer hızla değiştiğinde sayfa sonu, boş satırlar, alt kenarlık veya dolgu rengi ekleyin

Eğer varsa Kutools for Excel's Farklılıkları ayırt edin özelliği sayesinde, ihtiyaç duyduğunuzda değer değiştiğinde hızla sayfa sonu, boş satırlar, alt kenarlık veya dolgu rengi ekleyebilirsiniz. Aşağıdaki demoya bakın.         Kutools for Excel'i indirmek için tıklayın!


Yardımcı sütunlarla değer değiştiğinde boş satırlar ekle

Yardımcı sütunlarla önce formül ekleyebilir ve ardından Bul ve Değiştir işlevi, sonunda, değişen değerler arasına boş satırlar ekleyin. Lütfen aşağıdaki işlemleri yapın:

1. Boş bir C3 hücresine lütfen bu formülü girin = A3 = A2ve D4 hücresine bu formülü girin = A4 = A3, ekran görüntüsüne bakın:

2. Ardından C3: D4'ü seçin ve doldurma tutamacını bu formülleri uygulamak istediğiniz aralığın üzerine sürükleyin; Gerçek or Yanlış hücrelerde ekran görüntüsüne bakın:

3. Ve sonra tuşuna basın. Ctrl + F tuşlarını açmak için Bul ve Değiştir iletişim kutusunda, açılan iletişim kutusunda şunu girin: YANLIŞ içine Ne bul altındaki metin kutusu bulmak sekmesini tıklayın ve tıklayın. Opsiyonlar Bu iletişim kutusunu genişletmek için düğmesine basın ve Değerler itibaren Arama konumu açılır liste, ekran görüntüsüne bakın:

4. Tıkla Hepsini bul düğmesine ve ardından Ctrl + A bulmanın tüm sonuçlarını seçmek için, tüm FALSE hücreleri aynı anda seçildi, ekran görüntüsüne bakın:

6. Kapat Bul ve Değiştir iletişim kutusu, sonraki adımda, tıklayarak boş satırlar ekleyebilirsiniz. Anasayfa > Ekle > Sayfa Satırları Ekleve değer A sütununa göre değiştiğinde verilere boş satırlar eklenmiştir, ekran görüntülerine bakın:

7. Son olarak, ihtiyaç duyduğunuzda yardımcı sütun C ve D'yi silebilirsiniz.


VBA kodu ile değer değiştiğinde boş satırlar ekleyin

Yukarıdaki yöntemleri kullanmaktan sıkıldıysanız, burada bir kod da değiştirilen değerler arasına aynı anda boş satırlar eklemenize yardımcı olabilir.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

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

VBA kodu: Değer değiştiğinde boş satırlar ekleyin

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve temel aldığınız değer değiştiğinde boş satırlar eklemek istediğiniz bir sütun verisini seçmenize izin veren bir istem kutusu açılır, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OKdeğer A sütununa göre değiştiğinde veriler arasına boş satırlar eklenmiştir.


Güçlü bir özellikle değer değiştiğinde belirli sayıda boş satır ekleyin

Yukarıdaki zahmetli yöntemlerle denendiyseniz burada size faydalı bir araç tanıtacağım, Kutools for Excel's Farklılıkları ayırt edin hücre değeri hızlı ve kolay bir şekilde değiştiğinde sayfa sonu, boş satırlar, alt kenarlık veya dolgu rengi eklemenize yardımcı olabilir.

İpuçları:Bunu uygulamak için Farklılıkları ayırt edin özelliği, öncelikle indirmelisiniz Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın Kutools > oluşturulan > Farklılıkları ayırt edin, ekran görüntüsüne bakın:

2. In Farklılıkları anahtar sütuna göre ayırt edin iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • Kullanmak istediğiniz veri aralığını seçin ve ardından temel alan boş satırlar eklemek istediğiniz anahtar sütununu seçin;
  • Sonra kontrol et Boş satır seçeneği Opsiyonlar bölümüne gidin ve eklemek istediğiniz boş satırların sayısını girin.

3. Sonra tıklayın Ok düğmesi ve hücre değeri değişirse verilere belirli sayıda boş satır eklenmişse, ekran görüntülerine bakın:

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!


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 (15)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
5,4,3,2 ve 1 (bir sürü) sayılarına sahip bir sütunum var ve Fives'ı diğerlerinden ayırmak istiyorum, örneğin: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 Rakamlar azalan sıradadır ve her zaman beşin altında dört vardır, bu yüzden denedim: Sub InsertRowsAtValueChange() 'Update 1 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=20140716) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 8 Adım -2 If WorkRng.Cells(i, 1). Değer = 1 Ve WorkRng.Cells(i - 5, 1).Value = 1 Sonra WorkRng.Cells(i, 4).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Ama işe yaramadı. Bana yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formül harika çalışıyor, ancak tanımadığı birkaç örnek var
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim, her yere baktım ve bu benim için çalışan tek çözümdü ve aynı zamanda düz ingilizceydi. Diğer tüm Excel öğretici web siteleri, sizin yaptığınız gibi adım adım bozmadı, çok teşekkür ederim. şerefe : )
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sorun için birden fazla çözüm tanımladığınız için çok teşekkür ederiz. Visual Basic'i kullandım ve [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] öğesini [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = ile değiştirdim xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Bu, satırlar arasında boş satırlar yerine değişen değerlere sahip çizgiler çizecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodun neresinde birden fazla satır içerecek şekilde değişiklik yapmam gerekecek, her aradan sonra 10 eklemem gerekiyor... Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese merhaba teşekkürler!! harika, siz de bana VBA'da veya Excel'de değer değiştiğinde 2 satır nasıl ekleyeceğime izin verir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Bunlar neredeyse kullanışlı! İlk yöntem benim için çalışmıyor çünkü adımları açıkça uyguladığımda, ara toplam bölmelerinde sildiğim veriler, sıraladığım tüm sütunları siliyor. İkinci yöntemde, sayfa satırları eklediğim adıma geldiğimde, satırlar, verileri bölen YANLIŞ hücrelerinin ÜZERİNE eklenir, ancak her grubun son seçimi daha sonra aşağıdaki gruba eklenir. Herhangi bir tavsiye???
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Merhaba hepinize teşekkürler!! harika, siz de bana VBA'da veya Excel'de değer değiştiğinde 2 satır nasıl ekleyeceğime izin verir misiniz?Hudson tarafından[/quote] Lütfen 1'den fazla satırı nasıl ekleyeceğimi bana bildirin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir süredir kendi çözümümü kullanıyorum.
1. Sütun A'ya bir yardımcı sütun ekleyin
2. A2'ye "if(B2=B1,A1,A1+1)" yazın
3. Bu formülü son satıra kopyalayın
4. A sütunundaki tüm doldurulmuş hücreleri kopyalayın ve üzerlerine Özel (Değerler) Yapıştırın
5. Tüm hücreleri tekrar kopyalayın ve ilk doldurulmamış hücredeki A sütununa yapıştırın (örneğin, 104 veri satırınız ve bir başlık satırınız varsa, A106 hücresine yapıştırırsınız)
6. Veri ve Kopyaları Kaldır'a tıklayın (yalnızca Adım 5'te yapıştırdığınız hücrelerde; tüm satırlarda değil)
7. Sütun A'nın tümünü sıralayın
8. Sütun A'yı Sil

Çok fazla adım gibi görünüyor, ancak yalnızca birkaç saniye sürüyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu ilk kez çalıştı ve tam olarak yapmaya çalıştığım şeyi yaptı. Çok teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
RE: vba kodu ile değer değiştiğinde boş satır ekleme
Menzil'i kaydedebilmemin ve her çalıştırdığımda onu seçmememin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
1 satır eklemem gerektiğinde çok kullanışlıdır, ancak spwcific sütununda veri her değiştiğinde 145 satır eklemem gerekirse, bunu nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Hasan,
Belirli bir sütunda değer değiştiğinde birden çok boş satır eklemek için aşağıdaki VBA kodunu uygulamanız gerekir:

Not: Aşağıdaki kodda 99 sayısını ihtiyacınıza göre değiştirmelisiniz, örneğin 145 boş satır eklediğinizde 99 sayısını 144 olarak değiştirmelisiniz. Lütfen deneyin, umarım size yardımcı olabilir!

Alt InsertRowsAtValueChange()
Menzil Olarak Dim Rng
Aralık Olarak Dim WorkRng
On Error Resume Next
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection olarak ayarlayın
WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) olarak ayarlayın
Application.ScreenUpdating = Yanlış
i için = WorkRng.Rows.Count To 2 Adım -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value O zaman
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
Eğer son
Sonraki
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok yararlı. Skyyang'ın yukarıda gösterdiği kod mükemmel çalıştı. Verilerin içinde zaten boşluk olmadığından emin olun.

VBA'yı anlamıyorum, ancak zaten boşluk olan verilerin altına daha fazla satır eklemek istiyorsanız, boşlukları yok saymanın bir yolu olması gerektiğine inanıyorum.

Boş satırları yoksaymak veya atlamak için bir satır eklenebilir mi? Bu, gerekirse bu kodu daha evrensel ve tekrarlanabilir hale getirebilir. Ayrıca buna benzer bir silme işlevi yararlı olabilir, bu nedenle geri alma gerekli değildir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA yöntemi boş hücreleri yok sayacak şekilde uyarlanabilir mi? İki farklı sütuna dayalı olarak satır eklemem gereken bir dosyam var ama ikinci sütunda makroyu çalıştırdığımda, ilk makronun eklenen satırları çalıştırdığı üç boş satırla karşılaşıyorum.
Veya aynı anda iki sütun üzerinde çalışabilir mi?
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