Como fazer com que o recurso "Ajustar automaticamente a altura da linha" do Excel se ajuste automaticamente à altura da linha?

Para todas as gerações de Excel que me lembro (incluindo 2010, que estou usando agora), os recursos "Linha de tamanho automático" do Excel às vezes não conseguem dimensionar automaticamente uma linha quando a célula contém texto agrupado. Quando funciona corretamente, todo o texto é revelado e não há espaço adicional abaixo da última linha do texto. Quando falha, ele adiciona espaço extra abaixo do texto. Para piorar a situação, o que você vê nem sempre é o que obtém, ou seja, o texto que parecia bom na tela é cortado quando é impresso. Você também obtém tamanhos diferentes, dependendo de aumentar ou diminuir o zoom ou o tamanho real.

Caso de teste simples:

Por que há uma lacuna de uma linha após o texto na célula A1, mas não na A2?

(Para reproduzir: defina a largura da coluna A como 17,14 (125 pixels), quebra automática de texto e parte superior do alinhamento de células.)

(Verifiquei duas vezes se eu apliquei o ajuste automático da altura da linha nas duas linhas. O nível de zoom é 100%.)

Existe algum remédio conhecido para isso sem recorrer ao ajuste manual das alturas das linhas (o que não é prático para mais do que um punhado de linhas)?

Um método que acabei de encontrar (estendendo um pouco o post anterior):

• Selecione a folha inteira.
• Redimensione uma coluna um pouco mais (porque toda a planilha está selecionada, todas as colunas ficarão mais largas)
• Clique duas vezes em um separador de linhas - a altura da linha será ajustada automaticamente
• Clique duas vezes em um separador de colunas - as larguras das colunas serão ajustadas automaticamente

Voila!

O WYSIWYG do Excel não é o melhor. Na sua foto, 'gato'. apenas mal entra na 5ª linha. Se você reduzir a porcentagem de zoom para algo menor que 100% (99%, por exemplo.), Então 'gato'. agora está agrupado na sexta linha. Acho que o Excel está tentando se ajustar automaticamente de forma a garantir que tudo esteja quase sempre visível, independentemente do seu nível de zoom.

Esse não é o único problema que você terá com o AutoFit. Além disso, a maneira como uma célula quebrada é impressa nem sempre corresponde ao que você vê na tela. Tome seu exemplo e altere a fonte para Courier, deixando o tamanho em 11.

Como você pode ver, a célula A1 parece receber 1,5 linhas extras. Agora olhe para a pré-visualização, 'gato'. está completamente oculto.

Na minha experiência, o Excel tem esse problema com certas fontes e tamanhos de fonte mais do que outros. Courier é pior que Courier New , tamanho 11 geralmente é pior que 10 ou 12. (Por que eles escolheram o tamanho 11 como o novo padrão, não faço ideia.)

Acabei de escrever uma pequena macro para esse fim. Atribuí a ele uma tecla de atalho (Ctrl-Shift-J) e funciona como um encanto para mim.

Sub ArrangeTable()
'set proper column width and row height for the current region
    With Selection.CurrentRegion
        .Columns.ColumnWidth = 200
        .Columns.EntireColumn.AutoFit
        .Rows.EntireRow.AutoFit
    End With
End Sub

Para disponibilizar permanentemente, você pode criar facilmente um suplemento de carregamento automático:

• crie um módulo em uma nova pasta de trabalho em branco e cole o código,
• atribua a tecla de atalho desejada,
• em seguida Save As, Add-inpara a pasta %appdata%\Microsoft\Excel\XLSTART
  Desta forma, ele será invisível carregado toda vez que você iniciar o Excel.

Em alguns casos, o problema de espaço extra em algumas linhas após a chamada "Ajustar automaticamente a altura da linha" pode ser que uma coluna oculta tenha quebrado o texto nessas linhas.

Há um artigo em kb sobre isso que "sugere" (é inaceitavelmente escasso, no estilo clássico da Microsoft) que, se você definir uma altura de linha, o ajuste automático de altura automática será permanentemente removido para essa linha da planilha. As fileiras cuja altura você não tocou serão ajustadas automaticamente.

Embora você possa redefinir as larguras de coluna com a configuração "largura padrão" em 2003 (projetada pela madman 2007: altere para "largura padrão"), mas eles se esqueceram (novamente) (e novamente) de colocar isso em linhas. Portanto, a permanência parece inevitável. Isso significa que, se você tem uma altura padrão de 15 e cria uma planilha e define todas as alturas para 12, perde o ajuste automático automático.

Às vezes, existe o método nuclear para corrigir autoproblemas que se comportam mal.

O que faço é copiar o texto de cada célula e colar os dados no bloco de notas e excluir a linha. Em seguida, copio e insiro imediatamente uma linha em branco, mas com a mesma formatação e bom comportamento da linha que foi excluída. (Você deve copiar e inserir a linha inteira usando os botões da linha esquerda.)

Feito isso, é necessário voltar e inserir o texto do bloco de notas em cada célula. (Use F2ou ative o modo de edição de cada célula antes de inserir texto.) É uma dor, portanto é um último recurso, especialmente para planilhas gigantescas.

Às vezes, é a única solução, pois o problema reside no próprio programa.

Eu não testei completamente isso, mas está funcionando para mim. Essencialmente, ele ajustará automaticamente todas as folhas e voltará e definirá a largura da coluna para a largura original, a menos que tenha sido estendida pelo ajuste automático. Eu tinha apenas 10 colunas e nunca mais de 1000 linhas, então ajuste o código conforme necessário.

Sub ResizeCells()
    Dim sheetCounter As Integer
    Dim rowCounter As Integer
    Dim colCounter As Integer
    Dim totalWidth As Double
    Dim oldColWidths(1 To 10) As Double

    For sheetCounter = 1 To ThisWorkbook.Sheets.Count
        ActiveWorkbook.Worksheets(sheetCounter).Select
        totalWidth = 0

        ' Extend the columns out to 200
        For colCounter = 1 To 10
            oldColWidths(colCounter) = Cells(1, colCounter).ColumnWidth
            totalWidth = totalWidth + oldColWidths(colCounter)
            Cells(1, colCounter).ColumnWidth = 200
        Next

        For rowCounter = 4 To 1000
            If Cells(rowCounter, 1).Value <> "" Or Cells(rowCounter, 2).Value <> "" Or Cells(rowCounter, 3).Value <> "" Then
                Rows(rowCounter & ":" & rowCounter).EntireRow.AutoFit
            End If
        Next

        ' do autofit
        For colCounter = 1 To 10
            Cells(1, colCounter).EntireColumn.AutoFit
        Next

        ' reset to original values if current width is less than the original width.
        For colCounter = 1 To 10
            If Cells(1, colCounter).ColumnWidth < oldColWidths(colCounter) + 0.25 Then
                Cells(1, colCounter).ColumnWidth = oldColWidths(colCounter)
            End If
        Next
    Next
End Sub

Parafraseando Dunc :

Resolvi um problema semelhante:

1. Selecionando a planilha inteira.

2. Clique duas vezes na linha na margem entre as duas linhas.

Especificamente, para resolver seu problema dessa linha extra, eu suponho que exista um personagem lá. Pode não ser um personagem visível, mas definitivamente há algo lá.

Não tive tempo para ler os outros comentários. Por que a linha na parte inferior do primeiro bloco e não no segundo bloco?

É porque o texto termina muito perto da borda direita da célula. Se você ajustar a coluna para ser um pouco mais larga e clicar duas vezes entre as linhas, ela será redimensionada de acordo.

Eu também já sofri esse bug minúsculo, mas extremamente perturbador, por muitos anos. Não tenho solução alternativa, exceto mexer na largura da linha da célula com mais texto nela e, eventualmente, o programa irá ceder e mostrar o texto corretamente.

Existe uma solução fácil:

1) Selecione todas as linhas que deseja formatar automaticamente (se for um bloco grande, clique no primeiro e pressione Shift + End e Shift + Down)

2) Clique com o botão direito do mouse na seleção, Formatar células, guia Alinhamento, desmarque a opção Quebrar texto.

Espero que isto ajude ;)

Eu tenho o Excel 2010. Constatei que esse problema ocorreu comigo quando minha configuração de Zoom não estava em 100%. Contanto que eu esteja em 100%, não recebo o texto cortado com o Ajuste automático para colunas e linhas

Minha hipótese é que o Excel fica atado quando precisa estender muitas linhas. Eu tive uma experiência semelhante à anterior. Ele parece que há um extra NL / CR / LF no final, mas eu sei que não é. Se eu construir alguns caracteres de cada vez na célula, ele formata automaticamente OK até que um tamanho específico seja atingido e coloca na linha extra. (Um comportamento semelhante ao contrário acontece se você começar excluindo alguns caracteres.) Isso acontece em momentos diferentes com células diferentes.

Vadio!

Portanto, se você pode estender a largura da célula, provavelmente pode evitar o problema. Se você não pode (como no meu caso), está preso à formatação manual. Como eu disse, "Que chatice!"

Na verdade, há um personagem extra lá. É o personagem LF oculto que está no final de cada campo. Quando o texto tem o tamanho certo, a linha extra existe para conter o caractere LF. O redimensionamento da largura da coluna, conforme sugerido por outras pessoas, resolverá o problema dessa célula, mas se sua planilha tiver muitos valores de tamanho variados nessa mesma coluna, é possível que sua correção para essa célula faça com que outra célula da coluna tenha o problema . Aprendi a conviver com isso na maioria das vezes.

O que funcionou para mim (Excel 2010) foi excluir centenas de colunas não utilizadas à direita dos meus dados. Só posso supor que havia algo ali fazendo com que a altura da linha automática se comportasse mal.

selecione todas as células e clique na linha que separa as linhas duas vezes ... isso será feito automaticamente.