Question

我想将我已存储在我的VBA内存中的数组中的数据直接用到我的工作表中的公式中。作为一个例子，我想避免使用Application.vlookup（）单独打印到每个单元格，因为这很慢。而是做类似以下的事情

Sub MySub()
    Dim MyArrayStoredInVBaMemory() As Variant
    MyArrayStoredInVBaMemory = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    Cells(1, 1).Value = 1
    Cells(1, 2).FormulaR1C1 = "=vlookup(RC1,MyArrayStoredInVBaMemory,1,0)"
    Cells(1, 2).Copy
    Cells(1, 2).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

感谢您的帮助。

Answer 1

一种方法是从数组

创建 String

Sub qwerty()
    ary = Array(1, 2, 3)
    Dim st As String
    st = ary(0) & "," & ary(1) & "," & ary(2)
    Range("A1").Formula = "=SUM(" & st & ")"
End Sub

将Memory数组中的信息读入excel表公式

1 个答案: