Como alterar a altura da linha com base no valor da célula no Excel?

Para alterar a altura da linha em uma planilha, a maioria de nós pode aplicar o recurso Altura da Linha para definir a altura da linha selecionada. No entanto, se você tiver uma lista de números e quiser definir a altura da linha com base nos valores das células, conforme mostrado na captura de tela a seguir, como você lidaria com essa tarefa no Excel?

Alterar a altura da linha com base no valor da célula com código VBA

Alterar a altura da linha com base no valor da célula com código VBA

Não há uma maneira direta de alterar várias alturas de linha com base no valor da célula de uma só vez, mas, com o seguinte código VBA, ele pode ajudá-lo a concluir esse trabalho o mais rápido possível.

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Alterar a altura da linha com base no valor da célula:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de selecionar as células que deseja ajustar a altura da linha com base nos valores das células, veja a captura de tela:

4. E então clique no botão OK, a altura da linha foi alterada pelo valor da célula conforme segue:

Observação: No código VBA acima, If H.Value > 15 Then indica que, se o valor da célula for maior que 15, a altura da linha será alterada; se o valor da célula for menor que 15, a altura da linha permanecerá com a altura padrão. Você pode alterá-lo conforme necessário.