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

Excel'deki metin dizesinden ilk / son / n. Kelime nasıl çıkarılır?

Hiç bir çalışma sayfasındaki metin dizesinden belirli bir kelimeyi çıkarmanız gerektiği problemi yaşadınız mı? Örneğin, onlardan ilk / son veya n. Kelimeyi almak için gereken aşağıdaki metin dizeleri aralığına sahipsiniz, burada çözmeniz için bazı etkili yollar hakkında konuşabilirim.


Formüller ile metin dizesinden ilk kelimeyi veya soyadı çıkarın

Bir metin dizeleri listesinden ilk kelimeyi çıkarmanız gerekirse, aşağıdaki formüller size yardımcı olabilir.

İlk kelimeyi çıkarmak için lütfen aşağıdaki formülü boş bir hücreye girin ve ardından bu hücrenin Otomatik Doldurma tutamacını istediğiniz aralığa sürükleyin.

= EĞER (ISERR (BUL ("", A2)), "", SOL (A2, BUL ("", A2) -1))

Her hücreden son kelimeyi çıkarmak için lütfen şu formülü uygulayın:

= EĞER (ISERR (BUL ("", A2)), "", SAĞ (A2, UZUNLUK (A2) -BUL ("*", YEDEK (A2, "", "*", UZUNLUK (A2) -LEN ( SUBSTITUTE (A2; "", ""))))))

Ve şimdi her hücreden ilk veya son kelimenin çıkarıldığını göreceksiniz.

Notlar: Yukarıdaki formüllerde, A2 ilk veya son kelimeyi çıkaracağınız hücreyi gösterir.

Uzun karmaşık formülleri ezberlemek zor mu? Şaşırtıcı araç, n'inci Word w'yi çıkarmanıza yardımcı olurith sadece birkaç tıklama!

Yukarıdaki uzun formüller yalnızca ilk ve son kelimeyi çıkarabilir, ancak belirtilen n'inci kelimeyi, ikinci kelimeyi, altıncı kelimeyi vb. Çıkarmak için kullanışsız olacaktır. Sorunu çözmek için formüller bulsanız bile, formüller ezberlemek ve uygulamak için çok karmaşık. Burada, Kutools for Excel'in hücredeki n'inci kelimeyi çıkar özelliği önerilir ve n'inci kelimeyi olabildiğince kolay çıkarmanıza yardımcı olur!


Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

Kullanıcı Tanımlı İşlev ile metin dizesinden n'inci kelimeyi çıkarın

Metin dizesinden ikinci, üçüncü veya herhangi bir n'inci kelimeyi çıkarmak istiyorsanız, bununla başa çıkmak için kullanıcı tanımlı bir işlev oluşturabilirsiniz.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu modül pencere.

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. Sonra kodu kaydedin, bu örnekte, dizeden üçüncü kelimeyi alacağım, bu yüzden bu formülü yazın = bulucu (A2,3) boş bir hücre B2'ye yerleştirin ve ardından bu hücrenin Otomatik Doldurma tutamacını istediğiniz aralığa sürükleyin. Ekran görüntüsüne bakın:

Not: Yukarıdaki formülde, A2 kelimeyi çıkarmak istediğiniz hücredir, sayı 3 Ayıklayacağınız dizedeki üçüncü kelimeyi gösterir ve bunları ihtiyaç duyduğunuzda değiştirebilirsiniz.


Her kelimeyi metin dizesinden çıkarın ve bunları yatay veya dikey olarak listeleyin

Bu yöntem, Kutools for Excel'in Bölünmüş hücreler metin dizesi hücrelerinden her bir kelimeyi ayıklamak için yardımcı program ve ardından ayıklanan kelimeleri ihtiyacınıza göre yatay veya dikey olarak listelemek.

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi Ücretsiz Deneme!

1. Kelimelerini çıkaracağınız metin dizesi hücrelerini seçin ve Kutools > Birleştir ve Böl > Bölünmüş hücreler.

2. Bölünmüş Hücreleri açma iletişim kutusunda, bölmedeki bölme türünü belirtin. Tip bölümüne bakın, uzay seçeneği Bir ayırıcı belirtin bölümüne tıklayın ve Ok buton. Ekran görüntüsüne bakın:

3. Şimdi, çıkarılan kelimelerin çıktısını alacağınız hedef aralığı belirtin ve OK düğmesine tıklayın

Kontrol ettiyseniz Sütunlara Böl Yukarıdaki Hücreleri Böl iletişim kutusundaki seçeneği, her kelime her metin dizesinden çıkarılır ve dikey olarak listelenir.

Kontrol ettiyseniz Satırlara Böl Yukarıdaki Hücreleri Böl iletişim kutusundaki seçeneği, her kelime her metin dizesinden çıkarılır ve yatay olarak listelenir.


Harika bir araçla n'inci kelimeyi Excel'deki metin dizesinden çıkarın

Kutools for Excel'i yüklediyseniz, Formül Yardımcısı'nı kullanabilirsiniz> n'inci kelimeyi belirtilen hücreden hızlı bir şekilde çıkarmak için hücredeki n'inci kelimeyi çıkarın.

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi Ücretsiz Deneme!

1. Ayıklanan kelimeyi koyacağınız hücreyi seçin ve tıklayın Kutools > Formül Yardımcısı > Formül Yardımcısı Bu özelliği etkinleştirmek için.

2. Formül Yardımcısı iletişim kutusunda lütfen aşağıdaki işlemleri gerçekleştirin:
(1) Seçin Metin itibaren Formül türü açılır liste;
(2) Vurgulamak için tıklayın Hücredeki n'inci kelimeyi çıkar içinde Bir formül seçin liste kutusu;
(3) Hücre kutusunda, kelimeyi çıkaracağınız hücreyi belirtin;
(4) içinde Nth kutusunda numarayı belirtin.

3. Tıkla Ok buton. Gerekirse, lütfen formül hücresinin Otomatik Doldurma Tutamacını sürükleyin ve formülü diğer hücrelere kopyalayın.


Demo: metin dizesindeki her kelimeyi çıkarın ve bunları yatay veya dikey olarak listeleyin


Kutools for Excel Excel için 300'den fazla kullanışlı araç içerir ve sınırlama olmaksızın 30 gün içinde ücretsiz olarak deneyebilirsiniz. Hemen İndirin ve Ücretsiz Deneyin!

İlgili yazılar:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (38)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu vba kodu harika, çok teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kullanıcı tanımlı işlev harika! Paylaştığın için tonla teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler! İyi çalıştı! :-)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu SÜPER yardımcı oldu, "FindWord" gibi kullanabileceğim yararlı el yapımı işlevlerin indirilebilir veya kopyalanıp yapıştırılabilir bir listesini bilen var mı diye merak ediyordum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Visual Basic formülüne, verilerden hemen sonra virgül veya kısa çizgi çekip çıkarabilecek başka ne ekleyebileceğimi merak ediyordum.. örneğin Fortin-
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu harika. Çok iyi çalıştı ve yükümüzü azalttı, bu operasyonda çok zaman kazandırdı. Emeği geçen ve paylaşan herkese teşekkürler...
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi bir. Bu çok işe yaradı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Bu gerçekten çok zaman kazandırır. Paylaşım için teşekkürler Birisi ayrıca kelimeleri vba ile tersten nasıl çıkarabileceğimizi önerebilir mi, örneğin son kelime 1, sağdan sola ikinci 2 vb. Bu çok takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, sözcüklerden oluşan bir kaynak dizesinde düzgün çalışmaz (satıcı adlarının ardından parça numaraları gibi)
Bu yorum sitedeki moderatör tarafından en aza indirildi
hücredeki n. kelimenin yazı tiplerini nasıl değiştirebiliriz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok takdir edildi. Bana çok yardımcı oldu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kod parçanız için teşekkürler. Biraz genişlemem için bana ilham verdi. Sonraki satırlarda şunları seçebilirsiniz: son kelime (0), bir ama son (-1), ikinciden sondan (-2) vb. Kelime sayısından bağımsız olarak. Fonksiyon FindWord(Source As String, Position As Integer) 'Update 20150504 Dim arr() As String arr = VBA.Split(Source, " ") xCount = UBound(arr) Select Case Position Case -xCount To 0 FindWord = arr(xCount) + Konum) Durum 1 To (xCount + 1) FindWord = arr(Konum - 1) Durum Else FindWord = "" Bitir Bitir İşlevini Seç
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, dün koda sadece bir ek. Bu, kaynak dizedeki gereksiz boşlukları ayarlamak için fazladan bir satır ekler: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") saygılarımla, Allart
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler Alan, bu harika, teşekkürler! :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çooook teşekkür ederim!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba.. Kodunuz için teşekkürler, liste cümlelerim var ve bunlardan biri sadece 1 kelime ve sadece 1 kelime varsa kodunuz çalışmaz..
Bu yorum sitedeki moderatör tarafından en aza indirildi
Listemin bazılarında hücrede yalnızca bir sözcük varsa, ilk sözcüğün kodunu alamıyorum. örneğin ilk kelime ---> ilk saniye ---> [boş] son ​​kelime ---> son
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu deneyin (yukarıdaki yanıtıma bakın): İşlev FindWord(Dize Olarak Kaynak, Tamsayı Olarak Konum) ' bir dizeden 1., 2., son (0), ikinciden sondan(-2) vb, kelime alır ' Güncelleme 20150505 Dim arr( ) As String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Case Position Select Case -xCount To 0 FindWord = arr(Position + xCount) Case 1 To xCount + 1 FindWord = arr (Konum - 1) Durum Başka FindWord = "" Son Seçim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba inekler, şöyle bir hücrem var: 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED Ve 1'den sonra karakter çıkarmak istiyorum. Sonuç olarak aşağıdaki gibi bir sonuç elde etmek istiyorum: ABCD;DED#3d;ED
Bu yorum sitedeki moderatör tarafından en aza indirildi
64bit Excel 2013'e sahibim ve Morefunc eklentisini kaçırıyorum. Yukarıdaki koda dayanarak, Morefunc'un WMID işlevi için bu değiştirmeyi buldum. Benden daha uzman biri herhangi bir toplama işlemini yapabilirse minnettar olurum. İşlev WMid1(Dize Olarak Kaynak, Tamsayı Olarak İsteğe Bağlı Konum, Tam Sayı Olarak İsteğe Bağlı Sözcük Sayısı, Dize Olarak İsteğe Bağlı Ayırıcı) Dim arr() As String Dim xCount As Tamsayı Dim wCount As Tamsayı Dim wFirst As Integer Dim wLast As Integer Eğer Konum = 0 ise Konum = 1 WordCount = 0 ise WordCount = 1 Eğer Ayırıcı = "" ise O zaman Ayırıcı = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 Eğer Konum < 1 ise wFirst = Uygulama. Max(xCount + Position - WordCount + 1, 0) wLast = xCount + Position Diğer wFirst = Position - 1 wLast = Application.Min(xCount - 1, Position + WordCount - 2) Eğer xCount < 2 Veya Mutlak(Konum) ise End > xCount Sonra WMid1 = "" Else WMid1 = arr(wFirst) wCount = wFirst + 1 için wLast WMid1 = WMid1 & Ayırıcı & arr(wCount) Sonraki Uç If WMid1 = Trim(WMid1) End Function
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır