- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
2#
發表於 2015-9-6 16:38
| 只看該作者
回復 1# EGBT
- Public Sub ex()
- arr = [A1:A4] '原資料為特直的A1:A4，黃色區域，其陣列寫式為
- Range("B1").Resize(4) = arr '未改變放回儲存格(一樣為垂直式資料)，綠色區域
- Range("c1").Resize(, 4) = Application.Transpose(arr) '改變後為水平
- '下列則為上面的反式
- brr = [A7:D7]
- Range("A8").Resize(, 4) = brr
- Range("A9").Resize(4) = Application.Transpose(brr)
- End Sub
|
|
