Sub УвелечениеВысотыСтрок()

Dim wsq As Worksheet

Dim rowq As Range

Dim cellq As Range

Dim isEmptyq As Boolean

 

' Установка активного листа

Set wsq = ActiveSheet

 

' Перебор всех строк в листе

For Each rowq In wsq.UsedRange.Rows

isEmptyq = True

' Проверка каждой ячейки в строке на наличие данных

For Each cellq In rowq.Cells

If Not isEmpty(cellq.Value) Then

isEmptyq = False

Exit For

End If

Next cellq

' Увеличение высоты строки, если она не пуста

If Not isEmptyq Then

row.RowHeight = row.RowHeight + 10

End If

Next rowq

End Sub

Sub УвелечениеВысотыСтрок()    Dim ws As Worksheet
    Dim r As Range
    Dim c As Range
    Dim isEmptyRow As Boolean

    ' Установка активного листа
    Set ws = ActiveSheet

    ' Перебор всех строк в листе
    For Each r In ws.UsedRange.Rows
        isEmptyRow = True
        ' Проверка каждой ячейки в строке на наличие данных
        For Each c In r.Cells
            If Not isEmpty(c.Value) Then
                isEmptyRow = False
                Exit For
            End If
        Next c
        ' Увеличение высоты строки, если она не пуста
        If Not isEmptyRow Then
            r.RowHeight = r.RowHeight + 10
        End If
    Next r

End Sub