返回列表 上一主題 發帖

Transpose ..

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-6 15:18 | 只看該作者

Transpose ..

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

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

請求大大說明及教學..
收藏 分享

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 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

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
3#
發表於 2015-9-6 21:50 | 只看該作者
回復 2# lpk187


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

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題