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ê tem uma lista de números e agora quer definir a altura da linha com base nos valores da célula, conforme mostrado na captura de tela a seguir, como você poderia lidar com essa tarefa no Excel?

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

Altere a altura da linha com base no valor da célula com o 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 vez, mas, com o código VBA a seguir, ele pode ajudá-lo a terminar esse trabalho o mais rápido possível.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: altere 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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar as células que deseja definir a altura da linha pelos valores das células, consulte a captura de tela:

4. E, em seguida, clique em OK botão, a altura da linha foi alterada pelo valor da célula da seguinte forma:

Note: No código VBA acima, Se 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á a altura padrão. Você pode alterá-la conforme necessário.