Vai al contenuto principale

Come combinare i contenuti di più celle senza perdere dati in Excel?

Autore: Kelly Ultima modifica: 2020-05-26

Possiamo combinare frequentemente celle e il loro contenuto in Microsoft Excel. Tuttavia, trovi il modo più semplice per combinare il contenuto delle celle? Qui parleremo di come combinare il contenuto delle celle in Excel in modo facile e veloce.

Combina più celle in una cella con codice VBA
Combina più celle in una cella con Kutools per Excel senza perdere dati


Combina più celle in una cella con codice VBA

Il seguente codice VBA può aiutarti a combinare più celle in una cella e puoi applicare il codice con i seguenti passaggi:

1. Clic Costruttori > Visual Basic, un nuovo Microsoft Visual Basic per le applicazioni verrà visualizzata la finestra, fare clic su inserire > Modulie inserisci il codice seguente nel modulo:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Quindi fare clic doc-multiply-calcolo-3 pulsante per eseguire il codice. Viene visualizzata una finestra di dialogo per selezionare un intervallo per lavorare con VBA. Vedi screenshot:

3. Clic Ok, viene visualizzata un'altra finestra di dialogo per specificare il separatore. Vedi screenshot:

doc combina il contenuto delle celle 2

4. Clic Ok, quindi il contenuto della cella nell'intervallo selezionato viene combinato in una cella. Vedi screenshot:

doc combina il contenuto delle celle 3


Combina più celle in una cella con Kutools per Excel senza perdere dati

Se si dispone di Kutools for Excel installato, è possibile combinare il contenuto delle celle di più colonne o righe comodamente senza utilizzare le formule.

1. Seleziona le celle in cui desideri unire i dati. E applica questa utilità facendo clic Kutools > Unisci e dividi > Combina righe, colonne o celle senza perdere dati.

2. Nel Combina colonne o righe finestra di dialogo, specificare le opzioni necessarie. Vedi screenshot:

  • (1.) Seleziona Combina in una singola cella per Per combinare le celle selezionate in base alle seguenti opzioni;
  • (2.) Specificare un separatore per i dati combinati. Puoi separare ogni contenuto con spazio, niente, punto e virgola o testo specifico. E puoi anche visualizzare il contenuto combinato in una nuova riga.

doc combina il contenuto delle celle 5

3. Quindi fare clic OK or APPLICA, tutti i dati in più celle sono stati uniti in un'unica cella. Vedi screenshot:

Nota: questa utility può anche aiutare a combinare le celle delle colonne selezionate. È possibile combinare il nome e il cognome in un'unica cella con il nome completo come mostrato nell'immagine sottostante.

Quindi puoi vedere i nomi e i cognomi combinati e situati nelle celle del nome completo.

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.


Articoli Correlati


Demo: combina / Unisci più celle in una senza perdere dati

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

Descrizione


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!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations