Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memasukkan / menambah ruang selepas setiap aksara x dalam sel?

Sekiranya anda mempunyai beberapa rentetan teks dalam senarai lembaran kerja, kini, anda ingin memasukkan ruang selepas setiap 3 atau x aksara dalam sel seperti tangkapan skrin berikut. Bagaimana anda boleh menyelesaikan masalah ini di Excel dengan cepat dan mudah?

doc menambah ruang selepas x aksara 1

Masukkan / Tambah ruang selepas setiap aksara x dalam sel dengan kod VBA

Masukkan / Tambah ruang selepas setiap aksara x dalam sel dengan Kutools untuk Excel


anak panah gelembung kanan biru Masukkan / Tambah ruang selepas setiap aksara x dalam sel dengan kod VBA

Memohon kod VBA berikut, anda boleh dengan cepat memasukkan ruang selepas setiap n aksara untuk berbilang sel sekaligus, sila lakukan seperti berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Kemudian klik Memasukkan > Modul, dan tampal kod berikut dalam Modul tingkap.

Kod VBA: Masukkan ruang selepas setiap aksara x:

Sub addspace()
'updateby Extendoffice 20151207
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan dalam kotak prompt, sila pilih sel yang anda mahu masukkan ruang ke, lihat tangkapan skrin:

doc menambah ruang selepas x aksara 2

4. Kemudian klik OK butang, dan ruang telah dimasukkan ke dalam kandungan sel selepas setiap empat aksara, lihat tangkapan skrin:

doc menambah ruang selepas x aksara 3  2 doc menambah ruang selepas x aksara 4

Nota: Dalam kod di atas, anda boleh menukar nombor tersebut 4 ke nombor lain untuk memasukkan ruang selepas. Dan juga anda boleh mengubah ruang pemisah ke pembatas lain dalam peraturan ini xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) daripada kod di atas.


anak panah gelembung kanan biru Masukkan / Tambah ruang selepas setiap aksara x dalam sel dengan Kutools untuk Excel

Kutools untuk Excel'S Tambah Teks ciri juga dapat membantu anda menyelesaikan masalah ini dengan cepat dan mudah.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti berikut :( Muat turun Percuma Kutools untuk Excel Sekarang! )

1. Pilih rentetan teks yang anda mahu masukkan ruang.

2. Kemudian klik Kutools > teks > Tambah Teks, lihat tangkapan skrin:

doc menambah ruang selepas x aksara 5

3. Di dalam Tambah Teks kotak dialog, tekan bar ruang sekali ke dalam teks kotak, dan pilih Tentukan pilihan di bawah Kedudukan, kemudian taipkan kedudukan yang anda mahu masukkan ruang, lihat tangkapan skrin:

doc menambah ruang selepas x aksara 6

4. Kemudian klik Ok or Memohon butang, anda akan mendapat hasil bahawa ruang telah dimasukkan selepas setiap empat aksara yang anda perlukan.

Tips: Bilangan jawatan dalam Menentukan kotak teks hendaklah dipisahkan dengan tanda koma.

Muat turun Percuma Kutools untuk Excel Sekarang!


Artikel berkaitan:

Bagaimana untuk menambah / memasukkan aksara tertentu setiap aksara x ke dalam sel?


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.