Como posso obter uma célula no Excel para ajustar automaticamente sua altura para ajustar o conteúdo do texto com quebra automática? [duplicado]

Question

Eu tenho uma célula com conteúdo de texto encapsulado no Excel e quero formatar a célula para que sua altura seja ajustada para caber no conteúdo que pode abranger várias linhas. Como posso conseguir esse comportamento?

    

Answer 1

Do link

Para ajustar a altura da linha para caber todo o texto em uma célula, siga estas etapas:

Selecione a linha.

In Microsoft Office Excel 2003 and in earlier versions of Excel, point to Row on the Format menu, and then click AutoFit.

In Microsoft Office Excel 2007, click the Home tab, click Format in the Cells group, and then click AutoFit Row Height.

Também funciona quando todas as linhas são selecionadas

    

Answer 2

Tente

Select the column -> right-click column -> Format Cells -> Alignment tab -> Wrap text

    

Answer 3

Observe que o ajuste automático não funciona em células mescladas. Você tem que fazer isso manualmente.

Veja esta resposta da Microsoft:

Você não pode usar o recurso AutoAjuste para linhas ou colunas que contenham células mescladas no Excel

    

Answer 4

Se não fizer isso automaticamente, coloque o cursor sobre a pequena linha entre os números de linha (ex: entre 1 e 2) e clique duas vezes, isso redimensionará a linha (diretamente acima da linha pequena, no exemplo : 1) para que tudo seja visível (de um aspecto vertical).

    

Answer 5

Você conhece macro? Coloque o seguinte código em

Application.ActiveCell.WrapText = True

dentro da sua sub-rotina Worksheet_SelectionChange.

    

Answer 6

Uma solução VBA é usar o seguinte:

 Call Application.ActiveCell.AutoFit

    

Answer 7

A única maneira de fazer isso funcionar como esperado é destacar toda a planilha com CTRL-A, desmarcar o botão "Quebrar texto" na barra de ferramentas e, em seguida, selecioná-lo novamente. Nenhuma outra configuração é alterada, mas cada linha é agora a altura "adequada" para seu conteúdo.

    

Answer 8

Eu criei o seguinte código VB para redimensionar a linha de cabeçalho quando uma célula dentro de um intervalo (B2: B1500) porque os valores de data acima de 12/28/2014 faria com que o cabeçalho mostrasse um aviso de que essas datas, em um quadro de horários, entraria na Semana 1 de 2015:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub