標題: Transpose .. [打印本頁]

---

作者: EGBT    時間: 2015-9-6 15:18     標題: Transpose ..

看了 Transpose .. 什麼垂直變水平..

我還是不太懂..也不知道如何運用

請求大大說明及教學..

---

作者: lpk187    時間: 2015-9-6 16:38

回復 1# EGBT

[attach]21911[/attach]

1. Public Sub ex()
   
2. arr = [A1:A4] '原資料為特直的A1:A4，黃色區域，其陣列寫式為
   
3. Range("B1").Resize(4) = arr '未改變放回儲存格(一樣為垂直式資料)，綠色區域
   
4. Range("c1").Resize(, 4) = Application.Transpose(arr) '改變後為水平
   
5. '下列則為上面的反式
   
6. brr = [A7:D7]
   
7. Range("A8").Resize(, 4) = brr
   
8. Range("A9").Resize(4) = Application.Transpose(brr)
   
9. 
   
10. End Sub

複製代碼

---

作者: EGBT    時間: 2015-9-6 21:50

回復 2# lpk187


    感恩大大的回覆 很棒喔!!

---

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