Come "Ridimensionare automaticamente tutte le righe per adattarle ai dati" se il testo nella cella contiene più righe?

Question

Ho seguito la procedura ma non funziona

1. Selezionare il pulsante Seleziona tutto  nella parte superiore del foglio di lavoro per selezionare tutte le colonne e le righe.
2. Fare doppio clic su un bordo.

Vedi sotto (immagine esempio 1),
Notare che le celle F4 F5 F6 sono unite e la risulltante cella unione F4+5+6 contiene un testo su più righe.
Ho fatto click in alto a sinistra "Seleziona tutto"
Ora faccio "doppio click sul bordo" a sinistra tra la riga 1 e la riga 2.
Mi aspetto che Tutte le righe vengono ridimensionate per adattarle ai dati.
INVECE NON è VERO. La cella unita F4 (F4+5+6) visualizza solo una parte del testo. Vedi sotto (immagine esempio 2).

Come posso fare per adattare automaticamente l'altezza della riga per rendere visibile tutto il testo contenuto nella cella unita F4 ?

https://learn-attachment.microsoft.com/api/attachments/6c905413-bcad-4ff6-a738-b29a9a47e57d?platform=QnA"https://learn-attachment.microsoft.com/api/attachments/6c905413-bcad-4ff6-a738-b29a9a47e57d?platform=QnA" title="filestore.community.support.microsoft.com" rel="ugc nofollow">

ESEMPIO 2.

Uso Windows 10 e OFFICE 2024 Professional Plus.

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao, zeroGianni

Grazie per aver utilizzato i prodotti Microsoft e per averli pubblicati nella community.

Non esiste una funzione simile per le celle unite; è possibile fare clic sulle singole celle, ad esempio facendo doppio clic sulle righe, ma questo non funziona per le celle unite.

Esistono due opzioni: una è quella di selezionare le celle unite e poi, nell'allineamento, scegliere l'avanzamento automatico delle righe, ma questo non soddisfa necessariamente le vostre esigenze.

La seconda è un codice VBA che si adatta il più possibile all'altezza delle righe, con l'effetto mostrato di seguito:

Tieni premuto Alt+F11 per aprire l'editor VBA.

Fai doppio clic sulla cartella di lavoro e inserisci il codice nella finestra che si apre.

Chiudi tutte le finestre.

Tieni premuto ALT+F8 per aprire il riquadro Esegui, quindi seleziona AutoFitMergedCellRowHeight e fai clic su Esegui

Codice:

Sub AutoFitMergedCellRowHeight() 

    Dim CurrentRowHeight As Single 
    Dim MergedCellRgWidth As Single 
    Dim CurrCell As Range 
    Dim ActiveCellWidth As Single 
    Dim PossNewRowHeight As Single 
    Dim StartCell As Range 
    Dim i As Integer 

    On Error Resume Next 
    ' Set the range to be the used range of the active sheet 
    Set StartCell = ActiveSheet.UsedRange 

    ' Loop through each cell in the range 
    For Each CurrCell In StartCell 
        If CurrCell.MergeCells Then 
            Application.ScreenUpdating = False 
            With CurrCell.MergeArea 
                .WrapText = True 
                ' Store the current row height 
                CurrentRowHeight = .Rows(1).RowHeight 

                ' Calculate the width of the merged cell range 

                MergedCellRgWidth = 0 

                For i = 1 To .Columns.Count 
                    MergedCellRgWidth = MergedCellRgWidth + .Columns(i).ColumnWidth 

                Next i 

                ' Store the active cell width 
                ActiveCellWidth = CurrCell.ColumnWidth 
                ' Set the column width to the width of the merged cell range 
                CurrCell.ColumnWidth = MergedCellRgWidth 
                ' Autofit the row height 
                .Rows.AutoFit 
                ' Store the new row height 

                PossNewRowHeight = .Rows(1).RowHeight 

                ' Reset the column width 

                CurrCell.ColumnWidth = ActiveCellWidth 

                ' Set the row height to the larger of the current and new row heights 

                If CurrentRowHeight > PossNewRowHeight Then 
                    .RowHeight = CurrentRowHeight 
                Else 
                    .RowHeight = PossNewRowHeight 
                End If 
            End With 
            Application.ScreenUpdating = True 
        End If 
    Next 
End Sub

Spero che le informazioni di cui sopra possano aiutarti. Sentiti libero di inviare un messaggio se hai bisogno di ulteriore aiuto.

I miei migliori auguri

Aiden.C - MSFT |Specialista del supporto della community Microsoft

Answer 2

Ci sono celle con righe unite.

L'adattamento dell'altezza delle righe non funziona in questo caso e la procedura imposterà sempre l'altezza minima in automatico.