Ana içeriğe atla

Excel'deki diğer her satıra aynı metni nasıl ekleyebilirim?

Bu makalede, Excel'deki diğer her satıra aynı metni nasıl ekleyeceğinizi göstereceğiz. Lütfen daha fazla ayrıntı için göz atın.

VBA kodu ile her satıra aynı metni ekleyin
Kutools for Excel ile her satıra aynı metni ekleyin


VBA kodu ile her satıra aynı metni ekleyin

Aşağıda gösterilen ekran görüntüsü gibi belirli aralıktaki her bir satıra "Ad", "Veri" ve "Puan" metinleri eklemek istediğinizi varsayarsak. Lütfen aşağıdaki VBA kodunu deneyin.

1. Çalışma sayfasında basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulama için Microsoft Visual Basic pencere.

2. tık Ekle > modül. Ekran görüntüsüne bakın:

3. VBA kodunu kopyalayıp Kod düzenleyiciye yapıştırın.

VBA kodu: Excel'deki her satıra aynı metni ekleyin

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:

1. Verileriniz çalışma sayfasının ilk satırından başlatılmalıdır.
2. Lütfen "Ad", "Veri" ve "Puan" metinlerini ihtiyacınız olan metinlerle değiştirin.
3. A ve C harfleri, belirli metni eklemek istediğiniz hücre aralığını belirtir.
4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ayrıca, belirtilen metinlerin çalışma sayfanızdaki her satıra eklendiğini görebilirsiniz.

Kutools for Excel ile her satıra aynı metni ekleyin

Yukarıdaki kod ile her satıra metin girebilirsiniz. Excel'deki her n satıra metin eklemeye ne dersiniz? Bu bölümde size göstereceğiz Başlık satırları ekle yarar Kutools for Excel. Bu yardımcı programla, her n satıra metin eklemek artık sorun olmayacak.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. tık Kutools > Ekle > Başlık Satırları Ekle bu yardımcı programı etkinleştirmek için.

2. içinde Başlık Satırları Ekle iletişim kutusu, yapmanız gerekenler:

1). Her n satıra eklemek istediğiniz metin aralığını seçin. Başlık aralığı Kutu;
2). Metin eklemeniz gereken aralığı seçin. Aralık ekle Kutu;
3). Aralık satır numarasını belirtin. Aralıklı satırlar Kutu. Her satıra metin eklemek istiyorsanız, lütfen kutuya 1 girin ve her n satır için lütfen kutuya n girin;
4). Tıkla OK düğmesine basın.

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

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

En İyi Ofis Üretkenlik Araçları

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'den fazla 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...

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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks you so much.
This comment was minimized by the moderator on the site
Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
This comment was minimized by the moderator on the site
Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
This comment was minimized by the moderator on the site
FOLLOW MY INSTRUCTION ON GOOGLE.COM
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations