Πώς να αφαιρέσετε γρήγορα αλλαγές γραμμής στο Excel;

Μερικές φορές, όταν αντιγράφετε ορισμένα δεδομένα από τον ιστότοπο ή διαχωρίζετε τις τιμές σας με Alt + Enter πλήκτρα, θα λάβετε κάποιες αλλαγές γραμμής ή επιστροφές μεταφοράς, εάν θέλετε να καταργήσετε γρήγορα πολλές αλλαγές γραμμής στο Excel, όπως εμφανίζονται τα παρακάτω στιγμιότυπα οθόνης, μπορείτε να το κάνετε ως εξής:

Καταργήστε πολλές αλλαγές γραμμής με τη λειτουργία Εύρεση και αντικατάστασης

Κατάργηση πολλαπλών αλλαγών γραμμής με κωδικό VBA

Κατάργηση πολλαπλών αλλαγών γραμμής με το Kutools για Excel

Καταργήστε πολλές αλλαγές γραμμής με τη λειτουργία Εύρεση και αντικατάστασης

Μπορείτε να καταργήσετε γρήγορα πολλά διαλείμματα γραμμής με τη λειτουργία Εύρεση και αντικατάστασης στο Excel, επεξεργαστείτε την ως εξής:

1. Επιλέξτε το εύρος που θέλετε να καταργήσετε πολλές αλλαγές γραμμής.

2. Κλίκ Αρχική > Εύρεση και αντικατάσταση > Αντικαταστήστε ή κάντε κλικ Ctrl + F συντομεύσεις και a Εύρεση και αντικατάσταση θα εμφανιστεί το παράθυρο διαλόγου.

3. Στη συνέχεια, στο βρείτε αυτό κουτί, παρακαλώ κρατήστε πατημένο το ALT και μετά κάντε κλικ στους αριθμούς 010 από το αριθμητικό πληκτρολόγιο. ΑΣΕ το Αντικατάσταση με κενό πλαίσιο ή εισαγάγετε μια γραμμή διαστήματος. Δείτε το στιγμιότυπο οθόνης:

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

Κατάργηση πολλαπλών αλλαγών γραμμής με κωδικό VBA

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

1. Κλίκ Εργολάβος > Visual Basic ή πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο, στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κωδικό:

Κωδικός VBA: κατάργηση πολλαπλών αλλαγών γραμμής σε ένα φύλλο εργασίας

Sub RemoveCarriage()
'Update 20131216
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 = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής που θα σας λέει να επιλέξετε ένα εύρος που θέλετε να καταργήσετε τις αλλαγές γραμμής, δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια κάντε κλικ στο κουμπί OK και όλα τα διαλείμματα γραμμής της επιλογής έχουν διαγραφεί.

Κατάργηση πολλαπλών αλλαγών γραμμής με το Kutools για Excel

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

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα

Μετά την εγκατάσταση του Kutools για Excel, κάντε τα εξής βήματα:

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

2. Πατήστε Kutools > Κείμενο > Κατάργηση χαρακτήρων.

3. Στην Κατάργηση χαρακτήρων πλαίσιο διαλόγου, επιλέξτε Μη εκτύπωση και μπορείτε να δείτε το αποτέλεσμα από το Προβολή επίσης, δείτε το στιγμιότυπο οθόνης:

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

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

• Κατάργηση χαρακτήρων άλφα από κελιά
• Καταργήστε μη αριθμητικούς χαρακτήρες από κελιά
• Καταργήστε αριθμητικούς χαρακτήρες από κελιά
• Καταργήστε μη εκτυπώσιμους χαρακτήρες από κελιά
• Καταργήστε χαρακτήρες που δεν είναι άλφα από κελιά