Come concatenare i valori delle celle fino a quando non trova una cella vuota in una colonna?
Ad esempio, ho un elenco di valori che include alcune celle vuote e ora voglio concatenare ogni set di dati tra spazi vuoti in una cella ed elencare i valori combinati in un'altra colonna come mostrato nella seguente schermata. Come posso concatenare le celle fino a trovare una cella vuota in una colonna?
Concatena i valori delle celle fino a quando non trova una cella vuota in una colonna con codice VBA
Concatena i valori delle celle finché non trova una cella vuota in una colonna con Kutools per Excel
Concatena i valori delle celle fino a quando non trova una cella vuota in una colonna con codice VBA
Non esiste un modo diretto per concatenare un insieme di celle tra spazi vuoti, ma puoi applicare il seguente codice VBA per gestirlo. Si prega di fare quanto segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: concatena i valori delle celle fino a quando non trova una cella vuota
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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri concatenare, vedi screenshot:
4. Quindi fare clic OKe viene visualizzata un'altra finestra di messaggio, selezionare una cella per visualizzare il risultato concatenato, vedere screenshot:
5. Quindi fare clic su OK pulsante, ei dati dell'elenco di colonne sono concatenati tra gli spazi vuoti, vedi screenshot:
Concatena i valori delle celle finché non trova una cella vuota in una colonna con Kutools per Excel
Se si dispone di Kutools for Excel, combinando il suo Trasforma intervallo ed Combinare caratteristiche, puoi anche finire questo lavoro il prima possibile. Il Trasforma intervallo l'utilità può aiutarti a convertire la singola colonna in un intervallo e il file Combinare può aiutarti a concatenare l'intervallo trasformato in una colonna.
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come segue:
1. Seleziona le celle che desideri concatenare e fai clic su Kutools > Escursione > Trasforma intervallo, vedi screenshot:
2. Nel Trasforma intervallo finestra di dialogo, controllare Singola colonna nell'intervallo opzione sotto il Tipo di trasformazione, Quindi selezionare La cella vuota delimita i record sotto il Righe per record, vedi screenshot:
3. Quindi fare clic su Oke verrà visualizzata una finestra di messaggio per ricordarti di selezionare una cella per visualizzare il risultato, vedi screenshot:
4. Clic OKe i dati di una singola colonna sono stati convertiti in più righe e colonne dalla cella vuota, vedi screenshot:
5. I dati convertiti sono in più colonne, quindi è necessario combinarli in una colonna, selezionare l'intervallo di dati e fare clic Kutools > Unisci e dividi > Combina righe, colonne o celle senza perdere dati, vedi screenshot:
6. Nel Combina colonne o righe finestra di dialogo, eseguire le seguenti opzioni:
(1.) Seleziona Combina colonne opzione dal Per combinare le celle selezionate in base alle seguenti opzioni;
(2.) Quindi specificare un separatore che si desidera separare i valori concatenati;
(3.) Seleziona come vuoi gestire le celle combinate. Puoi mantenere o eliminare i dati originali e puoi anche unire le celle combinate. Vedi screenshot:
7. Dopo aver terminato le impostazioni, fare clic su Ok or APPLICA pulsante, le celle sono state concatenate in una colonna con un separatore specifico, vedi screenshot:
Scarica e prova gratuitamente Kutools per Excel ora!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
