Sub 數組填充單元格()
? ? Dim aaa(3, 3)
? ? Dim temp(0, 2)
? ? ?aaa(0, 0) = "姓名"
? ? ?aaa(0, 1) = "llll"
? ? ?aaa(0, 2) = "jjjj"
? ? ?aaa(1, 0) = "性別"
? ? ?aaa(1, 1) = "男"
? ? ?aaa(1, 2) = "女"
? ? ?aaa(2, 0) = "序號"
? ? ?aaa(2, 1) = "1"
? ? ?aaa(2, 2) = "2"
? ? ?Range("a1").Resize(1, UBound(aaa, 2)) = aaa(1)
' ? ?temp(0) = aaa(0)
' ? ?aaa(0) = aaa(1)
' ? ?aaa(1) = temp(0)
End Sub

總結

以上是生活随笔為你收集整理的vba 数组填充单元格的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。