Option Explicit
Option Base 1

' Вкладка "Макросы" - Группа - Автовысота.

' Макрос обрабатывает активный файл.
    ' Макрос делает на каждом листе автовысоту строк в области печати.
    
' На листе в области печати могут быть скрытые строки. Я это уточнял у заказчика.

Sub Main(RibControl As Office.IRibbonControl)
    
    Dim bk_act As Workbook, sh_work As Worksheet
        
    '1. Создание ссылки на активный файл.
    Set bk_act = ActiveWorkbook
    If ActiveWorkbook Is Nothing Then
        Exit Sub
    End If
    
    ' Отключение событий.
    Dim OffEvents As OFF_EVENTS
    Set OffEvents = New OFF_EVENTS
    OffEvents.ExcludeOpenedBook bk_act.Name
    
    '2. Создание автовысоты.
    For Each sh_work In bk_act.Worksheets
        СоздатьАвтовысоты sh_work
    Next sh_work
    
    '3. Сохранение изменений.
        ' Появлялось сообщение про персональные данные.
    Application.DisplayAlerts = False
    bk_act.Save
    Application.DisplayAlerts = True
    
    '4. Пометка, чтобы не было сообщения во время закрытия файла.
        ' Файл должен быть в состоянии "Сохранён".
    OffEvents.AddOpenedBook bk_act.Name
    
    '5. Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation   
End Sub

Private Sub СоздатьАвтовысоты(sh_work As Worksheet)

    ' Процедура создаёт автовысоты строк на одном листе.
    
    Dim sh_aux As Worksheet
    Dim ОбластьПечати As Range, ОбластьПечати_Aux As Range
    Dim высота As Double
    Dim lc As Long, lc_общ As Long, i As Long

    '1. Если лист скрытый.
    If sh_work.Visible <> xlSheetVisible Then
        Exit Sub
    End If
    
    '2. Создание ссылки на область печати.
    
    '1) Создание области печати, если её нет.
    If sh_work.PageSetup.PrintArea = "" Then
        sh_work.PageSetup.PrintArea = sh_work.UsedRange.Address
    End If
    
    '2) Создание ссылки на область печати.
    Set ОбластьПечати = sh_work.Range(sh_work.PageSetup.PrintArea)
    
    '3) Корректировка области печати, если указаны столбцы целиком.
    If ОбластьПечати.Rows.Count = sh_work.Rows.Count Then
        Set ОбластьПечати = ОбластьПечати.Resize(sh_work.UsedRange.Row + sh_work.UsedRange.Rows.Count - 1)
    End If
    
    '3. Запись последних столбцов в переменные.
    lc_общ = lib.lc(sh_work)
    lc = ОбластьПечати.Column + ОбластьПечати.Columns.Count - 1
    
    '4. Если справа от области печати нет данных.
        ' В этом случае автовысота делается на рабочем листе, а не на aux-листе.
        ' lc_общ может быть меньше правого края области печати, т.к. могут быть объединённые ячейки.
    If lc_общ <= lc Then
        АВТОВЫСОТА_АВТОВЫСОТА.Main sh_work, ОбластьПечати
        Exit Sub
    End If
    
    ' Если справа от области печати есть данные.
    
    '5. Создание копии листа.
    sh_work.Copy
    Set sh_aux = ActiveSheet
    
    '6. Создание ссылки на область печати.
    Set ОбластьПечати_Aux = sh_aux.Range(ОбластьПечати.Address)
    
    '7. Очистка всех ячеек справа от области печати.
        ' Были случаи, что были объединённые ячейки справа от таблицы.
    If lc_общ > lc Then
        ОбластьПечати_Aux.EntireRow.Columns(lc + 1).Resize(, lc_общ - lc).Value = Empty
    End If
    
    '8. Создание автовысоты на aux-листе.
    АВТОВЫСОТА_АВТОВЫСОТА.Main sh_aux, ОбластьПечати_Aux
    
    '9. Создание автовысот на рабочем листе.
    For i = 1 To ОбластьПечати_Aux.Rows.Count
        высота = ОбластьПечати_Aux.Rows(i).Height
        If ОбластьПечати.Rows(i).Height <> высота Then
            ОбластьПечати.Rows(i).EntireRow.RowHeight = высота
        End If
    Next i
    
    '10. Закрытие aux-файла.
    sh_aux.Parent.Close SaveChanges:=False       
End Sub

Option Explicit
Option Base 1

' Вкладка "Макросы" - Группа - Автовысота.

' Макрос обрабатывает активный файл.
    ' Макрос делает на каждом листе автовысоту строк в области печати.
    
' На листе в области печати могут быть скрытые строки. Я это уточнял у заказчика.

Sub Main(RibControl As Office.IRibbonControl)
    
    Dim bk_act As Workbook, sh_work As Worksheet
    
        
    '1. Создание ссылки на активный файл.
    Set bk_act = ActiveWorkbook
    If ActiveWorkbook Is Nothing Then
        Exit Sub
    End If
    
    ' Отключение событий.
    Dim OffEvents As OFF_EVENTS
    Set OffEvents = New OFF_EVENTS
    OffEvents.ExcludeOpenedBook bk_act.Name
    
    '2. Создание автовысоты.
    For Each sh_work In bk_act.Worksheets
        СоздатьАвтовысоты sh_work
    Next sh_work
    
    '3. Сохранение изменений.
        ' Появлялось сообщение про персональные данные.
    Application.DisplayAlerts = False
    bk_act.Save
    Application.DisplayAlerts = True
    
    '4. Пометка, чтобы не было сообщения во время закрытия файла.
        ' Файл должен быть в состоянии "Сохранён".
    OffEvents.AddOpenedBook bk_act.Name
    
    '5. Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation
    
End Sub

Private Sub СоздатьАвтовысоты(sh_work As Worksheet)

    ' Процедура создаёт автовысоты строк на одном листе.
    
    Dim sh_aux As Worksheet
    Dim ОбластьПечати As Range, ОбластьПечати_Aux As Range
    Dim высота As Double
    Dim lc As Long, lc_общ As Long, i As Long
    

    '1. Если лист скрытый.
    If sh_work.Visible <> xlSheetVisible Then
        Exit Sub
    End If
    
    '2. Создание ссылки на область печати.
    
    '1) Создание области печати, если её нет.
    If sh_work.PageSetup.PrintArea = "" Then
        sh_work.PageSetup.PrintArea = sh_work.UsedRange.Address
    End If
    
    '2) Создание ссылки на область печати.
    Set ОбластьПечати = sh_work.Range(sh_work.PageSetup.PrintArea)
    
    '3) Корректировка области печати, если указаны столбцы целиком.
    If ОбластьПечати.Rows.Count = sh_work.Rows.Count Then
        Set ОбластьПечати = ОбластьПечати.Resize(sh_work.UsedRange.Row + sh_work.UsedRange.Rows.Count - 1)
    End If
    
    '3. Запись последних столбцов в переменные.
    lc_общ = lib.lc(sh_work)
    lc = ОбластьПечати.Column + ОбластьПечати.Columns.Count - 1
    
    '4. Если справа от области печати нет данных.
        ' В этом случае автовысота делается на рабочем листе, а не на aux-листе.
        ' lc_общ может быть меньше правого края области печати, т.к. могут быть объединённые ячейки.
    If lc_общ <= lc Then
        АВТОВЫСОТА_АВТОВЫСОТА.Main sh_work, ОбластьПечати
        Exit Sub
    End If
    
    ' Если справа от области печати есть данные.
    
    '5. Создание копии листа.
    sh_work.Copy
    Set sh_aux = ActiveSheet
    
    '6. Создание ссылки на область печати.
    Set ОбластьПечати_Aux = sh_aux.Range(ОбластьПечати.Address)
    
    '7. Очистка всех ячеек справа от области печати.
        ' Были случаи, что были объединённые ячейки справа от таблицы.
    If lc_общ > lc Then
        ОбластьПечати_Aux.EntireRow.Columns(lc + 1).Resize(, lc_общ - lc).Value = Empty
    End If
    
    '8. Создание автовысоты на aux-листе.
    АВТОВЫСОТА_АВТОВЫСОТА.Main sh_aux, ОбластьПечати_Aux
    
    '9. Создание автовысот на рабочем листе.
    For i = 1 To ОбластьПечати_Aux.Rows.Count
        высота = ОбластьПечати_Aux.Rows(i).Height
        If ОбластьПечати.Rows(i).Height <> высота Then
            ОбластьПечати.Rows(i).EntireRow.RowHeight = высота
        End If
    Next i
    
    '10. Закрытие aux-файла.
    sh_aux.Parent.Close SaveChanges:=False
        
End Sub

1вариант=ЕСЛИ(A1=1;"А";(ЕСЛИ(A1=2;"Б";(ЕСЛИ(A1=3;"В";(ЕСЛИ(A1=4;"Г";(ЕСЛИ(A1=5;"Д";(ЕСЛИ(A1=6;"Е")))))))))))
2вариант=ВПР(A1;$H$1:$I$6;2;ЛОЖЬ)

=СЧЁТЕСЛИ(A$2:A2;A2)

=ЛЕВСИМВ(A5;ДЛСТР(A5)-(ДЛСТР(A5)-ДЛСТР(ПОДСТАВИТЬ(A5;"+0";""))))

Sub Макрос2()

       Selection.Comment.Text Text:="Асет:" & Chr(10) & "Готово" & Chr(10) & ""
   
End Sub