Ana içeriğe atla

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. Ana Sayfa > 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 Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


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!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, Hassan,

This vba is amazing, whereas I need one more alternate code for insert single blank row after changes in sequencing numbers. Example:- In column having number series like 1, 2, 3, 5, 6, 9 & etc...
Need to add single blank row between 3 & 5 as well as 6 & 9.
Please can you with this.
This comment was minimized by the moderator on the site
Can the VBA method be adapted to ignore blank cells? I have a file which I need to insert rows in based on two different columns but when I run the macro on the second column I end up with three blank lines where the first macro run inserted rows.
Or can it run on two columns at the same time?
This comment was minimized by the moderator on the site
Hello,
Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
This comment was minimized by the moderator on the site
Hi, Hassan,
To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

Sub InsertRowsAtValueChange()
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
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
This comment was minimized by the moderator on the site
RE: insert blank rows when value changes with vba code
Is there a way that I can save the Range & not have to pick it every time I run it?
This comment was minimized by the moderator on the site
The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
This comment was minimized by the moderator on the site
I've been using my own solution for some time.
1. Insert a helper column into Column A
2. In A2, type "if(B2=B1,A1,A1+1)"
3. Copy that formula down to the last row
4. Copy all the populated cells in column A and Paste Special (Values) over them
5. Copy all the cells again and paste them into column A in the first unpopulated cell (e.g. if you have 104 rows of data plus a header row you would paste into cell A106)
6. Click on Data and Remove Duplicates (only on the cells you just pasted in Step 5; not on all rows)
7. Sort all of Column A
8. Delete Column A

Seems like a lot of steps but only takes a few seconds.
This comment was minimized by the moderator on the site
[quote]Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.By Hudson[/quote] Please let me know how to insert more than 1 row.
This comment was minimized by the moderator on the site
Hi there, These are almost useful! The first method doesn't work for me because when I follow the steps explicitly, the the data that I delete in the subtotal panes deletes the entire columns that I've sorted. In the second method when I get to the step where I insert sheet rows, the rows are inserted ABOVE the FALSE cells which breaks up the data, but the last selection of every group is then added to the group below. Any advice???
This comment was minimized by the moderator on the site
Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.
This comment was minimized by the moderator on the site
Where in the code would I need to modify to include more than one row, I need to add 10 after each break... Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations