Sfortunatamente, non esiste un modo diretto per aggiungere spazi prima delle lettere maiuscole in Excel, ma puoi creare una funzione definita dall'utente per risolvere questa attività.

1. Attiva il tuo foglio di lavoro che contiene le stringhe di testo a cui vuoi aggiungere spazi.

2. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: inserisci spazi prima delle lettere maiuscole

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. Quindi salva e chiudi questo codice, torna al foglio di lavoro e inserisci questa formula = addspaces (A1) in una cella vuota oltre ai tuoi dati, vedi screenshot:

5. Quindi trascina il quadratino di riempimento sull'intervallo in cui desideri contenere questa formula, otterrai gli spazi inseriti prima di ogni lettera maiuscola.

Rimuovi facilmente gli spazi iniziali / finali / extra nelle celle

Kutools per Excel Rimuovi spazi L'utilità consente agli utenti di Excel di rimuovere facilmente tutto lo spazio iniziale, lo spazio finale, gli spazi extra o tutti gli spazi dalle celle selezionate rapidamente.

Ecco un altro codice VBA che può farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: inserisci spazi prima delle lettere maiuscole

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. Quindi premere F5 chiave per eseguire questo codice, verrà visualizzata una finestra di messaggio per consentire di selezionare un intervallo di dati che si desidera utilizzare.

4. E poi clicca OK per chiudere questa finestra di messaggio, gli spazi sono stati inseriti prima delle lettere maiuscole contemporaneamente, vedi screenshot:

Kutools per Excel aggiungi testo L'utilità può aiutarti a bypassare le macro VBA e inserire facilmente lo spazio prima di ogni lettera maiuscola in Excel.

1. Seleziona l'intervallo in cui inserire lo spazio prima delle lettere maiuscole e fai clic su Kutools > Testo > aggiungi testo. Vedi screenshot:

2. Nella finestra di dialogo Aggiungi testo di apertura, digita uno spazio nel file Testo casella, seleziona il file Aggiungi solo all'opzione e seleziona La prima lettera è maiuscola dal Aggiungi solo a menu `A tendina.

3. Clicca il Ok pulsante per inserire uno spazio prima di ogni lettera maiuscola come mostrato nella seguente schermata:

Note: Questo metodo aggiungerà anche spazio all'inizio delle celle se la prima lettera è maiuscola. Puoi candidarti Kutools > Testo > Rimuovi spazi per rimuovere tutti gli spazi iniziali dalle celle selezionate.

Come aggiungere spazi dopo le virgole in Excel?