Πώς να εισαγάγετε κενά πριν από κεφαλαία γράμματα στο Excel;
Ας υποθέσουμε ότι έχετε μια λίστα συμβολοσειρών κειμένου που αφαιρούνται κατά λάθος όλα τα κενά μεταξύ των λέξεων, όπως αυτό: InsertBlankRowsBetweenDataκαι τώρα θέλετε να προσθέσετε τα κενά πριν από κάθε γράμμα με κεφαλαία γράμματα για να διαχωρίσετε τις λέξεις ως Εισαγωγή κενών γραμμών μεταξύ δεδομένων. Πώς θα μπορούσατε να προσθέσετε κενά μπροστά από τα κεφαλαία γράμματα αντί να πληκτρολογήσετε διαστήματα ένα προς ένα στο Excel;
- Εισαγάγετε κενά πριν από κεφαλαία γράμματα με τη λειτουργία που καθορίζεται από το χρήστη
- Εισαγάγετε κενά πριν από κεφαλαία γράμματα με κωδικό VBA
- Εισαγάγετε κενό διάστημα πριν από κάθε κεφαλαίο γράμμα με το Kutools για Excel
Εισαγάγετε κενά πριν από κεφαλαία γράμματα με τη λειτουργία που καθορίζεται από το χρήστη
Δυστυχώς, δεν υπάρχει άμεσος τρόπος για να προσθέσετε κενά πριν από τα κεφαλαία γράμματα στο 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
Εδώ είναι ένας άλλος κωδικός 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
Kutools για Excel Προσθήκη κειμένου βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να παρακάμψετε τις μακροεντολές VBA και να εισαγάγετε κενό διάστημα πριν από κάθε κεφαλαίο γράμμα εύκολα στο Excel.
Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!
1. Επιλέξτε το εύρος όπου θα εισαγάγετε κενό διάστημα πριν από κεφαλαία γράμματα και κάντε κλικ στο Kutools > Κείμενο > Προσθήκη κειμένου. Δείτε το στιγμιότυπο οθόνης:
2. Στο πλαίσιο διαλόγου Προσθήκη κειμένου ανοίγματος, πληκτρολογήστε ένα κενό στο Κείμενο πλαίσιο, επιλέξτε το Προσθήκη μόνο στην επιλογή και επιλέξτε Το 1ο γράμμα είναι κεφαλαίο από το Προσθήκη μόνο σε αναπτυσσόμενη λίστα.
3. Κάντε κλικ στο Ok κουμπί για να εισαγάγετε κενό διάστημα πριν από κάθε κεφαλαία γράμματα όπως φαίνεται στην παρακάτω οθόνη:
Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα
Notes: Αυτή η μέθοδος θα προσθέσει επίσης χώρο στην αρχή των κελιών, εάν το πρώτο γράμμα είναι κεφαλαίο. Μπορείτε να κάνετε αίτηση Kutools > Κείμενο > Κατάργηση Spaces για να αφαιρέσετε όλα τα κενά διαστήματα από επιλεγμένα κελιά.
Σχετικό άρθρο:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!