Excel VBA Макросы. Написание текста в ячейке исходя из значений таблицы.

Автор Посетитель, 23 августа 2021, 12:43

Посетитель

Помогите в написании кода VBA в Excel.
Нужно ввести в ячейку текст, который будет определяться исходя из параметров таблицы.

На листе находится таблица в столбцах B:F. Данные начинаются со строки 4.
В столбец F нужно подставить данные из столбцов B:D, при этом надо подставлять постоянный текст "Параметр 1 =", "Параметр 2 =" и "Параметр 3 =".

Например, в строке 4, в столбце B текст "a", в столбце C - "b", в столбце D - "c".
В строке 4, в столбце F должен быть такой результат: Параметр 1 = а, Параметр 2 = b, Параметр 3 = с

Администратор

Макрос
Sub Макрос()
   
    Dim lr As Long, i As Long
   
   
    ' Отключение монитора, чтобы ускорить макрос.
        ' Можно ещё отключить формулы, если их много.
    Application.ScreenUpdating = False
   
    ' Поиск последней строки.
        ' Не должно быть скрытых строк.
    lr = Cells(Rows.Count, "B").End(xlUp).Row
   
    ' Заполнение столбца F.
    For i = 4 To lr
        Cells(i, "F").Value = "Параметр 1 = " & Cells(i, "B").Value & "; " & _
            "Параметр 2 = " & Cells(i, "C").Value & "; " & _
            "Параметр 3 = " & Cells(i, "D").Value
    Next i
       
End Sub
[свернуть]