Note: The other languages of the website are Google-translated. Back to English

Πώς να συγχωνεύσετε κάθε άλλη σειρά / κελί στο Excel;

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


Συγχώνευση κάθε άλλης σειράς / κελιού με τύπο στο Excel

Συγχωνεύστε κάθε άλλη σειρά / κελί με VBA

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 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και μπορείτε να δείτε το αποτέλεσμα:



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

Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL