Malheureusement, il n'existe aucun moyen direct pour vous d'ajouter des espaces avant les lettres majuscules dans Excel, mais vous pouvez créer une fonction définie par l'utilisateur pour résoudre cette tâche.

1. Activez votre feuille de calcul qui contient les chaînes de texte auxquelles vous souhaitez ajouter des espaces.

2. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: insérer des espaces avant les majuscules

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. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul et entrez cette formule = ajouter des espaces (A1) dans une cellule vide en plus de vos données, voir capture d'écran:

5. Et puis faites glisser la poignée de remplissage sur la plage que vous souhaitez contenir cette formule, vous obtiendrez les espaces sont insérés avant chaque lettre majuscule.

Supprimez facilement les espaces de début / de fin / supplémentaires dans les cellules

Kutools pour Excel Supprimer des espaces L'utilitaire permet aux utilisateurs d'Excel de supprimer facilement tous les espaces de début, les espaces de fin, les espaces supplémentaires ou tous les espaces des cellules sélectionnées rapidement.

Voici un autre code VBA qui peut vous rendre service, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: insérer des espaces avant les majuscules

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. Puis appuyez F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous permettre de sélectionner une plage de données que vous souhaitez utiliser.

4. Et puis cliquez OK pour fermer cette boîte de dialogue, les espaces ont été insérés immédiatement avant les majuscules, voir capture d'écran:

Kutools pour Excel Ajouter du texte L'utilitaire peut vous aider à contourner les macros VBA et à insérer facilement un espace avant chaque majuscule dans Excel.

1. Sélectionnez la plage dans laquelle vous allez insérer un espace avant les majuscules et cliquez sur le bouton Kutools > Texte > Ajouter du texte. Voir la capture d'écran:

2. Dans la boîte de dialogue d'ouverture d'ajout de texte, tapez un espace dans le Texte case, cochez la case Ajouter uniquement à l'option et sélectionnez La 1ère lettre est en majuscule du Ajouter seulement à la liste déroulante.

3. Clique le Ok pour insérer un espace avant toutes les lettres majuscules, comme illustré ci-dessous:

Notes: Cette méthode ajoutera également un espace au début des cellules si la première lettre est en majuscule. Vous pouvez postuler Kutools > Texte > Supprimer des espaces pour supprimer tous les espaces de début des cellules sélectionnées.

Comment ajouter des espaces après des virgules dans Excel?