Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come concatenare i valori delle celle fino a trovare una cella vuota in una colonna in Excel?

Author Xiaoyang Last modified
A screenshot showing Excel data with concatenated values between blank cells

Ad esempio, ho un elenco di valori che include alcune celle vuote e voglio concatenare ogni insieme di dati tra le celle vuote in una cella e inserire i valori combinati in un'altra colonna, come mostrato nello screenshot seguente. Come posso concatenare le celle fino a trovare una cella vuota in una colonna?

Concatenare i valori delle celle fino a trovare una cella vuota in una colonna con il codice VBA

Concatenare i valori delle celle fino a trovare una cella vuota in una colonna con Kutools per Excel


arrow blue right bubble Concatenare i valori delle celle fino a trovare una cella vuota in una colonna con il 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. Procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: concatenare i valori delle celle fino a trovare 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 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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo per ricordarti di selezionare l'intervallo di dati che desideri concatenare, vedi screenshot:

A screenshot of a prompt box in VBA asking the user to select the data range to concatenate

4. Quindi clicca OK, e apparirà un'altra finestra di dialogo; seleziona una cella per visualizzare il risultato della concatenazione, vedi screenshot:

A screenshot showing a prompt in VBA to select the output cell for concatenated results

5. Quindi clicca sul pulsante OK, e i dati dell'elenco di colonne verranno concatenati tra gli spazi vuoti, vedi screenshot:

A screenshot showing Excel data with concatenated values between blank cells


arrow blue right bubble Concatenare i valori delle celle fino a trovare una cella vuota in una colonna con Kutools per Excel

Se hai Kutools per Excel, combinando le sue funzioni Trasforma Intervallo e Unisci, puoi anche completare questa operazione il prima possibile. L'utilità Trasforma Intervallo può aiutarti a convertire la singola colonna in un intervallo, e la funzione Unisci può aiutarti a concatenare l'intervallo trasformato in una colonna.

Kutools per Excel offre oltre 300 funzionalità avanzate per semplificare compiti complessi, aumentando creatività ed efficienza. Integrato con capacità di intelligenza artificiale, Kutools automatizza le attività con precisione, rendendo la gestione dei dati senza sforzo. Informazioni dettagliate su Kutools per Excel... Prova gratuita...

Dopo aver installato Kutools per Excel, procedi come segue:

1. Seleziona le celle che desideri concatenare e clicca su Kutools > Intervallo > Trasforma Intervallo, vedi screenshot:

A screenshot of Kutools' Transform Range option in Excel ribbon

2. Nella finestra di dialogo Trasforma Intervallo, seleziona l'opzione Singola Colonna a Intervallo sotto il Tipo di Trasformazione, e poi seleziona Separati da Spazi sotto Righe per record, vedi screenshot:

A screenshot showing the Transform Range dialog box

3. Quindi clicca Ok, e apparirà una finestra di dialogo per ricordarti di selezionare una cella per visualizzare il risultato, vedi screenshot:

A prompt box asking to select a cell for output after transformation

4. Clicca OK, e i dati della colonna singola sono stati convertiti in più righe e colonne tramite la cella vuota, vedi screenshot:

A screenshot of Excel data after transformation using Kutools, with data divided by blank cells

5. I dati convertiti sono in più colonne, quindi devi combinarli in una colonna. Seleziona l'intervallo dati e clicca su Kutools > Unisci e Dividi > Unisci Righe/Colonne/Celle e Mantieni i Valori, vedi screenshot:

A screenshot of Kutools' Combine Rows, Columns or Cells without Losing Data option in Excel ribbon

6. Nella finestra di dialogo Unisci Colonne o Righe, effettua le seguenti scelte:

(1.) Seleziona l'opzione Unisci colonne da Unisci l'intervallo selezionato nel seguente modo;

(2.) Quindi specifica un separatore che desideri utilizzare per separare i valori concatenati;

(3.) Scegli come vuoi gestire le celle combinate. Puoi mantenere o eliminare i dati originali, e puoi anche unire le celle combinate. Vedi screenshot:

A screenshot of the Combine Columns or Rows dialog box

7. Dopo aver terminato le impostazioni, clicca su Ok o Applica, le celle sono state concatenate in una colonna con un separatore specifico, vedi screenshot:

A screenshot showing concatenated data in Excel after using Kutools

Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e crea grafici | Attiva Funzioni avanzate
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
  • Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in