将 字典d 放到 A:B 列: [a1].Resize(d.Count) = Application.Transpose(d.keys) [b1].Resize(d.Count) = Application.Transpose(d.items) d.keys 是一个数组， d.items是一个数组 transpose 数组 转置
