Здравствуйте, знатоки! Очень нужна помощь . Есть такой код. К нему в дальнейшем планируется добавить еще несколько переменных и соответственно диапазонов. Пока что не получается рассчитать значения в диапазоне 2,39 в соответствии с формулой A = X ^ 2 * (1.8 / 100) и занести их в другой лист. Файл ниже
Пожалуйста подскажите в чем моя ошибка?
Пожалуйста подскажите в чем моя ошибка?
Код |
---|
Sub formula() Dim d As Object, X As Long, A As Long Set d = ActiveWorkbook.Sheets("Константы") LastRow = d.Cells(d.Rows.Count, 1).End(xlUp).Row For i = 1 To LastRow X = d.Range(d.Cells(i, 2), d.Cells(i, 39)) A = X ^ 2 * (1.8 / 100) A = ActiveWorkbook.Sheets("С формулой") Next End Sub |