Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 23 августа 2021, 12:43

Название: 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 = с
Название: Re: Excel VBA Макросы. Написание текста в ячейке исходя из значений таблицы.
Отправлено: Администратор от 23 августа 2021, 13:28
Макрос
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
[свернуть]
Название: Re: Excel VBA Макросы. Написание текста в ячейке исходя из значений таблицы.
Отправлено: Посетитель от 23 августа 2021, 14:11
Очень благодарен за помощь!