In questo tutorial, esamineremo i diversi modi in cui puoi unire le celle usando VBA.
Unisci celle usando VBA
Puoi unire le celle in VBA usando il metodo Range.Merge. Il seguente codice unirà le celle A1: C1:
12345 | Sub MergingCells()Intervallo ("A1: C1"). UnisciFine sottotitolo |
Il risultato è:
Dividi le celle usando VBA
Puoi separare un intervallo di celle unito utilizzando il metodo Range.UnMerge. Supponiamo che tu abbia unito l'intervallo di celle A1: D1. È possibile utilizzare uno dei riferimenti di cella nell'intervallo per separare le celle. Il codice seguente mostra come dividere le celle A1: D1, in questo caso stiamo usando la cella B1:
12345 | Sub UnmergeCells()Intervallo ("B1"). UnMergeFine sottotitolo |
Altri esempi di unione
Unisci le righe usando VBA
È possibile unire le righe utilizzando VBA specificando i numeri di riga che si desidera unire. Abbiamo il testo nella cella A1 mostrato di seguito:
Il seguente codice unirà le righe 1-4:
12345 | Righe di unione secondarie()Intervallo ("1:4"). UnisciFine sottotitolo |
Il risultato è:
Unisci colonne usando VBA
Puoi unire le colonne usando VBA e le lettere delle colonne. Il codice seguente unirà le colonne A:C.
12345 | Sotto colonne unione()Intervallo ("A: C"). UnisciFine sottotitolo |
Il risultato è:
Unisci e centra il contenuto della cella orizzontalmente
Puoi unire e centrare il contenuto delle celle orizzontalmente in un intervallo di celle. Devi unire le celle di interesse e anche impostare la proprietà di allineamento orizzontale dell'oggetto intervallo al centro. Abbiamo il testo nella cella A1 come mostrato di seguito:
Il codice seguente unirà l'intervallo di celle A1: D1 e centrerà il contenuto della cella A1 orizzontalmente su questo intervallo di celle:
123456 | Sub MergeandCenterContentsOrizzontalmente()Intervallo ("A1: D1"). UnisciIntervallo ("A1: D1"). Allineamento Orizzontale = xlCentroFine sottotitolo |
Il risultato è:
Unisci e centra il contenuto della cella verticalmente
Puoi unire e centrare il contenuto delle celle verticalmente in un intervallo di celle. Devi unire le celle di interesse e anche impostare la proprietà di allineamento verticale dell'oggetto intervallo al centro. Abbiamo il testo nella cella A1 come mostrato di seguito:
Il seguente codice unirà l'intervallo di celle A1: A4 e centra il contenuto della cella A1 verticalmente su questo intervallo di celle:
123456 | Sub MergeandCenterContentsVerticalmente()Intervallo ("A1: A4"). UnisciIntervallo("A1:D1").VerticalAlignment = xlCenterFine sottotitolo |
Il risultato è:
Unisci celle in un intervallo di celle
Puoi unire le celle in un intervallo di celle. Devi impostare il parametro opzionale Across del metodo Merge su True. Abbiamo il testo nella cella A1 come mostrato di seguito:
Il seguente codice unirà l'intervallo di celle A1: D1:
12345 | Sub MergeCellsAcross()Intervallo ("A1: D1"). Unisci tra: = VeroFine sottotitolo |
Il risultato è: