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:
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:
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
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...
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!