Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

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

doc masukkan setiap karakter x 1


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:

doc masukkan setiap karakter x 2

4. Dan klik OK, di kotak prompt berikut, masukkan nomor yang ingin Anda masukkan karakter tertentu setiap setelah, lihat tangkapan layar:

doc masukkan setiap karakter x 3

5. Lanjutkan mengklik OK, dan di kotak prompt yang diikuti, masukkan karakter tertentu yang ingin Anda tambahkan ke teks, lihat tangkapan layar:

doc masukkan setiap karakter x 4

6. Klik OK tombol, dan pilih satu sel di mana Anda ingin menampilkan hasilnya di kotak prompt, lihat tangkapan layar:

doc masukkan setiap karakter x 5

7. Terakhir, klik OK, karakter tertentu telah dimasukkan ke dalam setiap string teks setiap empat karakter, lihat tangkapan layar:

doc masukkan setiap karakter x 6


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:

doc masukkan setiap karakter x 8

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 Berlaku tombol, karakter yang ditentukan telah dimasukkan ke dalam nilai sel pada posisi tertentu.

doc masukkan setiap karakter x 9 2 doc masukkan setiap karakter x 10

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

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Super Formula Bar (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 25 days ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 1 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios