VBA - изменить другую ячейку с несколькими значениями ячейки

Question

Используя VBA в Excel, я хочу включить формулу, расположенную в столбце "O", показанном ниже, для всех строк B, которые имеют значение, начинающееся с B9. Пожалуйста, укажите изображение.

= "" & D9 & "" & I9 & "(MK NO." & B9 & ")"

Answer 1

Установите диапазон и введите формулу, затем измените диапазон на значения.

Sub Button1_Click()
    Dim rng As Range
    Set rng = Range("O9:O" & Cells(Rows.Count, "B").End(xlUp).Row)
    rng.Formula = "=CONCATENATE(D9,"" "",I9,"" (MK NO. "",B9,"")"")"
    rng.Value = rng.Value
End Sub

Answer 2

из вашего повествования я понял, что у вас уже есть правильная формула в O9, следовательно, вы можете использовать AutoFill() метод Range объекта:

Range("O9").AutoFill Range("B9", Cells(Rows.Count, "B").End(xlUp)).Offset(,13)

Answer 3

Это должно сделать то, что вы ищете.

Sub Pasteformula()

Dim LookupRange As Range
Dim c As Variant

Application.ScreenUpdating = False
Set LookupRange = Range("B9:B500") ' Set range in Column B

For Each c In LookupRange 'Loop through range
    If c.Value <> "" Then 'If value in B is empty then
        Cells(c.Row, 15).FormulaR1C1 = _
            "=""""&RC[-11]&"" ""&RC[-6]&"" (MK NO. ""&RC[-13]&"")""" 'Apply formula
    End If
Next c
Application.ScreenUpdating = True
End Sub