1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın 2.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu boş betiğe yapıştırın 2:

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
Kopyala

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

1. Boşluk eklemek istediğiniz hücreleri seçin, Kutools > Metin > Metin Ekle'ye tıklayın 2.
2. Metin Ekle penceresinde, Metin kutusuna bir boşluk karakteri girin, Gelişmiş seçeneğini işaretleyin ve Büyük harflerden önce seçeneğini açılır listeden seçin 2.
3. Tamam veya Uygula'ya tıklayın, şimdi her büyük harften önce bir boşluk eklenecektir 2.