如何将VBA一维数组输出从水平改为垂直?

问题描述

在下面的 VBA 子程序中,我生成了一个随机数数组(“ArrSim”),这样的数组大小为 10 行 x 3 列。运行子程序时,此数组将粘贴到活动工作表的单元格 A1:C10 中。然后我生成另一个数组(“ArrRowAvg”),其中为 ArrSim 数组的每一行计算平均值。这工作正常。第二个数组 ArrRowAvg 的结果被水平粘贴到单元格 E1:N1 中的工作表中。

如何更改代码,以便垂直粘贴 ArrRowAvg,始终粘贴在 ArrSim 数组右侧的两列?为了简单起见,下面的代码被缩写和一些输入变量硬编码;在完整代码中,用户输入所需的 ArrSim 大小。我只需要知道如何使 ArrRowAvg 垂直粘贴。我在没有运气的情况下摆弄了转置和索引函数。

**geo.distance(location,geography'POINT(-122.131577 47.678581)') asc**

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)