Переменные в формуле

Question

Я определил x & Y и оба возвращаем необходимые значения, но поле заполняет формулу только текстом x & Y

Я проверил определение переменных и то, что я делаю

Sub FindLast()

Dim x As Integer
Dim y As Integer

x = InStrRev(Range("H2"), ")")
y = 999


Range("I2").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],x,y)"
ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1))

End Sub

Я получаю formula =MID(H2,x,y) Я должен получить =mid(H2,77,999)

Answer 1

Все, что вы помещаете в кавычки, будет выглядеть как написано, поэтому вам нужно вывести переменные наружу.Также вы можете удалить бит Select / ActiveCell .

Sub FindLast()

Dim x As Integer, y As Integer

x = InStrRev(Range("H2"), ")")
y = 999

Range("I2").FormulaR1C1 = "=MID(RC[-1]," & x & "," & y & ")"

End Sub