Ne yazık ki, Excel'de büyük harflerden önce boşluk eklemenin doğrudan bir yolu yoktur, ancak bu görevi çözmek için Kullanıcı Tanımlı İşlev oluşturabilirsiniz.

1. Boşluk eklemek istediğiniz metin dizelerini içeren çalışma sayfanızı etkinleştirin.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresi.

VBA kodu: Büyük harflerden önce boşluk ekleyin

Function AddSpaces(pValue As String) As String
'Update 20140723
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

4. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve bu formülü girin = eklenti alanları (A1) verilerinizin yanı sıra boş bir hücreye koyun, ekran görüntüsüne bakın:

5. Ve sonra doldurma tutamacını bu formülü içermek istediğiniz aralığın üzerine sürükleyin, boşlukların her büyük harfinizden önce eklendiğini göreceksiniz.

Hücrelerdeki baştaki / sondaki / fazladan boşlukları kolayca kaldırın

Kutools for Excel's Alanları Kaldır yardımcı program Excel kullanıcılarının tüm önde gelen boşluğu, sondaki boşluğu, fazladan boşlukları veya seçilen hücrelerden tüm boşlukları kolayca kaldırmasını sağlar.

İşte başka bir VBA kodu size bir iyilik yapabilir, lütfen aşağıdakileri yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresi.

VBA kodu: Büyük harflerden önce boşluk ekleyin

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basarsanız, kullanmak istediğiniz bir veri aralığını seçmenize izin veren bir komut kutusu açılır.

4. Ve sonra tıklayın OK bu istem kutusunu kapatmak için boşluklar büyük harflerin önüne aynı anda eklenmiştir, ekran görüntüsüne bakın:

Kutools for Excel's Metin ekle yardımcı programı, VBA makrolarını atlamanıza ve Excel'de her büyük harften önce kolayca boşluk eklemenize yardımcı olabilir.

1. Büyük harflerden önce boşluk ekleyeceğiniz aralığı seçin ve Kutools > Metin > Metin ekle. Ekran görüntüsüne bakın:

2. Metin Ekle iletişim kutusunun açılışında, alana bir boşluk yazın. Metin kutusu, kontrol edin Sadece seçeneğe ekle seçin 1. harf büyük harftir itibaren Sadece ekle açılır liste.

3. Tıkla Ok aşağıdaki ekran görüntüsü gibi her büyük harften önce boşluk eklemek için düğmesi:

notlar: Bu yöntem ayrıca, ilk harf büyükse hücrelerin başına boşluk ekleyecektir. Basvurabilirsin Kutools > Metin > Alanları Kaldır seçili hücrelerden tüm önde gelen boşlukları kaldırmak için.

Excel'de virgülden sonra boşluk nasıl eklenir?