excel - 当我尝试将字符串放入 Excel VBA 中的公式时，我收到运行时错误“1004”应用程序定义或对象定义错误

Question

我想将 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 & " "

标签： excelvbavariablesformula