返回列表 上一主題 發帖

矩陣合併

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
140  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-6-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2013-1-3 00:30 | 顯示全部帖子
回復 1# acdx
以四陣列為例
  1. Sub ex()
  2. Dim AHW(12), BHW(12), CHW(12), DHW(12), TAry, MyAry()
  3. For i = 0 To 11  '寫入4個一維陣列的值
  4.   AHW(i) = Int((100 * Rnd) + 1)
  5.   BHW(i) = Int((100 * Rnd) + 1)
  6.   CHW(i) = Int((100 * Rnd) + 1)
  7.   DHW(i) = Int((100 * Rnd) + 1)
  8. Next
  9. TAry = Array(AHW, BHW, CHW, DHW)  '合併四個一維陣列
  10. MyAry = Application.Transpose(Application.Transpose(TAry))  '將一維陣列轉成正確二維陣列
  11. [A1].Resize(4, 12) = MyAry  '將二維陣列寫入工作表
  12. For i = 1 To 4
  13.    For j = 1 To 12
  14.      MsgBox MyAry(i, j)  '取出二維陣列的值
  15.    Next
  16. Next
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題