Come adattare automaticamente l’altezza delle righe unite in Excel?
In Excel, regolare rapidamente e con precisione l’Altezza riga è fondamentale per presentare i dati in modo chiaro. Di norma, puoi usare la funzione Adatta all’area Altezza rigaper ridimensionare automaticamente l’altezza di una riga in base al contenuto delle celle. Tuttavia, quando lavori con celle unite, potresti notare che questa funzione non funziona come previsto: Excel ignora completamente le celle unite, impedendoti di adattare automaticamente l’altezza della riga.Altezza rigaal loro contenuto. Di conseguenza, devi regolare manualmente l’Altezza rigaper ogni cella unita, assicurandoti che tutto il testo sia perfettamente visibile: un’operazione noiosa e soggetta a errori, soprattutto se devi gestire numerose celle unite.
Questo articolo presenta diversi metodi pratici per adattare automaticamente Altezza riga di Unito in modo efficace, risparmiando tempo e mantenendo un foglio di lavoro ordinato e leggibile:
Adatta automaticamente Altezza riga di Unito con codice VBA
Usa A capo automatico e regolazione manuale
Adatta automaticamente Altezza riga di Unito con codice VBA
Supponiamo che il tuo foglio di lavoro contenga diverse Unito con quantità variabili di contenuto, come mostrato nell’immagine seguente. Se desideri che tutti i dati siano completamente visibili senza dover regolare manualmente ogni riga, puoi utilizzare una soluzione basata su codice VBA per adattare automaticamente Altezza riga al contenuto di ciascuna cella unita contemporaneamente. Questo metodo è particolarmente utile quando hai molte aree unite nel foglio o quando il contenuto delle celle unite viene aggiornato frequentemente e desideri semplificare il processo di regolazione.
Prima di eseguire qualsiasi codice VBA, ricorda di salvare la cartella di lavoro come file abilitato alle macro per evitare la perdita di lavoro non salvato. VBA è un metodo sicuro fornito da Excel, ma assicurati che le macro siano abilitate e che le impostazioni di sicurezza del tuo sistema consentano l’esecuzione delle macro.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Fai clic su Inserisci > Modulo, quindi copia e incolla il codice seguente nella finestra del modulo:
Codice VBA: Adatta automaticamente Altezza riga di più UnitoOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Note:
(1.) Se devi regolare ulteriori aree unite, copia semplicemente la riga Call AutoFitMergedCells(Range("a1:b2")) tante volte quante necessario e aggiorna l’indirizzo per ogni area unita che desideri adattare automaticamente.
(2.) Ricorda di sostituire Foglio4 nello script con il nome del foglio di lavoro in cui si trovano i tuoi dati. Se non conosci il nome del tuo foglio di lavoro, controlla le schede in fondo alla finestra di Excel.
(3.) Quando esegui una macro, assicurati che nessuna cella contenente dati critici o sensibili venga inclusa involontariamente nella selezione dell’intervallo, per evitare modifiche impreviste alla formattazione.
3. Premi F5 per eseguire questo codice. Al termine dell’esecuzione, tutte le unità specificate regoleranno automaticamente l’altezza delle righe per visualizzare completamente il contenuto delle celle, come illustrato di seguito:
Questa soluzione VBA offre un metodo comodo e automatizzato per gestire le dimensioni delle celle unite. Tuttavia, richiede l’accesso alla scheda Sviluppo e l’autorizzazione all’uso delle macro: tienilo presente se collabori in ambienti in cui le macro sono disabilitate o limitate.
Usa A capo automatico e regolazione manuale
In molti scenari, puoi combinare la funzione A capo automatico con una rapida regolazione manuale di Altezza riga per garantire che tutto il contenuto sia chiaramente visibile, senza dover ricorrere a VBA o strumenti complessi.
Passo 1: Attiva A capo automatico
- Seleziona le celle unite che desideri formattare.
- Vai alla scheda Home e fai clic su A capo automatico nel gruppo Allineamento.
In questo modo, il contenuto andrà automaticamente a capo su una nuova riga all’interno dell’area unita.
Passo 2: Controlla la visualizzazione e regola manualmente Altezza riga se necessario
Se il testo non è molto lungo, potrebbe ora adattarsi perfettamente all’interno della cella unita.
Se il contenuto è più lungo e non è ancora completamente visibile, trascina manualmente il bordo della riga sotto la cella unita per aumentare Altezza riga finché non viene visualizzato tutto il contenuto.
Articolo correlato:
Come adattare automaticamente Larghezza colonna in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi