Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menyisipkan spasi sebelum huruf kapital di excel?

Misalkan Anda memiliki daftar string teks yang semua spasi di antara kata-kata tersebut terhapus secara tidak sengaja, seperti ini: SisipkanBlankRowsAntaraData, dan sekarang Anda ingin menambahkan spasi sebelum setiap huruf dengan huruf kapital untuk memisahkan kata sebagai Sisipkan Baris Kosong Di Antara Data. Bagaimana Anda bisa menambahkan spasi di depan huruf besar dengan cepat alih-alih mengetik spasi satu per satu di Excel?


Sisipkan spasi sebelum huruf kapital dengan User Defined Function

Sayangnya, tidak ada cara langsung bagi Anda untuk menambahkan spasi sebelum huruf besar di Excel, tetapi Anda dapat membuat Fungsi Buatan Pengguna untuk menyelesaikan tugas ini.

1. Aktifkan lembar kerja Anda yang berisi string teks yang ingin Anda tambahkan spasi.

2. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela modul.

Kode VBA: Sisipkan spasi sebelum huruf kapital

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan masukkan rumus ini = spasi tambahan (A1) ke dalam sel kosong selain data Anda, lihat tangkapan layar:
doc-tambahkan-spasi-sebelum-huruf besar-1

5. Dan kemudian seret gagang isian ke rentang yang Anda inginkan untuk memuat rumus ini, Anda akan mendapatkan spasi yang disisipkan sebelum setiap huruf kapital Anda.
doc-tambahkan-spasi-sebelum-huruf besar-1

Hapus spasi di depan / belakang / ekstra dengan mudah dalam sel

Kutools untuk Excel Hapus Spaces utilitas memungkinkan pengguna Excel untuk dengan mudah menghapus semua spasi utama, spasi tambahan, spasi ekstra, atau semua spasi dari sel yang dipilih dengan cepat.


iklan hapus spasi 1

Sisipkan spasi sebelum huruf kapital dengan kode VBA

Berikut adalah kode VBA lain yang dapat membantu Anda, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela modul.

Kode VBA: Sisipkan spasi sebelum huruf kapital

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk mengeksekusi kode ini, kotak prompt akan muncul untuk membiarkan Anda memilih rentang data yang ingin Anda gunakan.
doc-tambahkan-spasi-sebelum-huruf besar-1

4. Dan kemudian klik OK untuk menutup kotak prompt ini, spasi telah disisipkan sebelum huruf kapital sekaligus, lihat tangkapan layar:
doc-tambahkan-spasi-sebelum-huruf besar-1


Sisipkan spasi sebelum setiap huruf kapital dengan Kutools for Excel

Kutools untuk Excel Tambahkan Teks utilitas dapat membantu Anda melewati makro VBA dan menyisipkan spasi sebelum setiap huruf kapital dengan mudah di Excel.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30-hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. Pilih rentang di mana Anda akan menyisipkan spasi sebelum huruf kapital, dan klik Kutools > Teks > Tambahkan Teks. Lihat tangkapan layar:

2. Dalam kotak dialog Add Text pembuka, ketikkan spasi ke dalam Teks kotak, centang Hanya tambahkan ke opsi dan pilih Huruf pertama adalah huruf besar dari Hanya tambahkan ke daftar drop-down.

3. klik Ok tombol untuk menyisipkan spasi sebelum setiap huruf kapital seperti gambar layar berikut yang ditampilkan:
doc menambahkan spasi sebelum huruf besar 7

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30-hari, tidak perlu kartu kredit! Get It Now

Catatan: Metode ini juga akan menambahkan spasi di awal sel jika huruf pertama adalah kapital. Anda bisa melamar Kutools > Teks > Hapus Spaces untuk menghapus semua spasi utama dari sel yang dipilih.


Artikel terkait:


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 ...
  • Bilah Formula Super (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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (9)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
saya butuh bantuan di excel saya ingin menemukan huruf besar dalam sel. misalnya: Sagar Paul MBA 16:04 saya ingin MBA disorot
Komentar ini diminimalkan oleh moderator di situs
Saya harap Anda dapat melihatnya dan mencobanya. Sub Test() Dim Rg As Range, xCell As Range Dim i Selama Dim xChar As String Set Rg = Application.Selection Untuk Setiap xCell Dalam Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Teks Jika Asc(xChar) > 64 Dan Asc(xChar) < 91 Kemudian xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, kode Anda berfungsi dengan baik. Apakah Anda tahu cara mengadaptasi kode 20140723 untuk bekerja di banyak lembar? Saya ingin menambahkan spasi di antara huruf kapital di seluruh buku kerja. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo

Pertama, terima kasih banyak atas contoh kode Anda dan penjelasannya. Ini bekerja sangat baik untuk kasus saya.

Saya hanya punya 1 Masalah, beberapa String berisi kata-kata seperti URL, yang tidak boleh dipisahkan.
Apakah Anda melihat cara untuk kecuali misalnya "URL" dari menambahkan spasi?

Akan sangat baik jika Anda dapat membantu. Saya sudah mencoba beberapa saat, tetapi saya tidak tahu bagaimana menyelesaikannya..


salam Hormat
luca
Komentar ini diminimalkan oleh moderator di situs
Hai,
Terima kasih atas komentar dan saran Anda. Saya telah mengirimkan saran Anda ke tim proyek Kutools, saya yakin mereka akan segera memperbaikinya.
Komentar ini diminimalkan oleh moderator di situs
Menemukan solusi?
Komentar ini diminimalkan oleh moderator di situs
hai ingin bertanya apakah Anda menemukan solusi untuk kasus Anda, jika Anda menemukan solusi tolong beri saya itu
Komentar ini diminimalkan oleh moderator di situs
Fungsi ini menangani dua masalah yang tidak dicakup oleh solusi yang diberikan:
1. teks non-Inggris (dengan tanda diakritik)
2. huruf kapital berurutan yang seharusnya tidak memiliki spasi setelahnya

`Private Function AddSpaces(sText As String)As String
' Menyisipkan spasi tepat sebelum huruf kapital, kecuali jika masing-masing karakter berurutan dikapitalisasi.
' Terakhir Diperbarui: 2022-07-04
'
Redupkan sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Kiri(sTeks, 1)
Untuk i = 2 Untuk Len(sText)
sChar = Tengah(sText, i, 1)
Jika sChar = UCase(sChar) Dan Bukan bPrevWasUCase Maka
sRet = sRet & " " & sChar
bPrevWasUCase = Benar
Lain
sRet = sRet & sChar
bPrevWasUCase = Salah
End If
Selanjutnya saya

AddSpaces = sRet
Fungsi Akhir`
Komentar ini diminimalkan oleh moderator di situs
Halo teman,

Terima kasih atas bagian Anda. Saya mencoba kode VBA Anda, tetapi tidak berhasil. Kode VBA kami dapat menangani teks non-bahasa Inggris. Saya telah menguji teks Prancis dan spasi berhasil dimasukkan sebelum huruf kapital.

Hormat kami,
Mandy
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL