Loncat ke daftar isi utama

Bagaimana cara mengekstrak huruf pertama dari setiap kata dari sel?

Bayangkan Anda memiliki daftar nama negara di lembar kerja Anda dan Anda ingin mengekstrak huruf pertama dari setiap kata dalam nama tersebut. Excel tidak menyediakan fitur langsung untuk mengekstrak huruf awal setiap kata dalam sel. Namun, saya akan memperkenalkan beberapa metode praktis untuk menyelesaikan tugas ini secara efisien, menjadikan prosesnya mudah dan efektif.

Ekstrak huruf pertama setiap kata dari Sel dengan rumus

Untuk mendapatkan huruf pertama setiap kata dalam sel, rumus array berikut dapat membantu Anda.

1. Silakan salin rumus berikut ke sel kosong tempat Anda ingin mendapatkan hasilnya, lalu tekan Ctrl + Shift + Enter kunci bersama untuk mendapatkan hasil pertama.

=CONCAT(LEFT(FILTERXML("<a><b>"&SUBSTITUTE(A2," ","</b><b>")&"</b></a>","//b"),1))

2. Selanjutnya, tarik rumus ke bawah untuk mengisi sel lainnya. Tindakan ini secara otomatis akan mengekstrak huruf pertama dari setiap kata di setiap sel sekaligus. Lihat tangkapan layar:

Penjelasan dari rumus ini:
  • PENGGANTI(A2," "," "):Fungsi ini menggantikan setiap spasi pada teks di sel A2 dengan . Ini secara efektif memisahkan setiap kata dalam teks dengan tag XML ini. Misalnya, jika A2 berisi "Halo Dunia", bagian rumus ini akan mengubahnya menjadi "Halo Dunia".
  • " "&...&" ": Bagian ini membungkus hasil fungsi SUBSTITUTE di awal dan di akhir. Melanjutkan contoh, string sekarang menjadi Hello World , membentuk struktur XML yang valid di mana setiap kata diapit dalam tag.
  • FILTERXML(...,"//b"): FILTERXML digunakan untuk mengurai string XML yang dibuat pada langkah sebelumnya. Kueri XPath //b memilih semua elemen dalam tag, yaitu setiap kata dalam string asli. Dengan menggunakan contoh kita, FILTERXML akan mengembalikan array dengan dua elemen: "Halo" dan "Dunia".
  • KIRI(...,1): Fungsi LEFT kemudian diterapkan ke setiap elemen array yang dikembalikan oleh FILTERXML, mengekstraksi huruf pertama dari setiap kata. Dalam contoh ini, ini akan menghasilkan "H" dan "W".
  • MENGHUBUNGKAN(...): Terakhir, fungsi CONCAT menggabungkan semua elemen array menjadi satu string. Untuk contoh "Hello World" kita, ini akan menggabungkan "H" dan "W" untuk menghasilkan "HW".

Ekstrak huruf pertama setiap kata dari Sel dengan Kutools AI Aide

Ekstrak dengan cepat huruf pertama setiap kata dalam sel dengan Kutools AI Ajudan. Tidak perlu rumus yang rumit; asisten AI mengotomatiskan tugas untuk Anda, membuat pemrosesan data menjadi sederhana dan efisien. Sederhanakan alur kerja Excel Anda dan buat pekerjaan Anda lebih mudah. Mencoba Kutools AI Ajudan dan rasakan operasi Excel yang cerdas!

Note: Untuk menggunakan ini Kutools AI Ajudan of Kutools untuk Excel, Mohon unduh dan instal Kutools untuk Excel pertama.

Setelah menginstal Kutools for Excel, silakan klik Kutools AI > Ajudan AI untuk membuka Kutools AI Ajudan panel:

  1. Pilih daftar data, lalu ketik kebutuhan Anda ke dalam kotak obrolan, dan klik Kirim tombol atau tekan Enter kunci untuk mengirimkan pertanyaan;
  2. Setelah menganalisis, klik Eksekusi tombol untuk menjalankan. Kutools AI Aide akan memproses permintaan Anda menggunakan AI dan mengembalikan hasilnya langsung di Excel.

Ekstrak huruf pertama setiap kata dari Sel dengan Fungsi Buatan Pengguna

Mengekstrak huruf pertama setiap kata dari sel adalah tugas yang bisa dioptimalkan dengan menggunakan User Defined Function (UDF) di Excel. Bagian ini membahas cara membuat dan menggunakan UDF untuk melakukan tugas ini secara efisien.

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

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

Function GetFirstLetters(rng As Range) As String
'Updateby Extendoffice
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan masukkan rumus ini = GetFirstLetters (A2) ke dalam sel kosong. Lalu, seret gagang isian ke sel tempat Anda ingin menerapkan rumus ini. Dan semua huruf pertama telah diekstraksi dari rangkaian kata tersebut, lihat tangkapan layar:

Artikel terkait:

  • Ekstrak dua atau n kata pertama atau terakhir dari string teks
  • Jika Anda memiliki daftar string teks yang dipisahkan oleh spasi, dan sekarang, Anda ingin mengekstrak tiga atau n kata pertama atau terakhir dari nilai sel untuk mendapatkan hasil tangkapan layar berikut. Artikel ini, saya akan memperkenalkan beberapa rumus untuk mengekstrak dua atau n kata pertama atau terakhir dari string teks di Excel.
  • Ekstrak teks sebelum/sesudah spasi atau koma saja
  • Ketika Anda ingin mengekstrak teks sebelum atau sesudah spasi dari daftar seperti yang ditunjukkan di bawah ini, apakah Anda memiliki cara yang baik untuk menyelesaikannya? Izinkan saya memberi tahu Anda beberapa cara trik untuk mengekstrak teks sebelum atau sesudah spasi hanya di Excel.
  • Ekstrak alamat email dari string teks
  • Saat Anda mengimpor beberapa alamat email dari lembar kerja Situs web ke Excel, selalu ada teks yang tidak relevan, tetapi sekarang Anda hanya ingin mengekstrak alamat email murni dari string teks (lihat tangkapan layar berikut). Bagaimana Anda bisa dengan cepat hanya mendapatkan alamat email dari teks seluler?
  • Ekstrak string antara dua karakter berbeda
  • Jika Anda memiliki daftar string di Excel yang Anda perlukan untuk mengekstrak bagian dari string antara dua karakter dari gambar di bawah ini yang ditampilkan, bagaimana menanganinya secepat mungkin? Di sini, saya memperkenalkan beberapa metode untuk menyelesaikan pekerjaan ini.

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk

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!
Comments (18)
No ratings yet. Be the first to rate!
Sharmane
Sharmane
This comment was minimized by the moderator on the site
Hello, If the the nth Word is enclosed in a (), it is returning the ( since it comes before the First Letter.

Example:
Word Word (Word)

How to return WWW instead of WW( ?
Reply
Report
0
0
skyyang
skyyang     Sharmane
This comment was minimized by the moderator on the site
Hello, Sharmane
Maybe the following code can help you:
Function GetFirstLetters(rng As Range) As String
    Dim arr() As String
    Dim i As Long
    
    arr = VBA.Split(rng.Value, " ")
    
    For i = LBound(arr) To UBound(arr)
        If Left(arr(i), 1) <> "(" And Right(arr(i), 1) <> ")" Then
            GetFirstLetters = GetFirstLetters & Left(arr(i), 1)
        ElseIf Left(arr(i), 1) = "(" And Right(arr(i), 1) = ")" Then
            GetFirstLetters = GetFirstLetters & Mid(arr(i), 2, 1)
        End If
    Next i
End Function


Please have a try, thank you!
Reply
Report
0
0
samual
samual
This comment was minimized by the moderator on the site
Another suggestion if using Microsoft 365: =TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)) where the source string is in B9.
Wrap in UPPER function to enforce uppercase: =UPPER(TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)))
@Pradeep Gyawali -> add space: =UPPER(TEXTJOIN(" ",,LEFT(TEXTSPLIT(D9," "),1)))
Reply
0
0
SARAH
SARAH
This comment was minimized by the moderator on the site
Wondering how to add this into the existing formula I have that works to bring the value over from a cell in another sheet? I only want to bring over the first character in each cell. Here's the formula

=IF(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D))=ROW(OriginalSubmission!D4),"",INDIRECT("OriginalSubmission!D5:"&"D"&(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D)))))
Reply
0
0
skyyang
skyyang     SARAH
This comment was minimized by the moderator on the site
Hello, SARAH
Do you mean extracting each first character in cells from another worksheet? If so, you just need to copy and paste the code in this article, and then apply this formula into another sheet.
=GetFirstLetters(OriginalSubmission!D4)


Note: OriginalSubmission is the sheet name that you want to extract charatcers from.
Please try, hope it can help you!
Reply
Report
0
0
Pradeep Gyawali
Pradeep Gyawali
This comment was minimized by the moderator on the site
How to create space between the letters?

South Korea= S K
Reply
0
0
skyyang
skyyang     Pradeep Gyawali
This comment was minimized by the moderator on the site
Hi, Gyawali
If you want to add space for each character, please apply the following VBA code:
Function GetFirstLetters(Rng As Range) As String
'Updateby Extendoffice
    Dim xStr
    Dim arr
    Dim I As Long
    xStr = " "
    arr = VBA.Split(Rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1) & xStr
        Next I
    Else
        GetFirstLetters = Left(arr, 1) & xStr
    End If
End Function


After insert the code, and then apply this formula: =GetFirstLetters(A2) to get the result you need.
Please try, hope it can help you!
Reply
Report
0
0
holly
holly
This comment was minimized by the moderator on the site
Why is this giving me the first 2 letters in each word?
Reply
0
0
Griggs
Griggs
This comment was minimized by the moderator on the site
This is awesome. Such a time saver
Reply
0
0
Steven
Steven
This comment was minimized by the moderator on the site
This code is good for upto five words, where D20 is the cell with data.



=IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",
$D$20)+1)+1)+1)+1,1)),IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)),
IF(ISERR(LEFT($D$20,1)),"",LEFT($D$20,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)),LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)
+1)+1)+1,1))
Reply
0
0
Oleg
Oleg
This comment was minimized by the moderator on the site
袩芯写褋泻邪卸懈褌械 锌芯卸邪谢褍泄褋褌邪, 屑芯卸薪芯 谢懈 屑芯写懈褎懈褑懈褉芯胁邪褌褜 泻芯写 褔褌芯斜褘 蟹邪斜懈褉邪谢邪褋褜 薪械 锌械褉胁褘械 邪 袟邪谐谢邪胁薪褘械 斜褍泻胁褘?
Reply
0
0
nawal jha
nawal jha
This comment was minimized by the moderator on the site
i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
Reply
0
0
Harib Oliyil
Harib Oliyil     nawal jha
This comment was minimized by the moderator on the site
Pls save excel as Excel Macro-Enablel work book.
Reply
0
0
NoOne
NoOne
This comment was minimized by the moderator on the site
Please include this part: If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount(). https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations