Excel'de isimlerden baş harfleri nasıl çıkarabilirsiniz?
Müşteri kayıtlarıyla çalışırken veya posta birleştirme yaparken, verilen bir isimden baş harfleri almak size faydalı olabilir, örneğin Hal Greer için HG. Bu nedenle, burada Excel'deki isim listesinden baş harfleri hızlıca çıkarmak için bazı ipuçları sunuyorum.
Excel'de formül kullanarak baş harfleri çıkarın
Excel'de Tanımlanmış İşlev kullanarak baş harfleri çıkarın
Excel'de formül kullanarak baş harfleri çıkarın
İlk yöntem, Microsoft Excel'de isimlerden baş harfleri çıkarmak için formül kullanmaktır.
Boş bir hücre seçin, örneğin Hücre C2, bu formülü yazın =SOL(A2)&EĞER(SAYI(MİKTAŞ(" ",A2)),ORTA(A2,MİKTAŞ(" ",A2)+1,1),"")&EĞER(SAYI(MİKTAŞ(" ",A2,MİKTAŞ(" ",A2)+1)),ORTA(A2,MİKTAŞ(" ",A2,MİKTAŞ(" ",A2)+1)+1,1),"") (A2, isim listenizin ilk hücresidir), Enter tuşuna basın, ardından doldurma tutamacını sürükleyerek aralığı doldurun. Artık her bir ismin baş harflerinin isim listesinden çıkarıldığını görüyorsunuz.
Excel'de Tanımlanmış İşlev kullanarak baş harfleri çıkarın
Formüllerin yanı sıra, baş harfleri Microsoft Excel'de belirli isimlerden kolayca çıkarmak için Tanımlanmış İşlev'i kullanabilirsiniz.
1. Seçmek istediğiniz sütunun bir hücresini seçin ve Alt + F11'e basarak Microsoft Visual Basic for Applications penceresini açın.
2. Açılan pencerede, Ekle > Modül'e tıklayın, 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 Function
3. Kodu kaydedin ve pencereyi kapatın, boş bir hücre seçin ve bu formülü yazın = FirstCharacters(A2), ardından Enter tuşuna basın ve doldurma tutamacını sürükleyerek istediğiniz aralığı doldurun. Bundan sonra, her bir ismin baş harflerinin çıkarıldığını görebilirsiniz.
İpucu: Yukarıdaki VBA'da baş harflerin ayırıcılarını "." ihtiyacınıza göre değiştirebilirsiniz.
İlgili Makaleler:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin, daha önce hiç yaşamadığınız bir verimlilik deneyimini yaşayın. Kutools for Excel, üretkenliğinizi artıracak ve zamanı kaydetmenizi sağlayacak300’den fazla gelişmiş özellik sunar. En çok ihtiyaç duyduğunuz özelliği almak için buraya tıklayın...
Office Tab, Office’e sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint’te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Aynı pencere içerisinde yeni sekmelerde birden fazla belge açın veya oluşturun, yeni pencerelerde açmak yerine.
- Verimliliğinizi %50 artırın, her gün yüzlerce fare tıklamasını sizin için azaltın!