Ingresá al Editor de macros (con ALT + F11)
Insertá un módulo y allí copiá lo siguiente:
Sub ajusteAltoFila()
'x Elsamatilde
'se recorre la col A desde fila 2 hasta fin de rango
[B2].Select
'alto normal de la fila para Calibri 10
alto = 12.75
While ActiveCell <> ""
'ancho de columnas combinadas
fily = ActiveCell.Row
anchocol = Range("B" & fily).ColumnWidth + Range("C" & fily).ColumnWidth + Range("D" & fily).ColumnWidth
'no se observan saltos en la muestra
'si se trata de 1 sola fila
anchotexto = Len(ActiveCell.Text)
If anchotexto <= anchocol Then
ActiveCell.RowHeight = 12.75
GoTo sigo
End If
'se calcula cuántas filas se necesitan
dif = (anchotexto - anchocol) / anchocol
If Round(dif) < 2 And anchotexto > anchocol Then
dify = 2
ElseIf dif > Int(dif) Then
dify = Round(dif) + 1
Else
dify = Int(dif)
End If
'alto total = alto * cant.filas
cantfilas = alto * dify
'se asigna el alto obtenido
With Range("B" & fily)
.RowHeight = cantfilas
.WrapText = True
.HorizontalAlignment = xlLeft
End With
sigo:
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Podés ejecutarla desde el mismo Editor o regresar a la hoja y desde menú Desarrollador, Macros. Podés leer más sobre cómo ejecutar macros desde la sección Macros de mi sitio.
Estoy considerando un alto mínimo de 12,75 que va bien con Calibri 10... pero si tu fuente es mayor podrías reemplazar ese valor por 15 en el código.
Sdos.
Elsa