范围在Excel中使用VBA

Question

我想创建一个功能MyRange如下：

输入：三个数的a，b，d
输出：值从阵列以与步骤大小B d。

例如，如果A1包含1，和B1含有5，和你写= MyRange（A1，B1,1）在小区C1（和你按下Ctrl + Shift + Enter键）你得到：

A | B | C | D | E | F | G 
------------------------- 
1 | 5 | 1 | 2 | 3 | 4 | 5 

这里是我的审判：

Function MyRange(a, b, d) 
Dim Index As Integer, Number As Integer 
Dim Res() As Integer 
Index = 0 
For Number = a To b Step d 
    Res(Index) = Number 
    Index = Index + 1 
Next Number 
MyRange = Res 
End Function 

当我尝试这一点，Excel中抛出#VALUE！我不知道有什么问题..

BTW，是的，我有一个类似的问题，在此之前，没有得到答案，因为它太复杂了，所以我会删除它，在这里简化我的问题。

Answer 1

清理该位为我工作。主要是，我添加了ReDim Preserve来为阵列添加维度。

Function MyRange(a As Integer, b As Integer, d As Integer) As Integer() 

    Dim Index As Integer, Number As Integer 
    Dim Res() As Integer 

    Index = 0 

    For Number = a To b Step d 

     ReDim Preserve Res(Index) 
     Res(Index) = Number 
     Index = Index + 1 

    Next Number 

    MyRange = Res 

End Function 

您将遇到的问题是有多少列从C中选择以输入您的公式。这将取决于d/b。