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

Πώς να συνενώσετε τις τιμές των κελιών μέχρι να βρείτε ένα κενό κελί σε μια στήλη;

το έγγραφο συνενώνεται έως το κενό 1

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

Συνδυάστε τις τιμές των κελιών έως ότου βρείτε ένα κενό κελί σε μια στήλη με κώδικα VBA

Συνδυάστε τις τιμές των κελιών έως ότου βρείτε ένα κενό κελί σε μια στήλη με Kutools για Excel


βέλος μπλε δεξιά φούσκα Συνδυάστε τις τιμές των κελιών έως ότου βρείτε ένα κενό κελί σε μια στήλη με κώδικα VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: συνενώστε τις τιμές κελιών έως ότου βρείτε ένα κενό κελί

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

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

το έγγραφο συνενώνεται έως το κενό 10

4. Στη συνέχεια κάντε κλικ στο κουμπί OK, και εμφανίζεται ένα άλλο πλαίσιο προτροπής, επιλέξτε ένα κελί για έξοδο του συνδυασμένου αποτελέσματος, δείτε το στιγμιότυπο οθόνης:

το έγγραφο συνενώνεται έως το κενό 11

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και τα δεδομένα της λίστας στηλών συνδυάζονται μεταξύ των κενών, δείτε το στιγμιότυπο οθόνης:

το έγγραφο συνενώνεται έως το κενό 1


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

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

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

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

1. Επιλέξτε τα κελιά που θέλετε να συνενώσετε και κάντε κλικ στο Kutools > Σειρά > Μετασχηματισμός εύρους, δείτε το στιγμιότυπο οθόνης:

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

το έγγραφο συνενώνεται έως το κενό 3

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

το έγγραφο συνενώνεται έως το κενό 4

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

το έγγραφο συνενώνεται έως το κενό 5

5. Τα δεδομένα μετατροπής βρίσκονται σε πολλές στήλες, οπότε πρέπει να τα συνδυάσετε σε μία στήλη, επιλέξτε το εύρος δεδομένων και κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων, δείτε το στιγμιότυπο οθόνης:

6. Στην Συνδυάστε στήλες ή σειρές πλαίσιο διαλόγου, κάντε τις ακόλουθες επιλογές:

(1.) Επιλέξτε Συνδυάστε στήλες Επιλογή από το Για να συνδυάσετε επιλεγμένα κελιά σύμφωνα με τις ακόλουθες επιλογές;

(2.) Στη συνέχεια, καθορίστε ένα διαχωριστικό που θέλετε να διαχωρίσετε τις συνδυασμένες τιμές.

(3.) Επιλέξτε πώς θέλετε να αντιμετωπίσετε τα συνδυασμένα κελιά. Μπορείτε να διατηρήσετε ή να διαγράψετε τα αρχικά δεδομένα και μπορείτε επίσης να συγχωνεύσετε τα συνδυασμένα κελιά. Δείτε το στιγμιότυπο οθόνης:

το έγγραφο συνενώνεται έως το κενό 7

7. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο Ok or Εφαρμογή κουμπί, τα κελιά έχουν συνενωθεί σε μια στήλη με ένα συγκεκριμένο διαχωριστικό, δείτε το στιγμιότυπο οθόνης:

το έγγραφο συνενώνεται έως το κενό 8

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (7)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα το κάνατε αν θέλετε να το βασίσετε σε μια άλλη στήλη; Έχω παρόμοια δεδομένα, αλλά η στήλη Β είναι ένας αριθμός και στη συνέχεια οι νότες (όπως ο καρπός σας) στη στήλη I, θέλω να συνδυάσω όλες τις νότες στη στήλη I έως ότου υπάρχει ένα άλλο κελί στη στήλη Β που έχει μόνο αριθμό. Μερικές φορές υπάρχουν γράμματα κάτω από το Β ή τα κελιά είναι κενά, γι' αυτό πρέπει να συνδυάζεται μέχρι έναν αριθμό. Στη συνέχεια, μπορεί τελικά να επιστρέψει στο σημείο όπου ξεκίνησε το συνδυασμό; Δηλαδή όλες οι σημειώσεις για τον πρώτο αριθμό βρίσκονται στη στήλη j, αλλά αν ο επόμενος αριθμός είναι 5 σειρές κάτω από αυτό είναι εντάξει, απλώς πηγαίνει στη στήλη j, αλλά βρέθηκε ο ίδιος αριθμός σειράς με τον αριθμό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δείχνει ότι υπάρχει ένα συντακτικό σφάλμα στη γραμμή 3 "Dim xRg As Range" όταν προσπαθώ να εκτελέσω αυτήν την ενότητα με βάση τη μέθοδο 1, τι πρέπει να κάνω για αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, JJ, Ο κώδικας λειτουργεί καλά στο φύλλο εργασίας μου, ποια έκδοση Excel χρησιμοποιείτε; Ή μπορείτε να εισαγάγετε μια εικόνα του προβλήματος σας εδώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπράβο αδερφέ πολύ χρήσιμο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Παρακαλώ. Χαίρομαι που βοηθάει. Οποιεσδήποτε ερωτήσεις, μη διστάσετε να επικοινωνήσετε μαζί μας. Να έχεις μια υπέροχη μέρα.
Με αγάπη,
Mandy
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Μετά την αλλαγή των τιμών (π.χ. καρπούζι αντί για μήλο) γιατί η φόρμουλα δεν λειτουργεί;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Κριστίνα

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

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

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