Πώς να αναδιατάξετε κείμενο σε ένα κελί στο Excel;

Ας υποθέσουμε ότι έχετε ένα υπολογιστικό φύλλο με μεγάλα ονόματα λιστών που όλα μορφοποιούνται ως "Επώνυμο Όνομα" και τώρα πρέπει να αναδιατάξετε όλα τα ονόματα σε "Όνομα, Επώνυμο". Πώς να το πετύχετε; Αυτό το άρθρο θα εισαγάγει τρεις μεθόδους που θα σας βοηθήσουν να λύσετε το πρόβλημα.

Αναδιάταξη κειμένου σε κελί με τύπο
Αναδιάταξη κειμένου σε κελί με κωδικό VBA
Αναδιατάξτε γρήγορα κείμενο σε ένα κελί με το Kutools για Excel

Αναδιάταξη κειμένου σε κελί με τύπο

Ο παρακάτω τύπος μπορεί να σας βοηθήσει να αναστρέψετε το επώνυμο και το όνομα σε ένα κελί στο Excel. Κάντε τα εξής:

1. Επιλέξτε ένα κενό κελί για έξοδο του αναδιατυπωμένου κειμένου, εισαγάγετε τον παρακάτω τύπο και, στη συνέχεια, πατήστε το πλήκτρο Enter.

= TRIM (MID (b2, ΑΝΑΖΗΤΗΣΗ ("", b2) +1,250)) & "" & ΑΡΙΣΤΕΡΑ (b2, ΑΝΑΖΗΤΗΣΗ ("", b2) -1)

Σημείωση: στον τύπο, το B2 είναι το κελί που περιέχει το όνομα που θα αναδιατάξετε. Αλλάξτε το ανάλογα με τις ανάγκες σας.

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

Αναδιάταξη κειμένου σε κελί με κωδικό VBA

Εκτός αυτού, μπορείτε να εφαρμόσετε τον παρακάτω κώδικα VBA για να προσθέσετε ταυτόχρονα όλα τα ονόματα σε μια λίστα στο Excel. Κάντε τα εξής:

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κωδικό VAB στο παράθυρο Module.

Κωδικός VBA: Αναδιάταξη κειμένου σε κελί

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Τότε α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε τη λίστα ονομάτων που θέλετε να αναδιατάξετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλα τα "Επώνυμο Όνομα" στην επιλεγμένη λίστα αναστρέφονται αμέσως.

Αναδιατάξτε γρήγορα κείμενο σε ένα κελί με το Kutools για Excel

Αυτή η ενότητα θα εισαγάγει το Αντίστροφη σειρά κειμένου χρησιμότητα του Kutools για Excel για να σας βοηθήσει να αναδιατάξετε το κείμενο σε ένα κελί.

1. Επιλέξτε τη λίστα ονομάτων που θα αναστρέψετε το «Επώνυμο Όνομα», και μετά κάντε κλικ Kutools > Κείμενο > Αντίστροφη σειρά κειμένου. Δείτε το στιγμιότυπο οθόνης:

2. Στο Αντίστροφο κείμενο πλαίσιο διαλόγου, επιλέξτε το Χώρος και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλα τα ονόματα στην επιλεγμένη λίστα αναδιατάσσονται ταυτόχρονα.

Σχετικά άρθρα:

• Πώς να αλλάξετε ή να αντιστρέψετε την ημέρα και τον μήνα της ημερομηνίας στο Excel;
• Πώς να αλλάξετε ή να αλλάξετε κείμενο μέσα σε ένα κελί στο Excel;