Excel'de ad ve soyad arasına nasıl boşluk eklenir?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, aralarına boşluk eklenmesi gereken bir ad listesi var. Bunu hızlıca nasıl çözebilirsiniz?

Tanımlı Fonksiyon ile ad ve soyad arasına boşluk ekleyin

Kutools for Excel ile ad ve soyad arasına boşluk ekleyin

Tanımlı Fonksiyon ile ad ve soyad arasına boşluk ekleyin

Ad ve soyad arasına boşluk eklemek için, Excel'de yalnızca Defined Function kullanarak bu işlemi çözebilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu boş betiğe yapıştırın.

Kod: İsimler arasına boşluk ekle

Function AddSpaces(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddSpaces = xOut
End Function

3. Kodu kaydedin ve kapatın Uygulamalar penceresini kapatın, boş bir hücre seçin ve bu formülü girin =AddSpaces(A1)ardından, bu formülü uygulamak istediğiniz hücrelerin üzerine otomatik doldurma tutamacını sürükleyin.

Kutools for Excel ile ad ve soyad arasına boşluk ekleyin

Tanımlı Fonksiyon kullanmaya aşina değilseniz, Kutools for Excel’in Metin Ekle aracını kullanarak ad ve soyad arasına hızlıca boşluk ekleyebilirsiniz.

1. Boşluk eklemek istediğiniz hücreleri seçin, tıklayın Kutools > Metin > Metin Ekle. Ekran görüntüsüne bakın:

2. Metin Ekle penceresinde, bir boşluk karakterini Metin kutusuna girin, Gelişmiş seçeneğini işaretleyin ve Büyük harflerden önce seçeneğini açılır listeden seçin. Ekran görüntüsüne bakın:

3. Tıklayın Tamam veya Uygula, şimdi her büyük harften önce bir boşluk eklendi. Ekran görüntüsüne bakın:

İpucu: Eğer baştaki boşluğu kaldırmak isterseniz, Kutools for Excel’in Boşlukları Kaldır aracını kullanabilirsiniz; bu araç, ihtiyacınıza göre baştaki boşlukları, sondaki boşlukları, fazladan boşlukları veya tüm boşlukları kaldırmanıza yardımcı olur.

Demo: Kutools for Excel ile İsimler Arasına Boşluk Ekleme