VBA 整個表寫入 導出0----導出工具的步驟？

  Sub 整sheet讀入導出() Dim arr1 Dim arr2()   arr1 = Sheets("e_1").Range("a1:d3")   '只能給變量賦值，不能給數組賦值？ m = 1       Rem 二維數組，記住 x y 座標系分別是 row column For j = 1 To UBound(arr1, 2)    For i = 1 To UBound(arr1,

>>阅读原文<<