ML089

回復 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

複製代碼

GBKEE

回復 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

複製代碼

下載 (55.42 KB)

2013-5-22 17:34

ML089

回復 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為一維陣列，每陣列只有一值所有可以寫入

GBKEE

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

1. 24.    '列 = 一維陣列

複製代碼

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

linyancheng

ReDim Preserve 效率不好，建議只擴大一次完成，不要放入迴圈。

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