Loncat ke daftar isi utama

Bagaimana cara memasukkan teks yang sama di setiap baris lainnya di Excel?

Pada artikel ini, kami akan menunjukkan cara memasukkan teks yang sama di setiap baris lainnya di Excel. Silakan telusuri untuk lebih jelasnya.

Masukkan teks yang sama di setiap baris dengan kode VBA
Masukkan teks yang sama di setiap baris lainnya dengan Kutools for Excel


Masukkan teks yang sama di setiap baris dengan kode VBA

Misalkan Anda ingin memasukkan teks "Nama", "Data" dan "Skor" ke setiap baris dalam kisaran tertentu seperti gambar di bawah ini. Silakan coba kode VBA berikut.

1. Di lembar kerja, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul. Lihat tangkapan layar:

3. Salin dan tempel kode VBA di bawah ini ke editor Kode.

Kode VBA: masukkan teks yang sama di setiap baris di Excel

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

Catatan: Pada kode diatas:

1. Data Anda harus dimulai dari baris pertama di lembar kerja.
2. Silakan ubah teks "Nama", "Data" dan "Skor" ke teks yang Anda butuhkan.
3. Huruf A dan C menunjukkan kisaran sel di mana Anda ingin menyisipkan teks tertentu.
4. tekan F5 kunci untuk menjalankan kode. Dan Anda dapat melihat teks yang ditentukan ditambahkan di setiap baris di lembar kerja Anda.

Masukkan teks yang sama di setiap baris lainnya dengan Kutools for Excel

Dengan kode di atas, Anda tinggal memasukkan teks di setiap satu baris. Bagaimana kalau menyisipkan teks di setiap baris n di Excel? Di bagian ini, kami akan menunjukkan kepada Anda Sisipkan baris Judul kegunaan Kutools untuk Excel. Dengan utilitas ini, memasukkan teks di setiap baris n tidak akan menjadi masalah lagi.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. klik Kutools > Menyisipkan > Sisipkan Baris Judul untuk mengaktifkan utilitas ini.

2. Dalam Sisipkan Baris Judul kotak dialog, Anda perlu:

1). Pilih rentang teks yang ingin Anda sisipkan ke setiap baris n di Rentang judul kotak;
2). Pilih rentang yang Anda perlukan untuk memasukkan teks ke dalam Sisipkan rentang kotak;
3). Tentukan nomor baris interval di Baris interval kotak. Jika Anda ingin memasukkan teks di setiap baris, masukkan 1 di kotak, dan untuk setiap n baris, masukkan n di kotak;
4). Klik OK .

Sekarang teks yang ditentukan disisipkan di setiap baris n dalam rentang yang dipilih.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
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