12
返回列表 上一主題 發帖

[發問] 如何合併陣列

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-5-12 03:07 | 只看該作者

[發問] 如何合併陣列

本帖最後由 sunnyso 於 2013-5-12 03:09 編輯

請教各位大大，除了用For以外，VBA有沒有更簡潔有效的方法合併陣列呢？

例如
  1.   |A1 B1 C1|
  2. A=|A2 B2 C2|
  3.   |A3 B3 C3|

  5. B=|A4 B4 C4|
  6.   |A5 B5 C5|

  8. C= A ++ B

  10.   |A1 B1 C1|
  11.   |A2 B2 C2|
  12. C=|A3 B3 C3|
  13.   |A4 B4 C4|
  14.   |A5 B5 C5|
複製代碼
收藏 分享
ss

linyancheng

帖子
219 
主題
69 
精華
2 
積分
320 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-3-4 
15#
發表於 2014-2-10 17:22 | 只看該作者
ReDim Preserve 效率不好，建議只擴大一次完成，不要放入迴圈。

假設陣列從1開始
ReDim Preserve C(UBound(C)+UBound(B))

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2013-5-23 10:28 | 只看該作者
回復 13# ML089
12#程式碼沒說清楚
  1. 24.    '列 = 一維陣列
複製代碼
清楚一點應該是: 單列(A1:F1)的儲存格範圍 = 一維陣列, 單列以上(A1:F5)的儲存格範圍 = 二維陣列
多練習熟悉就會了解
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
13#
發表於 2013-5-22 21:47 | 只看該作者
回復 12# GBKEE

有點不太懂，請看看我的理解是否正確

A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
當 [A1:C3]=A 時，範圍儲存格視A為一維陣列，可是每個陣列其實又是為一個一維陣列，所以一個儲存格只能放入一個值沒有辦法儲存一組陣列，所以無法顯示

B = Application.Transpose(A)  或 B = Application.Transpose(Application.Transpose(A)) 時，會變成二維陣列，所以範圍儲存格就可以接受寫入陣列值。

A = Array("A1", "B1", "C1")
當 [A1:C3]=A 時，範圍儲存格視A為一維陣列，每陣列只有一值所有可以寫入
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2013-5-22 17:35 | 只看該作者
回復 11# ML089
  1. Option Base 0   'Option Base 陳述式  在模組層次中用來宣告陣列索引的預設下限
  2. Sub Ex()
  3.     Dim A As Variant, B As Variant, C As Variant, i As Integer
  4.     '儲存格的範圍 = 是一個二維陣列 ,它的索引的預設下限是 1.
  5.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
  6.     'A為一維陣列: 元素也是一維陣列
  7.     [I1] = "A無法置入"
  8.     [I2].Resize(3, 3) = A
  9.     '*** 不轉置  的寫法 **************
  10.     [E1] = "不轉置  的寫法"
  11.     For i = 0 To UBound(A)
  12.         [E1].Offset(i + 1).Resize(1, 3) = A(i)
  13.     Next
  14.     '********************************
  15.     B = Application.Transpose(A)                     '轉置一次可以 一次寫入 A 陣列於儲存格
  16.     '****轉置後的陣列  下限是 1 開始不用 +1
  17.     [A1].Resize(UBound(B), UBound(B, 2)) = B
  18.     [A1].End(xlDown).Offset(1) = "第二次轉置*"
  19.     C = Application.Transpose(Application.Transpose(A))
  20.     [A1].End(xlDown).Offset(1).Resize(UBound(A) + 1, 3) = C
  21.    Stop '看看變數
  22. End Sub
  23. Sub Ex__A()
  24.     '列 = 一維陣列
  25.     Cells.Clear
  26.     A = Array("A1", "B1", "C1")
  27.     [A1:C1] = A
  28.     B = Application.Transpose(A)
  29.     [a5:A7] = B
  30. End Sub
複製代碼
EX.GIF
2013-5-22 17:34
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
11#
發表於 2013-5-22 15:55 | 只看該作者
回復 8# Hsieh

請問為何要用 2個 Application.Transpose(Application.Transpose(A)) 來轉?
  1. A1].Resize(UBound(A) + 1, 3) = Application.Transpose(Application.Transpose(A)) '陣列A寫入工作表
複製代碼
當然我測試了一下 A1].Resize(UBound(A) + 1, 3) = A，這代碼沒有寫回工作表

我寫一個小例子如下，不用Application.Transpose(Application.Transpose(A))卻可以寫回工作表，
請問之間的差異是什麼?
  1. Sub test2()
  2. A = Evaluate("{""A1"",""B1"",""C1"";""A2"",""B2"",""C2"";""A3"",""B3"",""C3""}")
  3. [A1:F6] = ""
  4. [A1].Resize(3, 3) = A
  5. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
10#
發表於 2013-5-18 09:19 | 只看該作者
回復 8# Hsieh

感謝超版
ss

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2013-5-18 09:15 | 只看該作者
本帖最後由 c_c_lai 於 2013-5-18 09:18 編輯

回復 7# sunnyso
回復 5# GBKEE
回復 8# Hsieh
謝謝 GBKEE 以及 Hsieh 兩位大大的範例。
茲將它們稍稍引用：
  1. Option Explicit

  3. Sub EX()            '  GBKEE
  4.     Dim A As Variant, B As Variant, C As Variant, I As Integer
  5.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2") ,Array("A3", "B3", "C3"), Array("A4", "B4", "C4"))
  6.     B = Array(Array("A5", "B5", "C5"), Array("A6", "B6", "C6"))
  7.     C = A
  8.     For I = 0 To UBound(B)
  9.         ReDim Preserve C(0 To UBound(C) + 1)
  10.         'ReDim 陳述式  在程序層次中用來重新配置動態陣列變數的儲存空間。
  11.         'Preserve  當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字
  12.         C(UBound(C)) = B(I)
  13.     Next
  14.     Range("A1").CurrentRegion = ""
  15.     '  UBound(C) = 5,  UBound(C(0)) = 2
  16.     [A1].Resize(UBound(C) + 1, UBound(C(0)) + 1) = Application.Transpose(Application.Transpose(C))                       ' 陣列A寫入工作表
  17. End Sub

  19. Sub EX2()             '  Hsieh
  20.     Dim A As Variant, B As Variant, C As Variant, D As Variant, I As Integer

  22.     Range("A1").CurrentRegion = ""
  23.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"), Array("A4", "B4", "C4"))
  24.     B = Array(Array("A5", "B5", "C5"), Array("A6", "B6", "C6"))

  26.     '  UBound(A) = 3, UBound(A(0)) = 2
  27.     [A1].Resize(UBound(A) + 1, UBound(A(0)) + 1) = Application.Transpose(Application.Transpose(A))                       ' 陣列A寫入工作表
  28.     '  UBound(A) = 3, UBound(B) = 1, UBound(B(0)) = 2
  29.     [A1].Offset(UBound(A) + 1).Resize(UBound(B) + 1, UBound(B(0)) + 1) = Application.Transpose(Application.Transpose(B)) ' 陣列B寫入工作表

  31.     D = Range("A1").CurrentRegion.Value                                                                   ' 將儲存格資料存成新陣列
  32.     Range("A1").CurrentRegion = ""
  33.     '  UBound(D, 1) = 6,  UBound(D, 2) = 3
  34.     [A1].Resize(UBound(D, 1), UBound(D, 2)) = D                                                           ' 寫回工作表
  35. End Sub
複製代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2013-5-17 23:40 | 只看該作者
回復 7# sunnyso
  1. Sub EXE()
  2.     Dim A As Variant, B As Variant, C As Variant, D As Variant, I As Integer
  3.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
  4.     B = Array(Array("A4", "B4", "C4"), Array("A5", "B5", "C5"))
  5.     [A1].Resize(UBound(A) + 1, 3) = Application.Transpose(Application.Transpose(A)) '陣列A寫入工作表
  6.     [A1].Offset(UBound(A) + 1).Resize(UBound(B) + 1, 3) = Application.Transpose(Application.Transpose(B)) '陣列B寫入工作表
  7.     D = Range("A1").CurrentRegion.Value '將儲存格資料存成新陣列
  8.     Range("A1").CurrentRegion = ""
  9.     [A1].Resize(UBound(D, 1), UBound(D, 2)) = D '寫回工作表
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
7#
發表於 2013-5-17 22:30 | 只看該作者
回復 6# stillfish00

感謝, 可否提供code參考

thanks
ss

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
12
返回列表 上一主題