Το Excel προσθέτει κείμενο και αριθμό στην καθορισμένη θέση του κελιού
Στο Excel, η προσθήκη κειμένων ή αριθμών σε κελιά είναι μια πολύ συνηθισμένη εργασία. Όπως η προσθήκη διαστήματος μεταξύ των ονομάτων, η προσθήκη προθέματος ή επιθήματος σε κελιά, η προσθήκη παύλων σε αριθμούς κοινωνικής δικτύωσης. Εδώ σε αυτό το σεμινάριο, παραθέτει σχεδόν όλα τα σενάρια προσθήκης στο Excel και παρέχει τις αντίστοιχες μεθόδους για εσάς.
Note
Σε αυτό το σεμινάριο, δημιουργώ μερικά παραδείγματα για να εξηγήσω τις μεθόδους, μπορείτε να αλλάξετε τις αναφορές που χρειάζεστε όταν χρησιμοποιείτε παρακάτω κώδικα ή τύπους VBA ή μπορείτε να κάνετε λήψη των δειγμάτων για να δοκιμάσετε μεθόδους απευθείας.
Κάντε κλικ για λήψη του δείγματος αρχείου
Αυτό το μέρος παραθέτει διαφορετικές μεθόδους για την προσθήκη χαρακτήρων στην αρχή κάθε κελιού όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
1.1 Προσθέστε στην αρχή των κελιών χρησιμοποιώντας τον τύπο
Εδώ μπορείτε να επιλέξετε έναν από τους παρακάτω τρεις τύπους:
Συνδετικός τελεστής Formula1 "&"
Συνδέστε πολλαπλά κείμενα μαζί με ένα συμπλεκτικό χαρακτήρα "&".
"κείμενο"&κελί
Λειτουργία Formula2 CONCATENATE
Η συνάρτηση CONCATENATE χρησιμοποιείται για τη συνένωση κειμένων.
CONCATENATE ("κείμενο", κελί)
Λειτουργία Formula3 CONCAT
Αυτή είναι μια νέα λειτουργία που εμφανίζεται μόνο στο Excel 2019, στο Office 365 και στο Excel στο διαδίκτυο.
CONCAT ("κείμενο", κελί)
Στους γενικούς τύπους: το κελί είναι η αναφορά κελιού στο κείμενο στο οποίο θέλετε να προσθέσετε πρόθεμα και το κείμενο είναι το κείμενο που χρησιμοποιήθηκε για την προσθήκη στο κελί.
Χρησιμοποιώντας το παραπάνω παράδειγμα, μπορείτε να χρησιμοποιήσετε τους τύπους στη γραμμή τύπων ως εξής:
"&"
=$E$3&B3 or ="Iphone"&B3
Συνάρτηση CONCATENATE
=CONCATENATE($E$3,B3) or =CONCATENATE("Iphone",B3)
Λειτουργία CONCAT
=CONCAT($E$3,B3) or =CONCAT("Iphone",B3)
Τύπος εισάγετε πλήκτρο για να λάβετε το αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να προσθέσετε κείμενο σε κάθε κελί της περιοχής B3:B6.
| Προσοχή: Το κείμενο πρέπει να περικλείεται σε διπλά εισαγωγικά ή ο τύπος επιστρέφει μια τιμή σφάλματος #NAME?. Εάν χρησιμοποιείτε την αναφορά κελιού σε ένα κείμενο, θυμηθείτε να χρησιμοποιήσετε την απόλυτη αναφορά, μπορείτε να πατήσετε το πλήκτρο F4 για να αλλάξετε τη σχετική αναφορά σε απόλυτη αναφορά. |
1.2 Προσθήκη στην αρχή των κελιών με Flash Fill
Εάν βρίσκεστε σε Excel 2013 ή νεότερες εκδόσεις, η ισχυρή νέα δυνατότητα, Flash Fill, μπορεί να γεμίσει τα κελιά με βάση τα παραπάνω κελιά που καταχωρίσατε αυτόματα.
Επιλέξτε ένα κελί δίπλα στα πρώτα αρχικά δεδομένα, πληκτρολογήστε μη αυτόματα τα πρώτα δεδομένα με το κείμενο του προθέματος όπως φαίνεται παρακάτω:
Στη συνέχεια, στο κελί παρακάτω, συνεχίστε να πληκτρολογείτε τα δεύτερα δεδομένα με κείμενο προθέματος· κατά τη διάρκεια της πληκτρολόγησης, θα εμφανιστεί μια λίστα με γκρι χρώμα, πατήστε εισάγετε πλήκτρο για να επιτρέψετε στο Flash Fill να γεμίσει αυτόματα τα δεδομένα.
Εάν η λίστα προεπισκόπησης δεν δημιουργείται, μεταβείτε στην καρτέλα Αρχική σελίδα και, στη συνέχεια, κάντε κλικ Γέμισμα > Flash Fill για να το εκτελέσετε χειροκίνητα.
1.3 Προσθήκη στην αρχή των κελιών με χρήση κώδικα VBA
Εάν είστε εξοικειωμένοι με τον κώδικα VBA, εδώ παρουσιάζεται ένας κώδικας VBA για την προσθήκη κειμένου στην αρχή κάθε κελιού σε μια περιοχή.
1. Επιλέξτε μια περιοχή κελιών που θέλετε να προσθέσετε το κείμενο του προθέματος και, στη συνέχεια, πατήστε άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, στο αναδυόμενο παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη νέα μονάδα.
VBA: Προσθήκη στην αρχή των κελιών
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub| Προσοχή: στο σενάριο κώδικα, iphone είναι το κείμενο που θέλετε να προσθέσετε στην αρχή των επιλεγμένων κελιών, αλλάξτε το ανάλογα με τις ανάγκες σας. |
4. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί 
στο παράθυρο για να ενεργοποιήσετε τον κωδικό VBA.
Τώρα σε όλα τα επιλεγμένα κελιά έχει προστεθεί το κείμενο "Iphone" στην αρχή.
Εκτός από την προσθήκη κειμένου στην αρχή των κελιών, η προσθήκη κειμένου στο τέλος των κελιών είναι επίσης συνηθισμένη. Εδώ παίρνουμε την προσθήκη μονάδας στο τέλος κάθε κελιού για παραδείγματα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
2.1 Προσθέστε στο τέλος των κελιών χρησιμοποιώντας τον τύπο
Εδώ μπορείτε να επιλέξετε έναν από τους παρακάτω τρεις τύπους:
Συνδετικός τελεστής Formula1 "&"
Συνδέστε πολλαπλά κείμενα μαζί με ένα συμπλεκτικό χαρακτήρα "&".
Κελλί&"κείμενο"
Λειτουργία Formula2 CONCATENATE
Η συνάρτηση CONCATENATE χρησιμοποιείται για τη συνένωση κειμένων.
CONCATENATE (κελί,"κείμενο")
Λειτουργία Formula3 CONCAT
Αυτή είναι μια νέα λειτουργία που εμφανίζεται μόνο στο Excel 2019, στο Office 365 και στο Excel στο διαδίκτυο.
CONCAT (κελί, "κείμενο")
Στους γενικούς τύπους: το κελί είναι η αναφορά κελιού στο κείμενο στο οποίο θέλετε να προσθέσετε επίθημα και το κείμενο είναι το κείμενο που χρησιμοποιήθηκε για την προσθήκη στο κελί.
Χρησιμοποιώντας το παραπάνω παράδειγμα, μπορείτε να χρησιμοποιήσετε τους τύπους στη γραμμή τύπων ως εξής:
"&"
=B3&$3E$ or =B3&"Kg"
Συνάρτηση CONCATENATE
=CONCATENATE(B3, $3 E$) or =CONCATENATE(B3, "Kg")
Λειτουργία CONCAT
=CONCAT(B3, $3 E$) or =CONCAT(B3, "Kg")
Τύπος εισάγετε πλήκτρο για να λάβετε το αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να προσθέσετε κείμενο στο τέλος κάθε κελιού της περιοχής B3:B6.
| Προσοχή: Το κείμενο πρέπει να περικλείεται σε διπλά εισαγωγικά ή ο τύπος επιστρέφει μια τιμή σφάλματος #NAME?. Εάν χρησιμοποιείτε την αναφορά κελιού σε ένα κείμενο, θυμηθείτε να χρησιμοποιήσετε την απόλυτη αναφορά, μπορείτε να πατήσετε το πλήκτρο F4 για να αλλάξετε τη σχετική αναφορά σε απόλυτη αναφορά. |
2.2 Προσθήκη στο τέλος των κελιών με Flash Fill
Εάν βρίσκεστε σε Excel 2013 ή νεότερες εκδόσεις, η ισχυρή νέα δυνατότητα, Flash Fill, μπορεί να γεμίσει τα κελιά με βάση τα παραπάνω κελιά που καταχωρίσατε αυτόματα.
Επιλέξτε ένα κελί δίπλα στα πρώτα αρχικά δεδομένα, πληκτρολογήστε μη αυτόματα τα πρώτα δεδομένα με το επίθημα κειμένου όπως φαίνεται παρακάτω:
Στη συνέχεια, ενεργοποιήστε το κελί κάτω από το πρώτο αποτέλεσμα, κάντε κλικ ημερομηνία > Flash Fill, όλα τα παρακάτω κελιά, συμπεριλαμβανομένου του ενεργού κελιού, θα συμπληρωθούν αυτόματα.
2.3 Προσθήκη στο τέλος των κελιών με χρήση κώδικα VBA
Εδώ είναι ένας κώδικας VBA που μπορεί να προσθέσει κείμενο στο τέλος κάθε κελιού σε μια περιοχή.
1. Επιλέξτε μια περιοχή κελιών που θέλετε να προσθέσετε το επίθημα και, στη συνέχεια, πατήστε άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, στο αναδυόμενο παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη νέα μονάδα.
VBA: Προσθήκη στο τέλος των κελιών
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub| Προσοχή: στο σενάριο κώδικα, Kg είναι το κείμενο που θέλετε να προσθέσετε στο τέλος των επιλεγμένων κελιών, αλλάξτε το ανάλογα με τις ανάγκες σας. |
4. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί στο παράθυρο για να ενεργοποιήσετε τον κωδικό VBA.
Τώρα το κείμενο "Kg" προστέθηκε στο τέλος κάθε κελιού.
Για τους περισσότερους από εσάς, η προσθήκη κειμένων στην αρχή ή στο τέλος των κελιών είναι εύκολη, αλλά η προσθήκη κειμένων στη μέση των κελιών ίσως είναι κάπως δύσκολη. Πάρτε παράδειγμα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, προσθέτοντας έναν οριοθέτη, όπως άνω και κάτω τελεία : στο τέλος του δεύτερου χαρακτήρα κάθε κελιού στην περιοχή B3:B7.
3.1 Προσθήκη μετά από τον νιοστό χαρακτήρα συμβολοσειράς κατά τύπο
Ακολουθούν τέσσερις τύποι που παρέχονται για να χειριστείτε αυτήν τη δουλειά, επιλέξτε έναν για χρήση:
Formula1 Συνδυάστε τις λειτουργίες ΑΡΙΣΤΕΡΑ και ΔΕΞΙΑ
LEFT(κελί, n) & "κείμενο" & RIGHT (κελί, LEN (κελί) -n)
Λειτουργίες Formula2 COMBINE CONCATENATE(CONCAT), RIGHT και LEN
CONCATENATE(ΑΡΙΣΤΕΡΑ(κελί, n), "κείμενο", ΔΕΞΙΑ(κελί, LEN(κελί) -n))
Or
CONCAT(ΑΡΙΣΤΕΡΑ(κελί, n), "κείμενο", ΔΕΞΙΑ(κελί, LEN(κελί) -n))
Λειτουργία Formula3 REPLACE
REPLACE(κελί, n+1, 0, "κείμενο")
Στους γενικούς τύπους: το κελί είναι η αναφορά του κελιού στο κείμενο που θέλετε να προσθέσετε κείμενο στη μέση και το κείμενο είναι το κείμενο που χρησιμοποιήθηκε για να προσθέσετε στο κελί, το n είναι ο αριθμός που ορίζει μετά από ποιον χαρακτήρα στη συμβολοσειρά κειμένου θέλετε να Προσθέστε κείμενο.
Για την επίλυση της εργασίας που αναφέρεται παραπάνω, χρησιμοποιήστε τους τύπους ως εξής:
Συνδυάστε τις λειτουργίες ΑΡΙΣΤΕΡΑ και ΔΕΞΙΑ
=LEFT(B3, 2) & ":" & RIGHT(B3, LEN(B3) -2) or =ΑΡΙΣΤΕΡΑ(B3, 2) & $E$3 & RIGHT(B3, LEN(B3) -2)
COMBINE CONCATENATE(CONCAT), RIGHT και LEN λειτουργίες
=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2)) or =CONCAT (ΑΡΙΣΤΕΡΑ(B3, 2), ":", ΔΕΞΙΑ(B3, LEN(B3) -2))
Λειτουργία REPLACE
=REPLACE(B3, 2+1, 0, ":") or =REPLACE(B3, 2+1, 0, $3 E$)
Τύπος εισάγετε πλήκτρο για να λάβετε το αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να προσθέσετε κείμενο μετά τον δεύτερο χαρακτήρα κάθε κελιού της περιοχής B3:B7.
| Προσοχή: Το κείμενο πρέπει να περικλείεται σε διπλά εισαγωγικά ή ο τύπος επιστρέφει μια τιμή σφάλματος #NAME?. Εάν χρησιμοποιείτε την αναφορά κελιού σε ένα κείμενο, θυμηθείτε να χρησιμοποιήσετε την απόλυτη αναφορά, μπορείτε να πατήσετε το πλήκτρο F4 για να αλλάξετε τη σχετική αναφορά σε απόλυτη αναφορά. |
3.2 Προσθήκη μετά το νιοστό χαρακτήρα της συμβολοσειράς με Flash Fill
Εάν βρίσκεστε σε Excel 2013 ή νεότερες εκδόσεις, το Flash Fill, μπορεί να γεμίσει τα κελιά με βάση τα παραπάνω κελιά που καταχωρίσατε αυτόματα.
Επιλέξτε ένα κελί δίπλα στα πρώτα αρχικά δεδομένα, πληκτρολογήστε μη αυτόματα τα πρώτα δεδομένα με άνω και κάτω τελεία μετά τον δεύτερο χαρακτήρα όπως φαίνεται παρακάτω:
Στη συνέχεια, ενεργοποιήστε το κελί κάτω από το πρώτο αποτέλεσμα, πατήστε Ctrl + E πλήκτρα για ενεργοποίηση Flash Fill εντολή, όλα τα παρακάτω κελιά, συμπεριλαμβανομένου του ενεργού κελιού, έχουν συμπληρωθεί αυτόματα.
| Προσοχή: Εάν βρίσκεστε σε σύστημα MAC, πατήστε τα πλήκτρα Command + E. |
3.3 Προσθέστε μετά το νιοστό χαρακτήρα της συμβολοσειράς χρησιμοποιώντας κώδικα VBA
Ένας κώδικας VBA μπορεί επίσης να κάνει αυτή τη δουλειά.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, στο αναδυόμενο παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη νέα μονάδα.
VBA: Προσθήκη στη μέση των κελιών
Sub AddToMidduleOfString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
Next
End Sub| Προσοχή: στο σενάριο κώδικα, 2 είναι ο αριθμός που ορίζει τη θέση μετά την οποία θέλετε να προσθέσετε κείμενο, : είναι το κείμενο στο οποίο θέλετε να προσθέσετε, 3 είναι το άθροισμα του 2 και του μήκους του κειμένου που προσθέτετε. Πάρτε ένα άλλο παράδειγμα, για να προσθέσετε το "and" μετά τον πρώτο χαρακτήρα της συμβολοσειράς "AB", το σενάριο πρέπει να είναι Rng.Value = VBA.Left(Rng.Value, 1) & "και " & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) |
4. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί στο παράθυρο για να ενεργοποιήσετε τον κωδικό VBA. Εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή κελιών για προσθήκη κειμένου.
5. κλικ OK. Τώρα το κείμενο ":" προστέθηκε μετά τον δεύτερο χαρακτήρα κάθε κελιού στην περιοχή B19:B23.
4. Προσθέστε κείμενο με το Kutools για Excel (προσθέστε χαρακτήρες σε συγκεκριμένη θέση όπως χρειάζεστε)
Εάν έχετε βαρεθεί τους τύπους και το VBA, μπορείτε να δοκιμάσετε ένα ισχυρό και εύχρηστο εργαλείο, Kutools για Excel, που μπορεί να σας βοηθήσει με αυτό Προσθήκη κειμένου χαρακτηριστικό.
Αυτή η δυνατότητα Προσθήκη κειμένου μπορεί:
- Προσθήκη κειμένου πριν από τον πρώτο χαρακτήρα
- Προσθήκη κειμένου μετά τον τελευταίο χαρακτήρα
- Προσθέστε κείμενο σε καθορισμένες θέσεις
- Επέκταση
Προσθέστε κείμενο πριν από κεφαλαία γράμματα
Προσθέστε κείμενο πριν από πεζά γράμματα
Προσθέστε κείμενο πριν από κεφαλαία/πεζά γράμματα
Προσθήκη κειμένου πριν από αριθμητικούς χαρακτήρες
Κάντε κλικ για να λάβετε δωρεάν δοκιμή 30 ημερών τώρα.
Επιλέξτε τα κελιά που θέλετε να προσθέσετε κείμενο και, στη συνέχεια, εφαρμόστε το Προσθήκη κειμένου κάνοντας κλικ Kutools > Κείμενο > Προσθήκη κειμένου.
4.1 Προσθήκη κειμένου πριν από τον πρώτο ή μετά τον τελευταίο χαρακτήρα
Στο Προσθήκη κειμένου διαλόγου, πληκτρολογήστε το κείμενο που θέλετε να προσθέσετε στα κελιά του Κείμενο πλαίσιο κειμένου και, στη συνέχεια, ελέγξτε Πριν τον πρώτο χαρακτήρα στο θέση τμήμα.
Πατήστε Εφαρμογή or Ok για να ολοκληρώσετε την προσθήκη.
Για να προσθέσετε κείμενο μετά τον τελευταίο χαρακτήρα, πληκτρολογήστε το κείμενο που θέλετε να προσθέσετε στα κελιά του Κείμενο πλαίσιο κειμένου και, στη συνέχεια, ελέγξτε Μετά τον τελευταίο χαρακτήρα στο θέση τμήμα.
Πατήστε Εφαρμογή or Ok για να ολοκληρώσετε την προσθήκη.
4.2 Προσθήκη κειμένου σε καθορισμένες θέσεις
Μερικές φορές, μπορεί να θέλετε να προσθέσετε κείμενο στη μέση του κελιού ή να προσθέσετε κείμενο σε πολλές θέσεις του κελιού. Ας υποθέσουμε ότι προσθέτουμε το διαχωριστικό "-" μετά το τρίτο και το έβδομο ψηφίο των αριθμών κοινωνικής δικτύωσης όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Στο Προσθήκη κειμένου διαλόγου, πληκτρολογήστε το κείμενο Κείμενο πλαίσιο κειμένου και επιλέξτε Καθορίστε επιλογή, μετά πληκτρολογήστε τις θέσεις χρησιμοποιώντας κόμμα για διαχωρισμό στο πλαίσιο κειμένου και, στη συνέχεια, κάντε κλικ Ok or Εφαρμογή.
4.3 Επέκταση του βοηθητικού προγράμματος Προσθήκη κειμένου
Εκτός από την προσθήκη κειμένου στις κανονικές θέσεις (αρχή, τέλος και καθορισμένη θέση), το Προσθήκη κειμένου Το βοηθητικό πρόγραμμα υποστηρίζει επίσης την προσθήκη κειμένου
- Πριν από κεφαλαία γράμματα
- Πριν από πεζά γράμματα
- Πριν από κεφαλαία/πεζά γράμματα
- Πριν από αριθμητικούς χαρακτήρες
Στο Προσθήκη κειμένου διαλόγου, πληκτρολογήστε το κείμενο Κείμενο πλαίσιο κειμένου και επιλέξτε Προσθήκη μόνο σε επιλογή και, στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο μενού παρακάτω για να επιλέξετε τη λειτουργία που χρειάζεστε.
Αυτό το μέρος παρέχει τύπους για την προσθήκη κειμένου πριν ή μετά το πρώτο συγκεκριμένο κείμενο που εμφανίστηκε στο Excel.
5.1 Προσθήκη κειμένου πριν από το πρώτο συγκεκριμένο κείμενο
Για παράδειγμα, θέλετε να προσθέσετε κείμενο "(πώληση)" πριν από το πρώτο κείμενο "τιμή" στο κελί όπως φαίνονται παρακάτω στιγμιότυπα οθόνης:
Στο Excel, οι συναρτήσεις REPLACE και SUBSTITUTE μπορούν να λύσουν αυτήν την εργασία.
Λειτουργία REPLACE
REPLACE(κελί, FIND("find_text",cell),0,"add_text")
Συνάρτηση SUBSTITUTE
SUBSTITUTE(κελί,"find_text","replace_text",1)
Σε αυτήν την περίπτωση, χρησιμοποιήστε τους παραπάνω τύπους ως εξής:
=REPLACE(B4,FIND("τιμή",B4),0,"(πώληση)")
Or
=ΥΠΟΚΑΤΑΣΤΑΣΗ(B4,"τιμή","(εκπτωτική)τιμή",1)
Τα επιχειρήματα τύπου σε αυτή την περίπτωση είναι
Κύτταρο: B4,
Find_text: τιμή,
Προσθήκη_κειμένου: (πώληση),
Replace_text:(εκπτωτική)τιμή.
Τύπος εισάγετε κλειδί για να λάβετε το πρώτο αποτέλεσμα προσθήκης και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από κελιά που χρειάζονται αυτόν τον τύπο.
5.2 Προσθήκη κειμένου μετά το πρώτο συγκεκριμένο κείμενο
Για παράδειγμα, θέλετε να προσθέσετε το σύμβολο νομίσματος "$" μετά την πρώτη άνω και κάτω τελεία ":" στο κελί όπως φαίνονται παρακάτω στιγμιότυπα οθόνης:
Στο Excel, οι συναρτήσεις REPLACE και SUBSTITUTE μπορούν να λύσουν αυτήν την εργασία.
Λειτουργία REPLACE
REPLACE(κελί, FIND("find_text", cell), find_text_length,"replace_text")
Συνάρτηση SUBSTITUTE
SUBSTITUTE(κελί,"find_text","replace_text")
Σε αυτήν την περίπτωση, χρησιμοποιήστε τους παραπάνω τύπους ως εξής:
=REPLACE(B12,FIND(":",B12),1,":$")
Or
=SUBSTITUTE(B12,":",":$")
Τα επιχειρήματα τύπου σε αυτή την περίπτωση είναι
Κύτταρο: B12,
Find_text: :,
Αντικατάσταση_κειμένου::$.
Εύρεση_μήκους_κειμένου:1
Τύπος εισάγετε κλειδί για να λάβετε το πρώτο αποτέλεσμα προσθήκης και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από κελιά που χρειάζονται αυτόν τον τύπο.
Σε αυτό το μέρος του σεμιναρίου, εισάγει τρεις διαφορετικές μεθόδους (τύπος, Εύρεση και αντικατάσταση, VBA) για να σας βοηθήσει να προσθέσετε χαρακτήρες πριν ή μετά από κάθε λέξη του κελιού.
| Προσθέστε χαρακτήρες πριν από κάθε λέξη |
 |
| Προσθέστε χαρακτήρες μετά από κάθε λέξη |
 |
6.1 Προσθέστε χαρακτήρες πριν ή μετά από κάθε λέξη ανά τύπο
Η συνάρτηση SUBSTITUTE μπορεί να χρησιμοποιηθεί για την επίλυση αυτής της εργασίας, οι γενικοί τύποι ως εξής:
Προσθέστε πριν από κάθε λέξη
"character"&SUBSTITUTE(string, " "," character")
Προσθέστε μετά από κάθε λέξη
SUBSTITUTE(string," ","character ")&"character"
Υποθέτοντας ότι προσθέτουμε "+" πριν από κάθε λέξη στη λίστα B3:B6, χρησιμοποιήστε τον τύπο ως εξής:
="+"&SUBSTITUTE(B3, " "," +")
Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλα τα αποτελέσματα.
Υποθέτοντας ότι προσθέτουμε ($) μετά από κάθε λέξη της λίστας B11:B14, χρησιμοποιήστε τον παρακάτω τύπο:
=SUBSTITUTE(B11," ","($) ")&"($)"
Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλα τα αποτελέσματα.
6.2 Προσθέστε χαρακτήρες πριν ή μετά από κάθε λέξη με Find and Replace
Εάν θέλετε να προσθέσετε χαρακτήρες πριν από κάθε λέξη εκτός από την πρώτη ή να προσθέσετε χαρακτήρες μετά από κάθε λέξη εκτός από την τελευταία όπως φαίνεται παρακάτω στιγμιότυπο οθόνης, το ενσωματωμένο Excel Εύρεση και αντικατάσταση Το βοηθητικό πρόγραμμα μπορεί να χειριστεί αυτήν τη δουλειά.
Προσθέστε πριν από κάθε λέξη εκτός από την πρώτη
Προσθέστε μετά από κάθε λέξη εκτός από την τελευταία
1. Επιλέξτε τα κελιά που θέλετε να προσθέσετε χαρακτήρες πριν ή μετά από κάθε λέξη και, στη συνέχεια, πατήστε Ctrl + H πλήκτρα για να ενεργοποιήσετε το Εύρεση και αντικατάσταση διαλόγου.
2. Πληκτρολογήστε ένα κενό στο βρείτε αυτό πλαίσιο κειμένου και, στη συνέχεια, πληκτρολογήστε τους νέους χαρακτήρες με κενό Αντικατάσταση με πλαίσιο κειμένου και, τέλος, κάντε κλικ στο Αντικατάσταση όλων κουμπί.
| Επιχείρηση | General | Παράδειγμα |
| Προσθέστε χαρακτήρες πριν από κάθε λέξη | Προσθέστε νέους χαρακτήρες μετά από ένα κενό | Προσθέστε (πώληση) πριν από κάθε λέξη |
| Επιχείρηση | General | Παράδειγμα |
| Προσθέστε χαρακτήρες μετά από κάθε λέξη | Ακολούθησαν νέοι χαρακτήρες με κενό | Προσθήκη - μετά από κάθε λέξη |
Εδώ παρέχονται δύο κωδικοί VBA για την προσθήκη χαρακτήρων πριν ή μετά από κάθε λέξη, εκτελέστε τον κώδικα ακολουθώντας τα παρακάτω βήματα.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη μονάδα.
Προσθέστε πριν από κάθε λέξη
Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = xInStr & Trim(xStr)
Else
xValue = xValue & " " & xInStr & Trim(xStr)
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End SubΠροσθέστε μετά από κάθε λέξη
Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = Trim(xStr) & xInStr
Else
xValue = xValue & " " & Trim(xStr) & xInStr
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub4. Τύπος F5 κλειδί για να εκτελέσετε τον κώδικα (ή μπορείτε να κάνετε κλικ τρέξιμο κουμπί ), εμφανίζεται ένα παράθυρο διαλόγου που σας ζητά να επιλέξετε συνεχόμενα κελιά για να λειτουργούν, κάντε κλικ OK.
5. Στο δεύτερο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε τους χαρακτήρες που θέλετε να προσθέσετε, κάντε κλικ OK.
Στη συνέχεια, οι χαρακτήρες θα προστεθούν στο μπροστινό ή στο τέλος κάθε λέξης.
Μερικές φορές, μπορεί να θέλετε να προσθέσετε κείμενο μεταξύ όλων των χαρακτήρων. Εδώ σε αυτό το μέρος, παραθέτει δύο σενάρια, το ένα είναι να προσθέσετε κείμενο μεταξύ κάθε χαρακτήρα, ένα άλλο είναι να προσθέσετε κενό μεταξύ κάθε αριθμού.
7.1 Προσθέστε κείμενο μεταξύ κάθε χαρακτήρα/ψηφίου με τη λειτουργία Καθορισμένη από το Χρήστη
Για να προσθέσετε χαρακτήρες μεταξύ κάθε χαρακτήρα σε μια συμβολοσειρά, η συνάρτηση Καθορισμένη από το χρήστη μπορεί να σας βοηθήσει.
Σε αυτήν την περίπτωση, προσθέτουμε ένα κενό μεταξύ κάθε χαρακτήρα.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη μονάδα.
Προσθέστε κείμενο μεταξύ χαρακτήρων
Function AddText(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
AddText = AddText & Mid(Str, i, 1) & " "
Next i
AddSpace = Trim(AddSpace)
End Function4. Αποθηκεύστε τον κώδικα και κλείστε το παράθυρο για να επιστρέψετε στο φύλλο εργασίας και, στη συνέχεια, πληκτρολογήστε τον παρακάτω τύπο σε ένα κελί που θέλετε να τοποθετήσετε το αποτέλεσμα προσθήκης.
=AddText(B3)
Το B3 είναι το κελί που περιέχει τη συμβολοσειρά που θέλετε να προσθέσετε κενό μεταξύ των χαρακτήρων.
5. Τύπος εισάγετε κλειδί για να λάβετε το αποτέλεσμα, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από κελιά για να λάβετε άλλα αποτελέσματα όπως χρειάζεστε.
|
Προσοχή: 1) Στον κώδικα VBA, μπορείτε να αλλάξετε το "" σε άλλα κείμενα όπως χρειάζεστε, υποθέτοντας ότι αλλάξτε το σε "-" για προσθήκη - μεταξύ χαρακτήρων. 2) Ο κώδικας θα προσθέτει το νέο κείμενο μετά από κάθε χαρακτήρα. Μπορείτε να αφαιρέσετε το κείμενο που προστέθηκε τελευταία, εάν δεν το χρειάζεστε, χρησιμοποιώντας τον παρακάτω τύπο. Για περισσότερες λεπτομέρειες σχετικά με τον τύπο, επισκεφθείτε: Πώς να αφαιρέσετε τον πρώτο ή τον τελευταίο N χαρακτήρες από ένα κελί ή μια συμβολοσειρά σε Excel; LEFT(κελί,LEN(κελί)-μήκος_κειμένου) |
7.2 Προσθέστε κενό μεταξύ κάθε αριθμού με τύπο
Εάν θέλετε να προσθέσετε κενό μεταξύ των ψηφίων μιας συμβολοσειράς που είναι αριθμητική τιμή, μπορείτε να χρησιμοποιήσετε τη συνάρτηση TEXT.
| Προσοχή: οι αριθμοί του εύρους μεταξύ των οποίων θέλετε να προσθέσετε κενό πρέπει να είναι στο ίδιο μήκος, διαφορετικά ορισμένα αποτελέσματα μπορεί να είναι λανθασμένα. |
Υποθέτοντας ότι εδώ είναι μια λίστα 8ψήφιων αριθμών στην περιοχή B10:B12, επιλέξτε ένα κελί που θα τοποθετήσει το αποτέλεσμα, πληκτρολογήστε τον παρακάτω τύπο:
=TEXT(B10,"# # # # # # # #")
Τύπος εισάγετε και μετά σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από άλλα κελιά.
Εάν το μήκος των αριθμών είναι 5, ο τύπος θα αλλάξει ως =TEXT(B10,"# # # # #").
Εάν θέλετε να προσθέσετε χαρακτήρες μεταξύ κάθε λέξης, υποθέτοντας ότι προσθέστε κενό μεταξύ των πρώτων, μεσαίων και επωνύμων όπως φαίνεται παρακάτω, μπορείτε να χρησιμοποιήσετε μια συνάρτηση που ορίζεται από το χρήστη.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη μονάδα.
Προσθέστε χαρακτήρες ανάμεσα στις λέξεις
Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
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
AddCharacters = xOut
End Function4. Αποθηκεύστε τον κώδικα και κλείστε το παράθυρο για να επιστρέψετε στο φύλλο εργασίας και, στη συνέχεια, πληκτρολογήστε τον παρακάτω τύπο σε ένα κελί που θέλετε να τοποθετήσετε το αποτέλεσμα προσθήκης.
=AddCharacters(B3)
Το B3 είναι το κελί που περιέχει τη συμβολοσειρά που θέλετε να προσθέσετε κενό μεταξύ των λέξεων.
5. Τύπος εισάγετε κλειδί για να λάβετε το αποτέλεσμα, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από κελιά για να λάβετε άλλα αποτελέσματα όπως χρειάζεστε.
| Προσοχή: στον κώδικα VBA, μπορείτε να αλλάξετε το "" σε άλλα κείμενα όπως χρειάζεστε, υποθέτοντας ότι αλλάξτε το σε "-" να προσθέτω - ανάμεσα στις λέξεις. |
Για να προσθέσετε συγκεκριμένους χαρακτήρες μεταξύ κειμένων και αριθμών όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, εδώ παρέχονται δύο μέθοδοι.
9.1 Προσθήκη χαρακτήρων μεταξύ κειμένων και αριθμών με τύπο
Εάν τα κείμενα βρίσκονται στο μπροστινό μέρος των αριθμών, ο γενικός τύπος είναι
TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},string&"1234567890")),0,"-"))
Χρησιμοποιώντας την παραπάνω περίπτωση ως παράδειγμα, χρησιμοποιήστε τον τύπο ως εξής:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από άλλα κελιά για να συμπληρώσετε αυτόν τον τύπο.
Εάν οι αριθμοί βρίσκονται στο μπροστινό μέρος των κειμένων, ο γενικός τύπος είναι
LEFT(string,SUM(LEN(string)-LEN(SUBSTITUTE(string,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT (string,LEN(B13)- SUM(LEN(string)-LEN(SUBSTITUTE(string, {0,1,2,3,4,5,6,7,8,9}, ""))))
Χρησιμοποιώντας την παραπάνω περίπτωση ως παράδειγμα, χρησιμοποιήστε τον τύπο ως εξής:
=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))
Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από άλλα κελιά για να συμπληρώσετε αυτόν τον τύπο.
9.2 Προσθήκη χαρακτήρων μεταξύ κειμένων και αριθμών με το Flash Fill
Εάν βρίσκεστε σε Excel 2013 ή νεότερες εκδόσεις, το Flash Fill μπορεί επίσης να σας βοηθήσει να προσθέσετε χαρακτήρες μεταξύ κειμένων και αριθμών.
Δίπλα στα αρχικά δεδομένα, πληκτρολογήστε τα νέα δεδομένα στα οποία έχουν προστεθεί οι χαρακτήρες μεταξύ κειμένων και αριθμών. Στη συνέχεια, πατήστε το πλήκτρο Enter για να μεταβείτε στο επόμενο κελί του πρώτου αποτελέσματος.
Και πατήστε Ctrl + E πλήκτρα για να ενεργοποιήσετε το Flash Fill.
Επέκταση
Αυτό το σεμινάριο παραθέτει επίσης ορισμένα σενάρια για την προσθήκη κειμένου που μπορεί να συναντήσουμε στην καθημερινή μας ζωή ή στην εργασία μας.
Μερικές φορές, χρειάζεται να προσθέσετε διαχωριστικά όπως παύλες σε μια σειρά αριθμών τηλεφώνου ή αριθμούς κοινωνικής δικτύωσης όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Η μη αυτόματη πληκτρολόγηση θα δοκιμαστεί εάν χρειάζεται να προστεθούν εκατοντάδες αριθμοί. Σε αυτό το μέρος, εισάγει τρεις τρόπους κόλπο για να χειριστείτε γρήγορα αυτήν τη δουλειά.
10.1 Προσθέστε παύλες στους αριθμούς κατά τύπο
Εδώ είναι δύο τύποι που μπορούν να προσθέσουν γρήγορα παύλες στους αριθμούς. Για να προσθέσετε παύλες μετά τον τρίτο και τον έκτο αριθμό στο κελί B3, χρησιμοποιήστε τον τύπο ως εξής:
Λειτουργία REPLACE
=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")
Συνάρτηση TEXT
=TEXT(B3,"???-???-???")
Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από άλλα κελιά.
|
Προσοχή: Μπορείτε να αλλάξετε τα ορίσματα των παραπάνω τύπων όπως χρειάζεστε. Υποθέτοντας προσθήκη "-" μετά το δεύτερο, τέταρτο και έκτο ψηφία, μπορείτε να χρησιμοποιήσετε τους τύπους ως: =REPLACE(REPLACE(REPLACE(B3,3,0,"-"),6,0,"-"),9,0,"-") =TEXT(B3,"??-??-??-???") |
10.2 Προσθήκη παύλων σε αριθμούς κατά Μορφοποίηση κελιών
Για να προσθέσετε απευθείας παύλες στους αριθμούς στα αρχικά κελιά, μπορείτε να χρησιμοποιήσετε το κύτταρα μορφή χαρακτηριστικό.
1. Επιλέξτε τους αριθμούς στους οποίους θέλετε να προσθέσετε παύλες και, στη συνέχεια, πατήστε Ctrl + 1 πλήκτρα για να ενεργοποιήσετε το κύτταρα μορφή διαλόγου.
2. Στο κύτταρα μορφή διαλόγου, κάτω από το αριθμός καρτέλα, επιλέξτε Εξατομικευμένο από το κατηγορία τμήμα.
3. Στη συνέχεια στα δεξιά Χαρακτηριστικά ενότητα, τύπος ###-###-### στο πλαίσιο κειμένου, κάντε κλικ στο OK.
Τώρα στους επιλεγμένους αριθμούς προστέθηκαν παύλες.
10.3 Προσθέστε παύλες στον αριθμό τηλεφώνου με Προσθήκη κειμένου του Kutools για Excel
Εάν έχετε Kutools για Excel εγκατεστημένο στο Excel, το Προσθήκη κειμένου χαρακτηριστικό μπορεί επίσης να σας κάνει μια χάρη.
1. Επιλέξτε τα κελιά που περιέχουν τους αριθμούς που χρειάζονται για να προστεθούν παύλες, κάντε κλικ Kutools > Κείμενο > Προσθέστε κείμενο.
2. Στο Προσθήκη κειμένου διαλόγου, πληκτρολογήστε την παύλα ή άλλο διαχωριστικό Κείμενο πλαίσιο κειμένου, επιλέξτε Καθορίστε και, στη συνέχεια, πληκτρολογήστε τις θέσεις μετά τις οποίες θέλετε να προσθέσετε παύλες και διαχωρίστε τις με κόμμα στο παρακάτω πλαίσιο κειμένου.
3. κλικ Ok ή Εφαρμογή. Στη συνέχεια, στους επιλεγμένους αριθμούς προστέθηκαν παύλες.
Δωρεάν λήψη Προσθήκη κειμένου για δοκιμή 30 ημερών.
Υποθέτοντας ότι υπάρχει μια λίστα με αριθμούς σε διαφορετικά μήκη, θέλετε να προσθέσετε μηδενικά για να τα κάνετε στο ίδιο μήκος και να φαίνονται τακτοποιημένα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Ακολουθούν δύο μέθοδοι που σας παρέχονται για να χειριστείτε την εργασία.
11.1 Προσθέστε μηδενικά στα κελιά με τη λειτουργία Μορφοποίηση κελιών
Μπορείτε να χρησιμοποιήσετε το κύτταρα μορφή λειτουργία για να ορίσετε μια προσαρμοσμένη μορφή για να διορθώσετε το μήκος του κελιού προσθέτοντας μηδενικά.
1. Επιλέξτε τα κελιά που θέλετε να προσθέσετε αρχικά μηδενικά και, στη συνέχεια, πατήστε Ctrl + 1 πλήκτρα για ενεργοποίηση κύτταρα μορφή διαλόγου.
2. Στο κύτταρα μορφή διαλόγου, κάτω από το αριθμός καρτέλα, επιλέξτε Εξατομικευμένο από το κατηγορία τμήμα.
3. Στη συνέχεια στα δεξιά Χαρακτηριστικά ενότητα, τύπος 0000 στο πλαίσιο κειμένου (για να καθορίσετε το μήκος του αριθμού σε 4-dight, πληκτρολογήστε 0000, μπορείτε να το αλλάξετε σε άλλο μήκος, όπως 5-dight, πληκτρολογήστε 00000), κάντε κλικ OK.
Στη συνέχεια, οι αριθμοί έχουν προστεθεί αρχικά μηδενικά και στο ίδιο μήκος.
| Προσοχή: εάν το μήκος των αρχικών δεδομένων υπερβαίνει το καθορισμένο μήκος, θα εμφανιστούν τα αρχικά δεδομένα χωρίς μηδενικά. |
11.2 Προσθέστε αρχικά μηδενικά σε κελιά με τύπο
Εάν δεν θέλετε να αλλάξετε τα αρχικά δεδομένα, μπορείτε να χρησιμοποιήσετε τον τύπο για να προσθέσετε μηδενικά αρχικά σε αριθμούς σε άλλες τοποθεσίες.
Ακολουθούν τρεις λειτουργίες που μπορούν να σας βοηθήσουν.
Συνάρτηση Formula1 TEXT
ΚΕΙΜΕΝΟ (αριθμός "00...")
Λειτουργία Formula2 RIGHT
ΔΕΞΙΑ ("00..."&αριθμός, μήκος)
Λειτουργία Formula3 BASE
ΒΑΣΗ (αριθμός, 10, μήκος)
Ο αριθμός των μηδενικών στον τύπο είναι ίσος με το μήκος του αριθμού.
Εδώ ορίζετε 4-ψήφιο ως το μήκος των αριθμών, χρησιμοποιήστε τους τύπους όπως παρακάτω:
= ΚΕΙΜΕΝΟ (B10, "0000")
=RIGHT("0000"&B10,4)
=BASE(B10,10,4)
Τύπος εισάγετε πληκτρολογήστε και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω.
| Προσοχή: εάν το μήκος των αρχικών δεδομένων υπερβαίνει το καθορισμένο μήκος, θα εμφανιστούν τα αρχικά δεδομένα χωρίς μηδενικά. |
Εάν θέλετε να προσθέσετε τελικά μηδενικά σε αριθμούς για τη δημιουργία σταθερού μήκους, υποθέτοντας ότι προσθέσατε μηδενικά στο τέλος του κελιού B3:B7 για να τα κάνετε σε μήκος 5 ψηφίων όπως φαίνεται παρακάτω, μπορείτε να εφαρμόσετε έναν τύπο για να αντιμετωπίσετε την εργασία .
Λειτουργία REPT
αριθμός&REPT("0",length-LEN(αριθμός))
Στον τύπο, το όρισμα "αριθμός" αντιπροσωπεύει τον αριθμό ή μια αναφορά κελιού που θέλετε να προσθέσετε μηδενικά στο τέλος και το όρισμα "μήκος" είναι το σταθερό μήκος που θέλετε.
Χρησιμοποιήστε τον τύπο ως εξής:
=B3&REPT("0",5-LEN(B3))
Τύπος εισάγετε πληκτρολογήστε και σύρετε τη λαβή αυτόματης συμπλήρωσης σε κελιά που χρειάζονται αυτόν τον τύπο.
Εάν θέλετε να εξαγάγετε ή να αντιγράψετε δεδομένα από ένα φύλλο εργασίας σε ένα σημειωματάριο, τα κείμενα ενδέχεται να τοποθετηθούν ακατάστατα, καθώς οι τιμές των κελιών είναι σε διαφορετικά μήκη, για να φαίνονται προσεγμένα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πρέπει να προσθέσετε χώρο στο τέλος.
Για την επίλυση αυτής της εργασίας, η συνάρτηση REPT μπορεί να σας κάνει τη χάρη.
LEFT(κείμενο & REPT(" ",max_length),max_length)
Στον τύπο, το όρισμα "κείμενο" είναι το κείμενο ή η αναφορά κελιού που θέλετε να προσθέσετε χώρο στο τέλος και το όρισμα "max_length" είναι το σταθερό μήκος που θέλετε να δημιουργήσετε τα κείμενα, το οποίο πρέπει να είναι μεγαλύτερο ή ίσο με το μέγιστο μήκος των χρησιμοποιούμενων κειμένων.
Για να προσθέσετε ελεύθερο χώρο στα κείμενα στο κελί B3:C6, χρησιμοποιήστε τον παρακάτω τύπο:
=LEFT(B3 & REPT(" ",10),10)
Τύπος εισάγετε και μετά σύρετε τη λαβή αυτόματης συμπλήρωσης σε όλα τα κελιά που χρειάζονται αυτόν τον τύπο.
Σε αυτήν την περίπτωση, καθώς το μεγαλύτερο από το κείμενο που χρησιμοποιείται είναι 9 χαρακτήρων, χρησιμοποιούμε εδώ 10.
Μερικές φορές, χρειάζεται να προσθέσετε εισαγωγικά ή αγκύλες γύρω από το κείμενο ή αριθμούς στα κελιά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, εκτός από τη μη αυτόματη πληκτρολόγηση μία προς μία. Ακολουθούν δύο μέθοδοι στο Excel που μπορούν να το λύσουν γρήγορα.
14.1 Προσθέστε εισαγωγικά/αγκύλες κατά Μορφοποίηση κελιών
Εάν θέλετε να προσθέσετε εισαγωγικά γύρω από το κείμενο στα αρχικά δεδομένα, η δυνατότητα Μορφοποίηση κελιών στο Excel μπορεί να σας βοηθήσει.
1. Επιλέξτε τα κελιά που θέλετε να προσθέσετε εισαγωγικά, πατήστε Ctrl + 1 πλήκτρα για να ενεργοποιήσετε το κύτταρα μορφή διαλόγου.
2. Στο κύτταρα μορφή διαλόγου, κάτω αριθμός καρτέλα, επιλέξτε Εξατομικευμένο από τη λίστα των κατηγορία, μετά μεταβείτε στη δεξιά ενότητα για να πληκτρολογήσετε "" "@" "" " μέσα στο Χαρακτηριστικά πλαίσιο κειμένου. Κάντε κλικ OK.
Το κείμενο στα επιλεγμένα κελιά έχει προστεθεί με εισαγωγικά.
Εάν θέλετε να προσθέσετε αγκύλες γύρω από το κείμενο, στο πλαίσιο κειμένου Τύπος του διαλόγου Μορφοποίηση κελιών, χρησιμοποιήστε το (@).
14.2 Προσθέστε εισαγωγικά/αγκύλες γύρω από τύπους
Οι τύποι μπορούν επίσης να χρησιμοποιηθούν για την προσθήκη εισαγωγικών σε κείμενο σε άλλα κελιά.
Χρήση & σύνδεσμος
""""&κείμενο&""""
Or
char(34)&text&char(34)
Σε αυτήν την περίπτωση, κείμενο στο κελί B11, χρησιμοποιήστε τους τύπους ως εξής:
=""""&B11&""""
Or
=char(34)&B11&char(34)
Τύπος εισάγετε πληκτρολογήστε και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να γεμίσετε κελιά.
Εάν θέλετε να προσθέσετε αγκύλες γύρω από το κείμενο, χρησιμοποιώντας τον τύπο ως "("&κείμενο&")".
14.3 Προσθέστε εισαγωγικά/αγκύλες γύρω από το VBA
Εάν χρειάζεστε κώδικα VBA για να λύσετε αυτήν την εργασία, εδώ είναι ένα VBA.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, στο αναδυόμενο παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα κενή μονάδα.
3. Αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στη νέα μονάδα.
VBA: Προσθέστε εισαγωγικά γύρω από κείμενα
Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub| Προσοχή: στο σενάριο κώδικα, """" & Rng.Value & """" υποδεικνύει την προσθήκη "" γύρω από τα κείμενα, εάν θέλετε να προσθέσετε αγκύλες () γύρω από το κείμενο, αλλάξτε το σε "(" & Rng.Value & ")". |
4. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί στο παράθυρο για να ενεργοποιήσετε τον κωδικό VBA. Εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή κελιών για προσθήκη εισαγωγικών.
5. κλικ OK. Τώρα τα εισαγωγικά έχουν προστεθεί γύρω από τα κείμενα στα επιλεγμένα κελιά.
Μερικές φορές, για να βοηθήσετε άλλους χρήστες να κατανοήσουν καλύτερα τα δεδομένα, μπορεί να χρειαστεί να προσθέσετε κείμενο στα αποτελέσματα του τύπου όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Για να συμπεριλάβετε κείμενο στον τύπο, μπορείτε να χρησιμοποιήσετε τα εισαγωγικά που περιβάλλουν το κείμενο και να προσθέσετε το σύνδεσμο & για να συνδυάσετε το κείμενο και τον τύπο μαζί.
Περίπτωση 1 προσθέστε κείμενο πριν από τον τύπο
"Σήμερα είναι "&TEXT(TODAY(),"dddd, mmmm dd.")
Περίπτωση 2 προσθήκη κειμένου μετά τύπος
TEXT(NOW(),"ΩΩ:ΜΛ:ΔΔ")&" είναι η τρέχουσα ώρα."
Περίπτωση 3 προσθέστε κείμενα στις δύο πλευρές του τύπου
"Σήμερα πουλήθηκαν "&data&" kg."
Περισσότερα μαθήματα Excel: |
|
Συνδυάστε πολλά βιβλία εργασίας/φύλλα εργασίας σε ένα Διαίρεση κελιών κειμένου, αριθμού και ημερομηνίας (διαχωρισμός σε πολλαπλές στήλες) Συνδυάστε τα περιεχόμενα πολλών κυψελών χωρίς απώλεια δεδομένων στο Excel Συγκρίνετε δύο στήλες για αντιστοιχίσεις και διαφορές στο Excel |
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
