Excel'deki isimlerden baş harfleri nasıl çıkarılır?
Müşteri kayıtlarını işlerken veya adres mektup birleştirme yaparken, belirli bir addan baş harfleri almak sizin için yararlı olabilir, örneğin, HG for Hal Greer. Bu yüzden burada, baş harfleri Excel'deki ad listesinden hızlı bir şekilde çıkarmanız için bazı hileler sunacağım.
Excel'deki formülle baş harfleri çıkarın
Baş harfleri ayıklamak Excel'de Tanımlı İşlev'i kullanır
Excel'deki formülle baş harfleri çıkarın
İlk yöntem, Microsoft Excel'deki 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 =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 listenizin ilk hücresidir), Keşfet düğmesini, ardından aralığı doldurmak için doldurma tutamacını sürükleyin. Şimdi her ismin baş harflerinin isim listesinden çıkarıldığını görüyorsunuz.
Baş harfleri ayıklamak Excel'de Tanımlı İşlev'i kullanır
Formülün yanı sıra, Microsoft Excel'de belirtilen adların baş harflerini kolayca çıkarmak için Tanımlı Fonksiyonu kullanabilirsiniz.
1. Seçmek istediğiniz sütunun bir hücresini seçin ve Alt + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Açılan pencerede, Ekle > modül, ardından aşağıdaki VBA kodunu modüle yapıştırın.
VBA: İsimlerden baş harfleri çıkarın
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)Tuşuna basın ve ardından tuşuna basın. Keşfet düğmesini tıklayın ve istediğiniz aralığı doldurmak için doldurma tutamacını sürükleyin. Bundan sonra, her ismin baş harflerinin çıkarıldığını görebilirsiniz.
Bahşiş: Ayırıcıları değiştirebilirsiniz "." Yukarıdaki VBA'da ihtiyaç duyduğunuz şekilde baş harfleri.
İlgili Makaleler:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!