如何从多维VBA数组中删除有用的值？

Question

函数以（j，0）（i，0）的形式返回一个4维数组。想要将其转换为（j，i）形式的二维数组。如何将值i移动到j旁边的插槽中，然后重新标注数组以删除“备用”二维？

Answer 1

将您的问题分成两部分：

<强> 1。如何将值i移动到j

旁边的插槽中

创建一个新的二维数组。循环遍历两个数组，并根据需要将旧的四维数组中的值分配给新的二维数组。然后Erase旧的四维数组释放内存。

<强> 2。然后重新标注数组以删除“备用”二维？

这是不可能的 - 或者至少在没有擦除阵列内容的情况下也是如此。您可以使用ReDim删除平面尺寸，但会删除数组中包含的所有数据，从而无法实现目的。

这就是为什么我让你在上面的第1部分中创建一个新数组。