Bagaimana cara mengekstrak huruf kapital atau kata-kata yang diawali dengan huruf kapital dari string teks?
Jika Anda memiliki daftar string teks, sekarang, Anda ingin mengekstrak semua huruf kapital saja atau kata-kata yang dimulai dengan huruf kapital dari sel. Bagaimana Anda bisa menyelesaikannya di Excel?
Ekstrak huruf kapital dari string teks dengan User Defined Function
Ekstrak kata yang dimulai dengan huruf kapital dari string teks dengan User Defined Function
Ekstrak huruf kapital dari string teks dengan User Defined Function
Kode VBA berikut dapat membantu Anda mengekstrak hanya huruf kapital dari sel, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Ekstrak hanya huruf kapital dari string teks:
Fungsi ExtractCap (Txt Sebagai String) Sebagai String 'Updateby Extendoffice Application.Volatile Dim xRegEx Sebagai Set Objek xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Set xRegEx = Tidak Ada Fungsi Akhir
3. Kemudian simpan kode dan tutup kode ini, kembali ke lembar kerja, masukkan rumus ini: = EXTRACTCAP (A2) ke dalam sel kosong tempat Anda ingin menampilkan hasilnya, lalu seret pegangan isian ke sel yang ingin Anda terapkan rumus ini, dan semua huruf kapital telah diekstraksi sekaligus, lihat tangkapan layar:
Ekstrak kata yang dimulai dengan huruf kapital dari string teks dengan User Defined Function
Jika Anda perlu mengekstrak kata-kata yang dimulai dengan huruf kapital dari string teks, kode VBA berikut dapat membantu Anda.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, lalu salin dan tempel kode berikut di Modul Jendela.
Kode VBA: Ekstrak kata yang dimulai dengan huruf kapital:
Fungsi StrExtract (Str As String) Sebagai String 'Updateby Extendoffice Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Then Exit Function xStrList = Split (Str, "") If UBound (xStrList)> = 0 Maka For I = 0 To UBound ( xStrList) Jika xStrList (I) = StrConv (xStrList (I), vbProperCase) Kemudian xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function
3. Dan kemudian simpan kode dan tutup jendela kode, masukkan rumus ini: = StrExtract (A2) ke dalam sel kosong di samping data Anda, lalu seret pegangan isi ke sel yang Anda inginkan untuk mendapatkan hasilnya, dan semua kata yang dimulai dengan huruf kapital diekstrak, lihat tangkapan layar:
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!