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

Bagaimana cara mengekstrak kata pertama / terakhir / n dari string teks di Excel?

Pernahkah Anda menderita masalah yang mengharuskan Anda mengekstrak kata tertentu dari string teks di lembar kerja? Misalnya, Anda memiliki rangkaian string teks berikut yang diperlukan untuk mendapatkan kata pertama / terakhir atau n dari mereka, di sini saya dapat berbicara tentang beberapa cara efektif bagi Anda untuk menyelesaikannya.


Ekstrak kata pertama atau nama belakang dari string teks dengan Rumus

Jika Anda perlu mengekstrak kata pertama dari daftar string teks, rumus berikut dapat membantu Anda.

Untuk mengekstrak kata pertama, masukkan rumus di bawah ini ke dalam sel kosong, lalu seret pegangan IsiOtomatis sel ini ke kisaran yang Anda butuhkan.

= IF (ISERR (FIND ("", A2)), "", LEFT (A2, FIND ("", A2) -1))

Untuk mengekstrak kata terakhir dari setiap sel, harap terapkan rumus ini:

= IF (ISERR (FIND ("", A2)), "", RIGHT (A2, LEN (A2) -FIND ("*", SUBSTITUTE (A2, "", "*", LEN (A2) -LEN ( SUBSTITUTE (A2, "", ""))))))

Dan sekarang Anda akan melihat kata pertama atau kata terakhir diekstrak dari setiap sel.

Catatan: Dalam rumus di atas, A2 menunjukkan sel tempat Anda akan mengekstrak kata pertama atau terakhir.

Sulit menghafal rumus rumit yang panjang? Alat luar biasa membantu Anda mengekstrak Kata ke-whanya dengan beberapa klik!

Rumus panjang di atas hanya dapat mengekstrak kata pertama dan terakhir, tetapi tidak akan berguna untuk mengekstrak kata ke n yang ditentukan, mengatakan kata kedua, kata keenam, dll. Bahkan Anda dapat mengetahui rumus untuk menyelesaikan masalah, rumus tersebut harus terlalu rumit untuk dihafal dan diterapkan. Di sini, fitur Ekstrak kata ke dalam sel dari Kutools for Excel direkomendasikan, dan ini akan membantu Anda mengekstrak kata ke-n semudah mungkin! Uji Coba Gratis Fitur Lengkap

-hari!

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

Ekstrak kata ke-n dari string teks dengan User Defined Function

Jika Anda ingin mengekstrak kata kedua, ketiga atau ke-n dari string teks, Anda dapat membuat fungsi yang ditentukan pengguna untuk menanganinya.

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

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

Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. Kemudian simpan kodenya, pada contoh ini saya akan mendapatkan kata ketiga dari string tersebut, jadi ketikkan rumus ini = kata kunci (A2,3) ke dalam sel B2 kosong, lalu seret gagang IsiOtomatis sel ini ke kisaran yang Anda butuhkan. Lihat tangkapan layar:

Catatan: Dalam rumus di atas, A2 adalah sel tempat Anda ingin mengekstrak kata, nomor 3 menunjukkan kata ketiga dalam string yang akan Anda ekstrak, dan Anda dapat mengubahnya sesuai kebutuhan.


Ekstrak setiap kata dari string teks dan daftarkan secara horizontal atau vertikal

Metode ini akan memperkenalkan Kutools for Excel's Pisahkan Sel utilitas untuk mengekstrak setiap kata dari sel string teks, lalu daftar kata yang diekstrak secara horizontal atau vertikal berdasarkan kebutuhan Anda.

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 sel string teks yang akan Anda ekstrak kata-katanya, dan klik Kutools > Gabungkan & Pisahkan > Pisahkan Sel.

2. Dalam kotak dialog Pisahkan Sel pembuka, tentukan tipe pemisahan di Tipe bagian, periksa Space pilihan dalam Tentukan pemisah bagian, dan klik Ok tombol. Lihat tangkapan layar:

3. Sekarang tentukan rentang tujuan yang akan Anda gunakan untuk mengeluarkan kata-kata yang diekstrak, dan klik OK tombol

Jika Anda memeriksa Pisahkan ke Kolom pada dialog Split Cells di atas, setiap kata diekstrak dari setiap string teks dan terdaftar secara vertikal.

Jika Anda memeriksa Pisahkan ke Baris pada dialog Split Cells di atas, setiap kata diekstrak dari setiap string teks dan terdaftar secara horizontal.


Ekstrak kata ke-n dari string teks di Excel dengan alat yang luar biasa

Jika Anda telah menginstal Kutools for Excel, Anda dapat menggunakan Pembantu Formula> Ekstrak kata ke dalam fitur sel untuk dengan cepat mengekstrak kata ke-n dari sel yang ditentukan dengan mudah.

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 sel tempat Anda akan meletakkan kata yang diekstrak, dan klik Kutools > Pembantu Formula > Pembantu Formula untuk mengaktifkan fitur ini.

2. Dalam dialog Pembantu Rumus, lakukan hal berikut:
(1) Pilih Teks dari Jenis formula daftar drop-down;
(2) Klik untuk menyorot Ekstrak kata ke-n dalam sel dalam Pilih rumus kotak daftar;
(3) Dalam Sel kotak, tentukan sel yang akan Anda ekstrak kata;
(4) Di Nth kotak, tentukan nomornya.

3. klik Ok tombol. Jika perlu, seret Tuas IsiOtomatis sel formula dan salin rumus ke sel lain.


Demo: ekstrak setiap kata dari string teks dan daftarkan secara horizontal atau vertikal


Kutools untuk Excel mencakup lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

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 (38)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Kode vba itu luar biasa, terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Fungsi yang ditentukan pengguna ini luar biasa! Terima kasih banyak untuk berbagi.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Bekerja dengan baik! :-)
Komentar ini diminimalkan oleh moderator di situs
Ini SUPER membantu, saya bertanya-tanya apakah ada yang tahu yang dapat diunduh, atau daftar salinan dan tempel dari fungsi buatan tangan yang bermanfaat seperti "FindWord" yang dapat saya gunakan.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya hanya ingin tahu apa lagi yang bisa saya masukkan ke dalam rumus Visual Basic yang dapat mengekstrak dan koma atau tanda hubung segera setelah data .. misalnya Fortin-
Komentar ini diminimalkan oleh moderator di situs
Hai, Ini luar biasa. Ini bekerja sangat baik dan mengurangi ketegangan kami menghemat banyak waktu dalam operasi ini. Terima kasih kepada semua yang mengerjakan ini dan berbagi ...
Komentar ini diminimalkan oleh moderator di situs
Bagus. Ini bekerja dengan sangat baik
Komentar ini diminimalkan oleh moderator di situs
Hai, Ini benar-benar menghemat banyak waktu. Terima kasih telah berbagi Dapatkah seseorang juga menyarankan bagaimana kita dapat mengekstrak kata-kata dengan vba secara terbalik, misalnya kata terakhir adalah 1, yang kedua dari kanan ke kiri adalah 2 dan seterusnya. Ini akan sangat dihargai.
Komentar ini diminimalkan oleh moderator di situs
Ini tidak berfungsi dengan baik pada string sumber yang terdiri dari non-kata (seperti nama vendor diikuti dengan nomor bagian)
Komentar ini diminimalkan oleh moderator di situs
bagaimana kita bisa mengubah font untuk kata ke-n dalam sel
Komentar ini diminimalkan oleh moderator di situs
Sangat dihargai. Itu sangat membantu saya.
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih atas potongan kode Anda. Itu menginspirasi saya untuk sedikit berkembang. Dengan baris berikutnya, Anda dapat memilih: kata terakhir (0), satu tetapi terakhir (-1), kedua hingga terakhir (-2) dll. Terlepas dari jumlah kata. Function FindWord(Source As String, Position As Integer) 'Update 20150504 Dim arr() As String arr = VBA.Split(Source, " ") xCount = UBound(arr) Pilih Case Position Case -xCount To 0 FindWord = arr(xCount + Posisi) Kasus 1 Ke (xCount + 1) FindWord = arr(Posisi - 1) Kasus Lain FindWord = "" End Select End Function
Komentar ini diminimalkan oleh moderator di situs
Hai, hanya tambahan kode kemarin. Ini menambahkan baris tambahan untuk menyesuaikan spasi yang berlebihan dalam string sumber: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") salam, Allart
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, Alan, ini luar biasa, terima kasih! :)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!
Komentar ini diminimalkan oleh moderator di situs
Hai.. Terima kasih atas kode Anda, saya memiliki kalimat daftar, dan salah satunya hanya 1 kata, dan kode Anda tidak berfungsi jika hanya memiliki 1 kata..
Komentar ini diminimalkan oleh moderator di situs
Saya tidak bisa mendapatkan kode untuk kata pertama yang berfungsi jika beberapa daftar saya hanya memiliki satu kata di dalam sel. misal kata pertama ---> detik pertama ---> [null] kata terakhir ---> terakhir
Komentar ini diminimalkan oleh moderator di situs
Coba ini (lihat balasan saya di atas): Function FindWord(Source As String, Position As Integer) ' mendapat 1st, 2nd, last(0), second to last(-2) dll, kata dari string ' Update 20150505 Dim arr( ) As String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Pilih Posisi Kasus Case -xCount Ke 0 FindWord = arr(Position + xCount) Case 1 Ke xCount + 1 FindWord = arr (Posisi - 1) Kasus Lain FindWord = "" Pilih Akhir
Komentar ini diminimalkan oleh moderator di situs
Hi Geeks, saya memiliki sel seperti ini: 1 ABCD; 2 DEDF; 1 TANGGAL#3d; 4 FDWDS; 1 ED Dan saya ingin mengekstrak karakter setelah 1. Jadi diinginkan untuk mendapatkan hasil seperti di bawah ini: ABCD;DED#3d;ED
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki 64bit Excel 2013 dan saya kehilangan addin Morefunc. Berdasarkan kode di atas, saya telah membuat pengganti untuk fungsi WMID Morefunc ini. Saya akan berterima kasih jika ada orang yang lebih ahli dari saya yang bisa merapikannya. Fungsi WMid1(Sumber Sebagai String, Posisi Opsional Sebagai Integer, WordCount Opsional Sebagai Integer, Pemisah Opsional Sebagai String) Dim arr() Sebagai String Dim xCount As Integer Dim wCount As Integer Dim wPertama Sebagai Integer Dim wTerakhir Sebagai Integer Jika Posisi = 0 Kemudian Posisi = 1 Jika WordCount = 0 Kemudian WordCount = 1 Jika Separator = "" Then Separator = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 If Position < 1 Kemudian wFirst = Application. Max(xCount + Position - WordCount + 1, 0) wLast = xCount + Position Else wFirst = Position - 1 wLast = Application.Min(xCount - 1, Position + WordCount - 2) End If If xCount < 2 Atau Abs(Position) > xCount Kemudian WMid1 = "" Else WMid1 = arr(wFirst) For wCount = wFirst + 1 To wLast WMid1 = WMid1 & Separator & arr(wCount) Next End If WMid1 = Trim(WMid1) End Function
Belum ada komentar yang diposting di sini
Muat Lebih
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