VBA自动填充多维数组

Question

作为一个初学者，我想问一下在VBA中是否可以自动填充多维数组中的公式。

我想到并编写了这段代码，它适用于值，但不适用于公式。

我认为我想做的事对我的技能很有野心

 Sub eucldiist()
     Dim e(10,10) As Double, i As Integer, j As Integer
     For i = 1 To 10
         For j = 1 To 10
             e(i, j).FormulaArray = "=sqrt((offset('Data1'!$Q$14,$BD$5(offset(i)) -
 offset('Data1'!$Q$14,$BD$5(offset(j))^2+ ((offset('Data1'!$U$14, 
 $BD$5(offset(i))-OFFSET('Data1'!$U$14,$BD$5(offset(j)))^2)"
         Next j
     Next i

     Sheets("Calculations").Select: Range("A20").Select

     For i = 1 To 10
         For j = 1 To 10
             ActiveCell.Value = e(i, j)
             ActiveCell.Offset(0, 1).Select
         Next j
         ActiveCell.Offset(1, -10).Select
     Next i
 End Sub

我可能要做什么？

Answer 1

看一下这个。 先将一些公式放在a20：j29中

Option Explicit

Sub test()

    Dim aaa As Variant
    aaa = Range("a20").Resize(10, 10).Formula

    Stop  ' now examine aaa in "locals" window 

    ' maybe all you want is this

    range("a20").Resize(10,10).FormulaArray = "=SQRT((OFFSET(DATA1!Q14,BD5,0)-OFFSET(DATA1!Q14,BD7,0))^2+((OFFSET(DATA1!U14,BD5,0)-OFFSET(DATA1!U14,BD7,0))^2))"


End Sub

Answer 2

我认为这就是你想要的

注意：公式使用绝对寻址，因此列或行插入将破坏它

从公式中删除$使其使用相对寻址

Sub eucldiist()

    Dim base As Range
    Set base = Sheets("Calculations").Range("A20")
'   Set base = ActiveSheet.Range("A20")

    Dim formula As String

    Dim i As Integer, j As Integer

    For i = 0 To 9            ' rows
        For j = 0 To 9        ' columns
            formula = "=sqrt(" _
                    & "   (offset('Data1'!$Q$14,$BD$" & 5 + i & ",0) - offset('Data1'!$Q$14,$BD$" & 7 + j & ",0))^2" _
                    & " + (offset('Data1'!$U$14,$BD$" & 5 + i & ",0) - offset('Data1'!$U$14,$BD$" & 7 + j & ",0))^2" _
                    & ")"
    '       Debug.Print formula
            base.Offset(i, j) = formula
        Next j
    Next i
End Sub