返回列表 上一主題 發帖

[發問] 如何合併陣列

回復 4# sunnyso
兩個二維Array,不使用For,合併為一個
我只想的到借用工作表...
把兩個 Array 丟到儲存格再拿出來...

但是我感覺這樣比For沒有效率

TOP

回復 4# sunnyso
待我再想一想有無!!!
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 3# GBKEE

感謝大大, 請問有沒有不用迴圈的方法.
ss

TOP

回復 1# sunnyso
  1. Option Explicit
  2. Sub EX()
  3.     Dim A As Variant, B As Variant, C As Variant, I As Integer
  4.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
  5.     B = Array(Array("A4", "B4", "C4"), Array("A5", "B5", "C5"))
  6.     C = A
  7.     For I = 0 To UBound(B)
  8.         ReDim Preserve C(0 To UBound(C) + 1)
  9.         'ReDim 陳述式  在程序層次中用來重新配置動態陣列變數的儲存空間。
  10.         'Preserve  當改變原有陣列最後一維的大小時,仍然保有原來的資料的關鍵字
  11.         C(UBound(C)) = B(I)
  12.     Next
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 1# sunnyso


    大大您好:
不知引用array是否
符合大大的須求
c=array(a,b)

TOP

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題