Note: The other languages of the website are Google-translated. Back to English

Come concatenare i valori delle celle fino a quando non trova una cella vuota in una colonna?

doc concatenare fino a vuoto 1

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 fino a quando non trova una cella vuota in una colonna con Kutools per Excel


freccia blu freccia destra 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 > Moduloe 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:

doc concatenare fino a vuoto 10

4. Quindi fare clic OKe viene visualizzata un'altra finestra di messaggio, selezionare una cella per visualizzare il risultato concatenato, vedere screenshot:

doc concatenare fino a vuoto 11

5. Quindi fare clic su OK pulsante, ei dati dell'elenco di colonne sono concatenati tra gli spazi vuoti, vedi screenshot:

doc concatenare fino a vuoto 1


freccia blu freccia destra Concatena i valori delle celle fino a quando non trova una cella vuota in una colonna con Kutools per Excel

Se si dispone di Kutools for Excel, combinando il suo Trasforma intervallo e 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 > Autonomia > 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:

doc concatenare fino a vuoto 3

3. Quindi fare clic su Oke verrà visualizzata una finestra di messaggio per ricordarti di selezionare una cella per visualizzare il risultato, vedi screenshot:

doc concatenare fino a vuoto 4

4. Clic OKe i dati di una singola colonna sono stati convertiti in più righe e colonne dalla cella vuota, vedi screenshot:

doc concatenare fino a vuoto 5

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:

doc concatenare fino a vuoto 7

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:

doc concatenare fino a vuoto 8

Scarica e prova gratuitamente Kutools per Excel ora!


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Commenti (7)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Come lo faresti se volessi basarlo su un'altra colonna? Ho dati simili, ma la colonna B è un numero, quindi note (come il tuo frutto) nella colonna I, voglio combinare tutte le note nella colonna I finché non c'è un'altra cella nella colonna B che ha solo un numero. A volte ci sono lettere sotto la B o le celle sono vuote, motivo per cui è necessario combinare fino a ottenere un numero. Quindi, finalmente, può tornare al punto in cui ha avviato la mietitrebbia? IE tutte le note per il primo numero sono nella colonna j, ma se il numero successivo è 5 righe sotto va bene, va semplicemente nella colonna j ma viene trovato lo stesso numero di riga del numero?
Questo commento è stato fatto dal moderatore sul sito
Mostra che c'è un errore di sintassi sulla riga 3 "Dim xRg As Range" quando provo a eseguire questo modulo basato sul metodo 1, cosa devo fare al riguardo?
Questo commento è stato fatto dal moderatore sul sito
Ciao, JJ, il codice funziona bene nel mio foglio di lavoro, quale versione di Excel usi? Oppure puoi inserire una schermata del tuo problema qui.
Questo commento è stato fatto dal moderatore sul sito
ottimo lavoro fratello, molto utile
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Prego. Felice che aiuti. Per tutte le domande, sentitevi liberi di contattarci. Vi auguro una buona giornata.
Cordiali saluti,
Mandy
Questo commento è stato fatto dal moderatore sul sito
Ciao! Dopo aver modificato i valori (es. anguria invece di mela) perché la formula non funziona?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Cristina

Il nostro articolo fornisce il codice VBA, non fornisce una formula. Se modifichi il contenuto della cella, devi eseguire nuovamente il codice per ottenere il risultato corretto.
.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL