Bagaimana cara menambahkan / memasukkan karakter tertentu setiap karakter x ke dalam sel?
Misalkan, saya memiliki daftar string teks yang ingin saya sisipkan tanda hubung atau pemisah lainnya setelah setiap empat karakter ke dalam sel untuk mendapatkan hasil tangkapan layar berikut. Terlalu banyak sel yang diperlukan untuk memasukkan karakter tertentu, adakah cara cepat untuk menyisipkan tanda hubung setiap empat karakter di Excel?
Masukkan karakter tertentu setiap karakter x ke dalam sel dengan kode VBA
Masukkan karakter tertentu setiap karakter x ke dalam sel dengan Kutools for Excel
Masukkan karakter tertentu setiap karakter x ke dalam sel dengan kode VBA
Anda dapat menerapkan kode VBA berikut untuk memasukkan karakter tertentu setelah setiap empat karakter ke dalam sel, lakukan hal berikut:
1. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Masukkan karakter tertentu setiap karakter x ke dalam sel
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda untuk memilih rentang data yang ingin Anda masukkan karakter tertentu dalam string teks, lihat tangkapan layar:
4. Dan klik OK, di kotak prompt berikut, masukkan nomor yang ingin Anda masukkan karakter tertentu setiap setelah, lihat tangkapan layar:
5. Lanjutkan mengklik OK, dan di kotak prompt yang diikuti, masukkan karakter tertentu yang ingin Anda tambahkan ke teks, lihat tangkapan layar:
6. Klik OK tombol, dan pilih satu sel di mana Anda ingin menampilkan hasilnya di kotak prompt, lihat tangkapan layar:
7. Terakhir, klik OK, karakter tertentu telah dimasukkan ke dalam setiap string teks setiap empat karakter, lihat tangkapan layar:
Masukkan karakter tertentu setiap karakter x ke dalam sel dengan Kutools for Excel
Kode di atas mungkin agak sulit bagi kebanyakan pemula Excel, di sini, saya dapat memperkenalkan alat praktis - Kutools untuk Excel, Dengan yang Tambahkan Teks fitur, Anda dapat dengan cepat menambahkan teks atau karakter tertentu sebelum, sesudah, atau posisi tertentu dari nilai sel.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:
1. Pilih rentang data yang ingin Anda sisipkan karakter tertentu.
2. Lalu klik Kutools > Teks > Tambahkan Teks, lihat tangkapan layar:
3. di Tambahkan Teks kotak dialog, tentukan karakter yang ingin Anda sisipkan Teks kotak, lalu pilih Tentukan dari Posisi tersebut bagian, di kotak teks, masukkan posisi yang ingin Anda sisipkan karakter setelahnya, pada saat yang sama, Anda dapat melihat hasilnya di panel kanan, lihat tangkapan layar:
Tips: Di sini saya mengetik 4,8,12 di kotak teks Menentukan yang menunjukkan untuk memasukkan teks tertentu setelah karakter ke-4, 8 dan 12 dari string teks.
4. Kemudian klik Ok or Mendaftar tombol, karakter yang ditentukan telah dimasukkan ke dalam nilai sel pada posisi tertentu.
Klik untuk mengetahui detail lebih lanjut tentang utilitas Tambahkan Teks ini.
Unduh dan uji coba gratis Kutools untuk Excel Sekarang!
Demo: Masukkan karakter tertentu setiap karakter x ke dalam sel dengan Kutools for Excel
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!