Excel VBA - Формула столбца таблицы - Ошибка 1004

Question

Утро всем,

Я пытаюсь создать функцию, которая изменяет столбец результата в формуле =VLOOKUP.

Sub changeDay(day As Integer)
  Dim ws As Worksheet
  Dim lo As ListObject
  Dim lColName As ListColumn

  Set ws = ThisWorkbook.Worksheets("sheetName")
  Set lo = ws.ListObjects(1)
  Set lColName = lo.ListColumns(2)

  lColName.DataBodyRange.FormulaR1C1 = "=VLOOKUP'([@ID],'sheetName'!$A$2:$J$404," & day & ")"
End Sub

Возвращает ошибку Run-time error '1004': Application-defined or object-defined error.

Где я иду не так, похоже, это приемлемое решение для других людей.

Answer 1

Рабочее решение для тех, кто сталкивается с той же проблемой.

Sub changeDay(day As Integer)
  Dim ws As Worksheet
  Dim lo As ListObject
  Dim lCol As ListColumn

  Set ws = ThisWorkbook.Worksheets("aWorksheetname")
  Set lo = ws.ListObjects(1)
  Set lCol = lo.ListColumns(2)

  lColName.DataBodyRange.Formula = "=VLOOKUP([@ID],'aWorkSheetname'!$A$2:$J$404," & CStr(day) & ")"
End Sub

Answer 2

Заменить FormulaR1C1 на Formula.

Какова функция FormulaR1C1?