Metin dizelerinden büyük harfleri veya büyük harfle başlayan kelimeleri nasıl çıkarabilirsiniz?
Metin dizelerinden oluşan bir listeniz varsa ve hücrelerdeki sadece tamamı büyük harflerden oluşan metinleri veya büyük harfle başlayan kelimeleri ayıklamak istiyorsanız, bunu Excel’de nasıl yaparsınız?
Kullanıcı Tanımlı İşlev ile metin dizelerinden büyük harfleri çıkarın
Kullanıcı Tanımlı İşlev ile metin dizelerinden büyük harfle başlayan kelimeleri çıkarın
Kullanıcı Tanımlı İşlev ile metin dizelerinden büyük harfleri çıkarın
Aşağıdaki VBA kodu, hücrelerdeki metinden yalnızca büyük harfleri çıkarmanıza yardımcı olur. Lütfen aşağıdaki adımları uygulayın:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Metin dizelerinden yalnızca büyük harfleri çıkarın:
Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
Application.Volatile
Dim xRegEx As Object
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
xRegEx.Pattern = "[^A-Z]"
xRegEx.Global = True
ExtractCap = xRegEx.Replace(Txt, "")
Set xRegEx = Nothing
End Function
3. Ardından kodu kaydedin ve bu kod penceresini kapatın. Çalışma sayfasına dönün, sonucu almak istediğiniz boş bir hücreye şu formülü girin: =EXTRACTCAP(A2) ve ardından bu formülü uygulamak istediğiniz hücrelere kadar doldurma tutamacını aşağı doğru sürükleyin. Böylece tüm büyük harfler anında çıkarılacaktır. Ekran görüntüsüne bakın:
Kullanıcı Tanımlı İşlev ile metin dizelerinden büyük harfle başlayan kelimeleri çıkarın
Metin dizelerinden yalnızca büyük harfle başlayan kelimeleri ayıklamak istiyorsanız, aşağıdaki VBA kodu tam da ihtiyacınız olan çözümdür.
1.ALT + F11tuşlarına basılı tutarak Microsoft Visual Basic for Applicationspenceresini açın.
2. Ekle > Modül seçeneğine tıklayın, ardından aşağıdaki kodu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: Büyük harfle başlayan kelimeleri çıkarın:
Function StrExtract(Str As String) As 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 Then
For I = 0 To UBound(xStrList)
If xStrList(I) = StrConv(xStrList(I), vbProperCase) Then
xRet = xRet & xStrList(I) & " "
End If
Next
StrExtract = Left(xRet, Len(xRet) - 1)
End If
End Function
3. Ardından kodu kaydedip kod penceresini kapatın. Verilerinizin yanındaki boş bir hücreye şu formülü girin: =StrExtract(A2), ardından sonucu almak istediğiniz hücrelere kadar doldurma tutamacını aşağı doğru sürükleyin. Böylece büyük harfle başlayan tüm kelimeler çıkarılmış olur. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar