Loncat ke daftar isi utama

Bagaimana cara menambahkan string teks ke beberapa sel di Excel?

Jika kita perlu menambahkan beberapa teks atau string teks tertentu dalam beberapa sel, itu akan sulit dan memakan waktu dengan menyalin teks ini dan menempelkannya ke setiap sel satu per satu. Metode berikut dapat membantu kami menambahkan teks tertentu dalam banyak sel dengan mudah dan cepat.

panah gelembung kanan biru Tambahkan teks tertentu ke beberapa sel di Excel dengan VBA

Menggunakan VBA dapat memudahkan pekerjaan kita dan menambahkan teks tertentu di banyak sel tanpa menyalin dan menempel.

Langkah 1: Pilih sel di mana Anda akan menambahkan teks tertentu.

Langkah 2: Tahan ALT + F11 kunci, dan itu membuka jendela Microsoft Visual Basic for Applications.

Langkah 3: Klik Menyisipkan >> Modul, dan tempelkan makro berikut di Jendela Modul.

Sub Add2Formula ()
' Tambahkan teks

Untuk Setiap c Dalam Seleksi
c. Aktifkan
ActiveCell.FormulaR1C1 = "tes -" & ActiveCell.Formula
Selanjutnya c

End Sub

Langkah 4: Tekan F5 kunci untuk menjalankan makro ini.

Note: Makro ini hanya dapat menambahkan teks - di depan setiap teks sel. Jika Anda ingin menambahkan teks atau string lain, harap ganti teks - dengan teks tertentu yang ingin Anda tambahkan.

panah gelembung kanan biru Tambahkan teks tertentu ke beberapa sel di Excel dengan Kutools for Excel

Untuk pengguna umum Microsoft Excel, kami mungkin tidak terbiasa dengan VBA. Bergantian, file Kutools untuk ExcelAlat Tambah Teks dapat membantu kita menambahkan teks atau string tertentu dalam beberapa sel dengan cepat dan mudah.

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Dapatkan Sekarang

Langkah 1: Pilih sel tempat Anda akan menambahkan teks tertentu.

Langkah 2: Klik Kutools > Alat teks > Tambahkan teks…. Lihat tangkapan layar:

Langkah 3: Di Tambahkan Teks kotak dialog, masukkan teks dan karakter tertentu di bagian Teks.

Langkah 4: periksa posisi di mana Anda akan menambahkan teks tertentu di dalam Posisi bagian. (Catatan: jika Anda ingin memasukkan teks dalam posisi tertentu, harap periksa Menentukan dan tentukan posisinya.) Lihat tangkapan layar:

Langkah 5: Klik OK or Mendaftar.

Grafik Tambahkan Teks Alat Kutools for Excel mendukung kita untuk menambahkan teks dan karakter tertentu sebelum atau sesudah teks sel asli. Terlebih lagi, kita dapat menambahkan teks tertentu di antara teks sel asli. Apa pun pengaturan yang Anda tetapkan, Anda dapat melihat pratinjau perubahan sel di bagian Pratinjau.

Artikel terkait:

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 Teratas:  12 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!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations