Excel'de hücre değerine göre satırı nasıl otomatik ekleyebilirim?
VBA ile hücre değerine göre satır ekleme
Kutools for Excel ile hücre değerine göre satır ekleme
VBA ile hücre değerine göre satır ekleme
Hücre değerine göre VBA çalıştırarak satır eklemek için lütfen aşağıdaki adımları izleyin:
1. Alt + F11 tuşlarına aynı anda basın ve Microsoft Visual Basic for Applications penceresi açılacaktır.
2. Ekle > Modül'e tıklayın ve ardından aşağıdaki VBA kodunu açılan Modül penceresine yapıştırın.
VBA: Hücre değerine göre alt satır ekleme.
Sub BlankLine()
'Updateby20150203
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)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Tıklayın F5 tuşuna veya Çalıştır düğmesine tıklayın, bir iletişim kutusu açılacak ve sıfır içeren sütunu seçin. Ekran görüntüsüne bakın:
4. Tıklayın Tamam. Ardından boş satırlar sıfır değerinin altına eklenecektir.
İpucu:
1. Eğer başka bir değere göre satır eklemek isterseniz, VBA'da 0'ı istediğiniz herhangi bir değerle değiştirebilirsiniz: If Rng.Value = "0" Then.
2. Eğer sıfır veya başka bir değerin üstüne satır eklemek isterseniz, aşağıdaki vba kodunu kullanabilirsiniz.
VBA: Sıfır değerinin üstüne satır ekleme:
Sub BlankLine()
'Updateby20150203
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)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Kutools for Excel ile hücre değerine göre satır ekleme
Eğer VBA ile ilgili deneyiminiz yoksa, Kutools for Excel'in Belirli Hücreleri Seçme özelliğini deneyebilir ve ardından satırları üstlerine ekleyebilirsiniz.
Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:
1. Belirli hücreleri bulmak istediğiniz listeyi seçin ve tıklayın Kutools > Seç > Belirli Hücreleri Seçin. Ekran görüntüsüne bakın:
2. Açılan diyalogda işaretleyin Tüm Satır seçeneğini işaretleyin ve ardından Eşittir seçeneğini Türünü belirtin listesinden seçin ve ardından sağdaki metin kutusuna bulmak istediğiniz değeri girin. Ekran görüntüsüne bakın:
3. Tamam'a tıklayın ve seçilen satır sayısını hatırlatan bir diyalog çıkar, onu kapatın.
4. İmleci seçili bir satıra yerleştirin ve sağ tıklayarak Ekle öğesini bağlam menüsünden seçin. Ekran görüntüsüne bakın:
Şimdi satırlar belirli bir değere göre üstlerine eklenmiştir.
Belirli Bir Hücre Değerine Göre Üstte Satır Ekle
İlgili Makaleler:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin