Μετάβαση στο κύριο περιεχόμενο

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

το έγγραφο συνενώνεται έως το κενό 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 τώρα!

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am using the VBA code, but instead of putting the data into separate rows, it is putting it all in a single cell. Does anyone have an idea why it is doing this?
This comment was minimized by the moderator on the site
Hi! After changing the values (ex, watermelon instead of apple) why is the formula not working?
This comment was minimized by the moderator on the site
Hello, Cristina

Our article provides VBA code, doesn't provide a formula. If you change the cell content, you must re-run the code again to get the correct result.
Thank you!
This comment was minimized by the moderator on the site
great job bro, Very useful
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
This comment was minimized by the moderator on the site
Hello, JJ, The code works well in my worksheet, which Excel version do you use?Or you can insert a screesnhot of your problem here.
This comment was minimized by the moderator on the site
How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number. Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations