Excel'de hücre değerine göre satırı nasıl otomatik ekleyebilirim?

Diyelim ki bir veri aralığınız var ve Excel'de belirli bir değerin üstüne veya altına boş satırlar otomatik olarak eklemek istiyorsunuz, örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi sıfır değerinin altına otomatik olarak satır eklemek istiyorsunuz. Excel'de bu görevi çözebilecek doğrudan bir yöntem bulunmamaktadır, ancak size Excel'deki belirli bir değere göre satırları otomatik olarak eklemek için bir Makro kodu tanıtacağım.
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:

• Excel'de boş satırlar ekleme