Excel'de isimlerden baş harfleri nasıl çıkarılır?
Müşteri kayıtlarını işlerken ya da posta birleştirme yaparken, belirtilen bir ismin baş harflerini almak oldukça faydalı olabilir; örneğin, Hal Greer için “HG”. İşte bu yüzden, Excel’de Ad Listesi’nden baş harfleri hızlıca çıkarmak için size bazı pratik püf noktaları sunuyorum.
Excel'de formülle baş harfleri çıkar
Excel'de Tanımlı İşlev kullanarak baş harfleri çıkar
Excel'de formülle baş harfleri çıkar
İlk yöntem, Microsoft Excel'de isimlerden baş harfleri almak için bir formül kullanmaktır.
Boş bir hücre seçin (örneğin C2 hücresi) ve şu formülü girin:=LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"") (A2, Ad listesi'nizin ilk hücresidir). Ardından Enter tuşuna basın ve doldurma tutamacını istenen aralığa kadar sürükleyin. Artık her ismin baş harflerinin Ad listesi’nden çıkarıldığını göreceksiniz!
Excel'de Tanımlı İşlev kullanarak baş harfleri çıkar
Microsoft Excel'de belirtilen isimlerin baş harflerini kolayca almak için hem formül hem de Tanımlı İşlev kullanabilirsiniz.
1. Baş harfleri çıkaracağınız sütunun bir hücresini seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Açılan pencerede Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu modüle yapıştırın.
VBA: İsimlerden baş harfleri çıkar
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function3. Kodu kaydedin ve bu pencereyi kapatın. Boş bir hücre seçip şu formülü yazın: =FirstCharacters(A2), ardından Enter tuşuna basın ve doldurma tutamacını istediğiniz aralığa kadar sürükleyin. Bundan sonra her ismin baş harflerinin çıkarıldığını göreceksiniz.
İpucu: Yukarıdaki VBA kodunda baş harfler arasındaki ayırıcıyı, ihtiyacınıza göre "." karakterinden başka bir şeyle değiştirebilirsiniz.
İlgili Makaleler:
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