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

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

Συνδέστε τις τιμές κελιών μέχρι να βρεθεί ένα κενό κελί σε μια στήλη με κωδικό 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 select 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 Excel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please select 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 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος δεδομένων που θέλετε να συνενώσετε, δείτε το στιγμιότυπο οθόνης:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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