Δυστυχώς, δεν υπάρχει άμεσος τρόπος για να προσθέσετε κενά πριν από τα κεφαλαία γράμματα στο Excel, αλλά, μπορείτε να δημιουργήσετε συνάρτηση καθορισμένη από τον χρήστη για να επιλύσετε αυτήν την εργασία.

1. Ενεργοποιήστε το φύλλο εργασίας σας που περιέχει τις συμβολοσειρές κειμένου που θέλετε να προσθέσετε κενά.

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Εισαγάγετε κενά πριν από κεφαλαία γράμματα

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. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = addspaces (A1) σε ένα κενό κελί εκτός από τα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:

5. Και μετά σύρετε τη λαβή πλήρωσης στο εύρος που θέλετε να περιέχει αυτόν τον τύπο, θα λάβετε τα κενά πριν από κάθε κεφαλαίο γράμμα

Αφαιρέστε εύκολα τους κεντρικούς / τελικούς / επιπλέον χώρους στα κελιά

Kutools για Excel Κατάργηση Spaces Το βοηθητικό πρόγραμμα επιτρέπει στους χρήστες του Excel να αφαιρούν εύκολα όλους τους κεντρικούς χώρους, τον τελικό χώρο, τους επιπλέον χώρους ή όλους τους χώρους από επιλεγμένα κελιά γρήγορα.

Εδώ είναι ένας άλλος κωδικός VBA που μπορεί να σας βοηθήσει, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Εισαγάγετε κενά πριν από κεφαλαία γράμματα

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. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας επιτρέψει να επιλέξετε ένα εύρος δεδομένων που θέλετε να χρησιμοποιήσετε.

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε αυτό το πλαίσιο προτροπής, τα κενά έχουν εισαχθεί αμέσως πριν από τα κεφαλαία γράμματα, δείτε το στιγμιότυπο οθόνης:

Kutools για Excel Προσθήκη κειμένου βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να παρακάμψετε τις μακροεντολές VBA και να εισαγάγετε κενό διάστημα πριν από κάθε κεφαλαίο γράμμα εύκολα στο Excel.

1. Επιλέξτε το εύρος όπου θα εισαγάγετε κενό διάστημα πριν από κεφαλαία γράμματα και κάντε κλικ στο Kutools > Κείμενο > Προσθήκη κειμένου. Δείτε το στιγμιότυπο οθόνης:

2. Στο πλαίσιο διαλόγου Προσθήκη κειμένου ανοίγματος, πληκτρολογήστε ένα κενό στο Κείμενο πλαίσιο, επιλέξτε το Προσθήκη μόνο στην επιλογή και επιλέξτε Το 1ο γράμμα είναι κεφαλαίο από το Προσθήκη μόνο σε αναπτυσσόμενη λίστα.

3. Κάντε κλικ στο Ok κουμπί για να εισαγάγετε κενό διάστημα πριν από κάθε κεφαλαία γράμματα όπως φαίνεται στην παρακάτω οθόνη:

Notes: Αυτή η μέθοδος θα προσθέσει επίσης χώρο στην αρχή των κελιών, εάν το πρώτο γράμμα είναι κεφαλαίο. Μπορείτε να κάνετε αίτηση Kutools > Κείμενο > Κατάργηση Spaces για να αφαιρέσετε όλα τα κενά διαστήματα από επιλεγμένα κελιά.

Πώς να προσθέσετε κενά μετά κόμματα στο Excel;