[a1].Resize(d.Count) = Application.Transpose(d.keys)
[b1].Resize(d.Count) = Application.Transpose(d.items)
d.keys 是壹個數組, d.items是壹個數組
transpose 數組 轉置
轉置 後放在A:B 兩列 即可