標題: Resize & Transpose練習 [打印本頁]

---

作者: lai.k.h    時間: 2011-3-12 16:11     標題: Resize & Transpose練習

請問一下檔案中為什麼無法將陣列結果顯示出來,因我對Resize與Transpose的運用仍不熟悉,所以想借此練習,期能更加瞭解,或是有相關範例可供參考,謝謝各位老師的指導.

---

作者: GBKEE    時間: 2011-3-12 16:30

回復 1# lai.k.h
Sub 陣列存取()
Dim Ar()
A = [c3:f5]
For i = LBound(A, 1) To UBound(A, 1)
   For j = LBound(A, 2) To UBound(A, 2)
   ReDim Preserve Ar(s)
   Ar(s) = A(i, j)
   s = s + 1
   Next
   Next
   [K11].Resize(s) = Application.Transpose(Ar)                       '直列
   [K11].Resize(1, s) = Ar                                  '橫列
End Sub

---

作者: lai.k.h    時間: 2011-3-12 17:22

回復 2# GBKEE


    GBKEE謝謝您,我大概知道意思了.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)