VBA的数组，转置为啥不成功

形式上看没问题，我只能猜测字典是空的，没有内容，导致d.items也是空，参数r2就是0，这种情况下resize(r2,1)会出错误。

你的R2的值是多少？

一般这样的情况，我们用d.count来确定
一维数组 从0 开始的。。。 明明有2个数 上届到1
Arr(0)
Arr(1)
ubound并不是用来确定有几个数 只是用来确定上标多少
我们定义 redim arr( -4 to -1) 这样也是可以的
这个时候给的 ubound(Arr) 那就是-1
只不过平时我们大多都从1 开始
所以ubound感觉默认成了一共几个个数
字典的一维数组是从0开始的