返回列表 上一主題 發帖

[發問] 關於資料轉置請教

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 »
發表於 2018-8-28 11:03 | 顯示全部帖子
SIR
如下  

Sub test()
    Dim arr
    arr = Sheet1.Range("E2:J50")
    Sheet1.Range("S2").Resize(UBound(arr, 2), UBound(arr)) = Application.WorksheetFunction.Transpose(arr)
End Sub
羅

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-8-28 11:24 | 顯示全部帖子
SIR
涵數如下 .然後往右COPY程式   
S2=OFFSET($E$2,COLUMN()-19,,,)
S3=OFFSET($F$2,COLUMN()-19,,,)
S4=OFFSET($G$2,COLUMN()-19,,,)
S5=OFFSET($H$2,COLUMN()-19,,,)
S6=OFFSET($I$2,COLUMN()-19,,,)
S7=OFFSET($J$2,COLUMN()-19,,,)
羅

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題