При попытке вставить строку в формулу в Excel VBA я получил ошибку времени выполнения «1004». - PullRequest
Новая
       6

При попытке вставить строку в формулу в Excel VBA я получил ошибку времени выполнения «1004».

0 голосов
/ 20 сентября 2019

Я хочу разделить все значения из столбца B только на одно значение.Проблема в том, что значение не всегда находится на одной и той же позиции, потому что таблица может иметь разное количество столбцов.Я могу получить адрес в виде строки, и единственное, что мне нужно сделать, это вставить это значение в формулу.

Я хочу создать кнопку, которая будет рассчитывать для всей моей таблицы это значение и упростит моеочень много работаю 

Sub CapacityLimit()
    Dim x As Integer
    Dim currentColumn As Integer
    Dim currentRow As Integer
    Dim var As Integer
    Dim counter As Integer

     ActiveCell.Offset(0, -1).Range("A1").Select
     x = Range(Selection, Selection.End(xlDown)).Rows.Count
     ActiveCell.Offset(0, 1).Range("A1").Select

     ActiveCell.FormulaR1C1 = "Capacity limit/year"

    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.ClearContents

     For counter = 1 To x - 1
        ActiveCell.FormulaR1C1 = "=RC2/" & ActiveSheet.Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Address & " "
       Next counter

это только часть моего кода, проблема здесь: 

ActiveCell.FormulaR1C1 = "=RC2/" & ActiveSheet.Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Address & " "
...