Ошибка метода .Formula: объект не поддерживает это свойство или метод - PullRequest
Новая
       23

Ошибка метода .Formula: объект не поддерживает это свойство или метод

0 голосов
/ 26 ноября 2018

Я пытался запустить приведенный ниже код, но постоянно получаю сообщение об ошибке «объект не поддерживает это свойство или метод».Это потому, что .Formula ссылается на целое число i вместо действительной ячейки?Буду очень признателен за любые отзывы!Вот уже некоторое время борюсь с этим: / Заранее спасибо! 

Sub GetModelDescr()
Dim lastRow As Long
Dim i As Long
Dim rng As Range
Dim r As Range

Worksheets("Stock").Activate

With Worksheets("Stock")
lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Set rng = .Range("B2:B" & lastRow)

   For i = 1 To rng.Rows.Count
      Set r = rng.Cells(i, 2)
     .Formula "=TRIM(RC[6])&"" ""&MID(RC[-1],7,3)&"" ""&RIGHT(RC[-1],4)"
     .Value2 = .Value2
   Next i

End With

End Sub
...