Πώς να συγχωνεύσετε κάθε άλλη σειρά / κελί στο Excel;
Εάν έχετε μια λίστα δεδομένων και θέλετε να συνδυάσετε κάθε άλλη σειρά ή κελί τους όπως φαίνεται παρακάτω, ξέρετε πώς να το κάνετε; Στο Excel, μπορείτε να χρησιμοποιήσετε τον τύπο ή το VBA για να συγχωνεύσετε κάθε άλλη σειρά ή κελιά.
Συγχώνευση κάθε άλλης σειράς / κελιού με τύπο στο Excel
Συγχωνεύστε κάθε άλλη σειρά / κελί με VBA
- Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
- Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
- Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
- Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
- Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
- Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
- Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2021 και το 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.
Συγχώνευση κάθε άλλης σειράς / κελιού με τύπο στο Excel
Επιλέξτε ένα κενό κελί και πληκτρολογήστε =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Ένα $ 1 υποδεικνύει τα πρώτα δεδομένα στη λίστα σας, μπορείτε να τα αλλάξετε όπως χρειάζεστε) και πατήστε το πλήκτρο Enter. Στη συνέχεια, σύρετε τη λαβή πλήρωσης για να συμπληρώσετε το εύρος που χρειάζεστε για να εφαρμόσετε αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
Συγχωνεύστε κάθε άλλη σειρά / κελί με VBA
Εάν έχετε συνηθίσει να χρησιμοποιείτε το VBA, μπορείτε επίσης να εκτελέσετε το παρακάτω VBA για να συγχωνεύσετε κάθε άλλη σειρά.
1. Κρατήστε ALT πατήστε το κουμπί F11 στο πληκτρολόγιο για να ανοίξετε ένα Microsoft Visual Basic για εφαρμογή παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε το VBA στη λειτουργική μονάδα.
VBA: Συγχώνευση κάθε άλλης σειράς / κελιού
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. κλικ τρέξιμο για να εκτελέσετε τον κώδικα VBA, και a KutoolsforExcel εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος κελιών που θέλετε να συγχωνεύσετε κάθε άλλη σειρά. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, εμφανίζεται ένα άλλο παράθυρο διαλόγου για να επιλέξετε ένα μόνο κελί για να διαγράψετε το συγχωνευμένο αποτέλεσμα. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OKκαι μπορείτε να δείτε το αποτέλεσμα:
