Cómo aumentar la altura de varias celdas por porcentaje en Microsoft Excel

Question

Tengo una mesa con diferentes alturas verticales como 20, 30 y 40. Las alturas se ordenan mediante autoajuste. El problema es que las células están muy cerca unas de otras. Quiero dar un espacio en la parte superior e inferior. Intenté la alineación vertical pero no pude agregar un espacio entre las celdas. Sería genial si hubiera un aumento porcentual de múltiples celdas como de 20,30,40 a 22,33, 44. 10% O también sería genial si hubiera un aumento constante como de 20,30, 40 a 22 , 32, 42. 2 constante

Answer 1

VBA (Macro) puede solucionar su problema:

Sub Setrowheight()

    Dim hgt As Variant
    Dim WorkRng As Range

    xTxt = ActiveWindow.RangeSelection.Address

    Set WorkRng = Application.InputBox("Please select the height range:", "Row Height", 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

---

---

Cómo funciona:

• Inserte los valores en la celda correspondiente de la Col A.
• CualquieraBotón derecho del ratónla pestaña Hoja y desde el menú emergente presioneVer códigoo PresioneAlt+F11para obtener el editor VB.
• En la parte superior izquierda encontrarExplorador de proyectos, Selecciona elPestaña HojaentoncesBotón derecho del ratóny golpearInsertarentoncesMódulo.
• Copiar&Pegareste código.
• CORRERla Macro.
• Seleccione Rango A12:A17para responder a laCuadro de entrada& terminar conDe acuerdo

Encontrará que la altura de la fila correspondiente se ha establecido utilizando los valores de celda en A12:A17.

NÓTESE BIEN

• Por lo tanto , la altura de fila estándar es 15.00insertar valores teniendo A12:A17en cuenta que para aumentar o incluso disminuir la altura de fila.

• Puede ajustar las referencias de celda según sea necesario.