Excel'de her diğer satıra aynı metni nasıl eklenir?

Bu makalede, Excel'de her diğer satıra aynı metni nasıl ekleyeceğinizi göstereceğiz. Daha fazla ayrıntı için okumaya devam edin.

VBA kodu ile her bir satıra aynı metni ekleme
Kutools for Excel ile her diğer satıra aynı metni ekleme

VBA kodu ile her bir satıra aynı metni ekleme

Belirli bir aralık içinde her diğer satıra “Ad”, “Veri” ve “Puan” metnini eklemek istediğinizi varsayalım, aşağıdaki ekran görüntüsünde gösterildiği gibi. Lütfen aşağıdaki VBA kodunu deneyin.

1. Çalışma sayfasında, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Ekle > Modül'e tıklayın. Ekran görüntüsüne bakın:

3. Aşağıdaki VBA kodunu Kod düzenleyicisine kopyalayıp yapıştırın.

VBA kodu: Excel'de her bir satıra aynı metni ekleme

Sub inserttexteveryonerow()
	Dim Last As Integer
	Dim emptyRow As Integer
	Last = Range("A" & Rows.Count).End(xlUp).Row
	For emptyRow = Last To 2 Step - 1
		If Not Cells(emptyRow, 1).Value = "" Then
			Rows(emptyRow).Resize(1).Insert
			Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
		End If
	Next emptyRow
End Sub

Notlar: Yukarıdaki kodda:

Kutools for Excel ile her diğer satıra aynı metni ekleme

Yukarıdaki kodla sadece her bir satıra metin ekleyebilirsiniz. Peki ya Excel'de her n satıra metin eklemek istersek? Bu bölümde, Kutools for Excel'in Başlık Satırları Ekle özelliğini göstereceğiz. Bu araçla, her n satıra metin eklemek kolaylaşır.

1. Kutools > Ekle > Başlık Satırları Ekle'ye tıklayarak bu aracı etkinleştirin.

2. Başlık Satırları Ekle iletişim kutusunda şunları yapmanız gerekir:

Şimdi, belirtilen metin seçilen aralıktaki her n satıra eklenmiştir.