如何合併陣列 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何合併陣列

返回列表下一主題上一主題發帖

[發問] 如何合併陣列

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-5-12 17:42 | 顯示全部帖子

回復 1# sunnyso

Option Explicit
Sub EX()
Dim A As Variant, B As Variant, C As Variant, I As Integer
A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
B = Array(Array("A4", "B4", "C4"), Array("A5", "B5", "C5"))
C = A
For I = 0 To UBound(B)
ReDim Preserve C(0 To UBound(C) + 1)
'ReDim 陳述式在程序層次中用來重新配置動態陣列變數的儲存空間。
'Preserve 當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字
C(UBound(C)) = B(I)
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-12 20:47 | 顯示全部帖子

回復 4# sunnyso
待我再想一想有無!!!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-5-22 17:35 | 顯示全部帖子

回復 11# ML089

Option Base 0 'Option Base 陳述式在模組層次中用來宣告陣列索引的預設下限
Sub Ex()
Dim A As Variant, B As Variant, C As Variant, i As Integer
'儲存格的範圍 = 是一個二維陣列 ,它的索引的預設下限是 1.
A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
'A為一維陣列: 元素也是一維陣列
[I1] = "A無法置入"
[I2].Resize(3, 3) = A
'*** 不轉置的寫法 **************
[E1] = "不轉置的寫法"
For i = 0 To UBound(A)
[E1].Offset(i + 1).Resize(1, 3) = A(i)
Next
'********************************
B = Application.Transpose(A) '轉置一次可以一次寫入 A 陣列於儲存格
'****轉置後的陣列下限是 1 開始不用 +1
[A1].Resize(UBound(B), UBound(B, 2)) = B
[A1].End(xlDown).Offset(1) = "第二次轉置*"
C = Application.Transpose(Application.Transpose(A))
[A1].End(xlDown).Offset(1).Resize(UBound(A) + 1, 3) = C
Stop '看看變數
End Sub
Sub Ex__A()
'列 = 一維陣列
Cells.Clear
A = Array("A1", "B1", "C1")
[A1:C1] = A
B = Application.Transpose(A)
[a5:A7] = B
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-23 10:28 | 顯示全部帖子

回復 13# ML089
12#程式碼沒說清楚

24. '列 = 一維陣列

複製代碼

清楚一點應該是: 單列(A1:F1)的儲存格範圍 = 一維陣列, 單列以上(A1:F5)的儲存格範圍 = 二維陣列
多練習熟悉就會了解

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

返回列表下一主題上一主題