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

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)

   1.

• Kutools for Excel kullanmak 1. Bunun için:
  1. Boşluk eklemek istediğiniz hücreleri seçin, Kutools > Metin > Metin Ekle seçeneğine tıklayın 1.
  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 seçin 1.
  3. Tamam veya Uygula'ya tıklayın; büyük harflerin önüne boşluk eklenecektir 1.