vba - 创建一个数组 1 :N in VBA

Question

这是一个 super 简单的问题，我还没有能够从以前的答案中拼凑出我想要的解决方案。

我在一张纸上有 N 张图像，只是想将它们分组。通常我会使用:

Sheets("Mail").Shapes.Range(Array(1,2,3,4,5)).Group

但是如果我想从 1 到 N 显然这不起作用。我目前正在尝试:

For i = 0 To Y / 33
  ReDim Preserve test(i)
  test(i) = i
Next i

Sheets("Mail").Shapes.Range(Array(test())).Group

但我不确定如何使用我的测试对象来复制我在非一般情况下使用的格式。任何帮助表示赞赏!

Answer 1

这是一个函数，返回从 M 到 N 的数值数组:

Public Function ReturnArrayAtoB(ByVal M As Long, ByVal N As Long) As Variant

    Dim lngCounter  As Long
    Dim arrReturn   As Variant

    ReDim arrReturn(N - M)

    For lngCounter = 0 To N - M
        arrReturn(lngCounter) = M + lngCounter
    Next lngCounter

    ReturnArrayAtoB = arrReturn

End Function

你是这样调用它的:

arrA = ReturnArrayAtoB(1, 5)
arrB = ReturnArrayAtoB(10, 12)

第一个返回 Array(1,2,3,4,5)第二个返回 Array(10,11,12)