Question

我正在尝试创建一个循环遍历列的宏来应用公式。在公式的最后部分，我需要乘以一个值。每个列的值都会更改（但对于列中的每一行都是一致的）。

我试图定义一个数组来执行此操作（包含不同的乘数），但得到一个#NAME？错误，并且可以看到数组的名称出现在公式栏中而不是实际值。我的代码如下。

我很感激帮助 - 我对此非常陌生！

Sub CotData()

Dim Rng1 As Range
Dim Element As Integer, ColNum As Integer
Dim slope_array As Variant

Set Rng1 = Sheets("Co(t) OREAS 901").Range("A48:A127")
ActiveWorkbook.Names.Add Name:="slope", RefersTo:=Rng1

Range("A1").Select
ActiveCell.Offset(2, 3).Range("A1").Select

slope_array = Range("slope")
Element = 0

For ColNum = 4 To 320
Element = Element + 1
    ActiveCell.FormulaR1C1 = "=('Co(t) OREAS 901'!RC[-2])/('Co(t) OREAS 
901'!RC[-1]* (slope_array(Element,1)))"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A40")
ActiveCell.Range("A1:A40").Select

Next ColNum

End Sub

VBA：在公式中引用数组

0 个答案: