Question

vba 自定义函数为数组，怎样按顺序填充入连续的单元格？

例如我有个自定义函数返回了{1，2，3，4，5，6，7，8}
我选择A1:A8单元格填充公式，会自动A1=1,A2=2,A3=3...........A8=8
我已经试出结果了 是我没有用transpose转至数组 因为一维数组是横的

Answer 1

Sub test1()
    '假设之前返回的数组为a()
    For i = 1 To UBound(a)
        Range("A" & i).Value=a(i - 1)
    Next
End Sub

追问

这种方式太慢了，遍历单元格就没有了数组的优势，所以还是一次性粘贴比较好哦

Answer 2

Sub test1()
    Dim ar()
    ar = Array(1, 2, 3, 4, 5, 6, 7, 8)
    Range("A1").Resize(UBound(ar) + 1) = Application.Transpose(ar)
End Sub

Answer 3

我也想知道这个问题的答案