返回列表 上一主題 發帖

Transpose ..

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-9-6 16:38 | 顯示全部帖子
回復 1# EGBT

  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)

  10. End Sub
複製代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題