Cum se concatenează valorile celulelor până când se găsește o celulă goală într-o coloană în Excel?

De exemplu, am o listă de valori, care include câteva celule goale și vreau să concatenez fiecare set de date între spații libere într-o celulă și să listez valorile combinate într-o altă coloană, așa cum se arată în următoarea captură de ecran. Cum aș putea concatena celule până când se găsește o celulă goală într-o coloană?

Concatenați valorile celulelor până când o celulă goală este găsită într-o coloană cu cod VBA

Concatenați valorile celulelor până când o celulă goală este găsită într-o coloană cu Kutools pentru Excel

Concatenați valorile celulelor până când o celulă goală este găsită într-o coloană cu cod VBA

Nu există o modalitate directă de a concatena un set de celule între spații libere, dar puteți aplica următorul cod VBA pentru a face față acestuia. Vă rugăm să faceți următoarele:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: concatenează valorile celulelor până când este găsită o celulă goală

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. Apoi apăsați F5 pentru a rula acest cod și o casetă de solicitare este afișată pentru a vă reaminti să selectați intervalul de date pe care doriți să îl concatenați, vedeți captura de ecran:

4. Apoi apasa OKși apare o altă casetă de solicitare, selectați o celulă pentru a afișa rezultatul concatenat, vedeți captura de ecran:

5. Apoi faceți clic pe OK butonul, iar datele listei de coloane sunt concatenate între spații libere, a se vedea captura de ecran:

Concatenați valorile celulelor până când o celulă goală este găsită într-o coloană cu Kutools pentru Excel

Dacă aveţi Kutools pentru Excel, combinând Gama de transformare si Combina funcții, puteți finaliza acest lucru cât mai curând posibil. Gama de transformare utilitarul vă poate ajuta să convertiți singura coloană într-un interval și fișierul Combina funcția vă poate ajuta să concatenați intervalul transformat într-o coloană.

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Selectați celulele pe care doriți să le concatenați și faceți clic pe Kutools > Gamă > Gama de transformare, vezi captura de ecran:

2. În Gama de transformare casetă de dialog, bifați O singură coloană pentru a varia opțiune în cadrul Tipul transformării, Și apoi selectați Celula goală delimitează înregistrările în temeiul Rânduri pe înregistrare, vezi captura de ecran:

3. Apoi faceți clic pe Okși va apărea o casetă de prompt pentru a vă reaminti să selectați o celulă pentru a obține rezultatul, vedeți captura de ecran:

4. Clic OK, iar datele coloanei unice au fost convertite în mai multe rânduri și coloane de celula goală, consultați captura de ecran:

5. Datele convertite se află în mai multe coloane, deci trebuie să le combinați într-o singură coloană, selectați intervalul de date și faceți clic Kutools > Merge & Split > Combinați rânduri, coloane sau celule fără a pierde date, vezi captura de ecran:

6. În Combinați coloane sau rânduri caseta de dialog, efectuați următoarele opțiuni:

(1.) Selectați Combinați coloane opțiune de la Pentru a combina celulele selectate conform următoarelor opțiuni;

(2.) Specificați apoi un separator pe care doriți să îl separați valorile concatenate;

(3.) Selectați modul în care doriți să tratați celulele combinate. Puteți păstra sau șterge datele originale și, de asemenea, puteți îmbina celulele combinate. Vedeți captura de ecran:

7. După terminarea setărilor, faceți clic pe Ok or Aplică butonul, celulele au fost concatenate într-o singură coloană cu un separator specific, a se vedea captura de ecran: