Como posso obter uma célula no Excel para ajustar automaticamente sua altura para ajustar o conteúdo do texto agrupado? [duplicado]

23

Eu tenho uma célula com conteúdo de texto agrupado no Excel e quero formatar a célula para que sua altura se ajuste ao tamanho do conteúdo que pode se estender por várias linhas. Como posso conseguir esse comportamento?

microsoft-excel microsoft-excel-2007

— Manga Lee
fonte

Não tenho certeza sobre o Excel 2007, mas estou usando o Excel 2003 e, automaticamente, quando insiro dados de várias linhas em uma célula, a altura da linha é fixa quando pressiono enter.

— fretje

26

Em http://support.microsoft.com/kb/149663

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

Selecione a linha.

No Microsoft Office Excel 2003 e em versões anteriores do Excel, aponte para Linha no menu Formatar e, em seguida, clique em Ajustar automaticamente.

No Microsoft Office Excel 2007, clique na guia Início, clique em Formatar no grupo Células e clique em Ajustar automaticamente a altura da linha.

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

— vaichidrewar
fonte

11

Experimentar

Selecione a coluna -> clique com o botão direito do mouse na coluna -> Formatar células -> guia Alinhamento -> Quebrar texto

— hyperslug
fonte

2

A célula já possui essa formatação e quero que a célula também ajuste sua altura. Quero que a altura da linha da célula se ajuste para que todo o conteúdo da célula fique visível.

— Manga Lee

3

Não tenho certeza se você pode fazer isso acontecer à medida que o conteúdo da célula é alterado, mas assim que você clicar duas vezes na borda entre o número da linha e o número abaixo da linha o dimensionará automaticamente para caber no conteúdo.

— Col

+1: Esta não é uma resposta ruim. Se você ativar Wrap Texte desativar novamente, o Excel redimensionará a altura da linha para caber na linha mais alta. Não é adequado se a altura das linhas estiver mudando dinamicamente, mas se você estiver lidando com texto estático, tudo ficará bem.

— Li-aung Yip

Funcionou para mim no Excel 2019.

— 猫 IT

4

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

Veja esta resposta da Microsoft:

Você não pode usar o recurso de ajuste automático para linhas ou colunas que contêm células mescladas no Excel

— abruti
fonte

2

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

— Lance Roberts
fonte

Isso é algo que você pode fazer quando tem pouco disso para fazer, mas quanto mais complexo, mais você terá que lidar com isso e isso significa perda de tempo e energia, obtendo foco e impulso por causa de tais tarefas. A solução dada por Bertieb funciona como um encanto no Excel 2019.

— 猫 IT

0

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

Application.ActiveCell.WrapText = True

dentro da sub-rotina Worksheet_SelectionChange.

— Toc
fonte

0

Uma solução VBA é usar o seguinte:

 Call Application.ActiveCell.AutoFit

— richardtallent
fonte

0

A única maneira de fazê-lo funcionar conforme o esperado é realçar a folha inteira com CTRL-A, desmarque o botão "Quebrar texto" na barra de ferramentas e selecione-o novamente. Nenhuma outra configuração é alterada, mas cada linha agora tem a altura "adequada" para seu conteúdo.

— simpleuser
fonte

0

Criei o código VB a seguir para redimensionar a linha do cabeçalho quando uma célula dentro de um intervalo (B2: B1500) porque valores de data acima de 28/12/2014 levariam o cabeçalho a mostrar um aviso de que essas datas, em um quadro de horários, entrariam em 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

— Mickg01
fonte