Paul tiene una hoja de trabajo que tiene más de mil filas de datos. La mayoría de las filas tienen una altura de 12, pero algunas tienen una altura de más de 100. Se pregunta si hay alguna forma de ajustar las alturas de las filas para que ninguna fila supere las 40. (Es decir, los que tengan menos de 40 años conservarán su altura actual, pero los que tengan más de 40 se ajustarán a 40).

En realidad, abordar este problema es bastante fácil: solo necesita una forma de recorrer las filas, determinar la altura de la fila actual y luego ajustar la altura de la fila si es demasiado grande. Esto se puede hacer con una macro muy simple, como la siguiente:

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

La macro determina el rango de filas utilizadas en la hoja de trabajo y luego recorre esas filas. La propiedad operativa es la propiedad .Height, que está marcada. Si es superior a 40, se establece en 40. Esto significa que cualquier cosa con una altura de fila inferior a 40 se deja sin cambios.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (10381) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.