2017-05-18 107 views
-1

我想REDIM與像多列的排列:VBA - 儲存值成多維數組

Dim f() as Variant 
ReDim f(0 To 0, 0 To 0) As Variant 
ReDim Preserve f(0 To UBound(f), 0 To UBound(f)) 

要獲得這樣的事情:

[15 34 70] 

當我嘗試存入陣列,我這樣做:

f(0,i) = ... 
f(1,i) = ... 
f(2,i) = ... 

代碼有什麼問題?

+0

'UBound函數(F)'是零。當你準確地把它的大小爲3?它也是一維的[15 34 70]。你是什​​麼意思的多維? – Masoud

+0

對於每一列,我使用不同的公式。 – vbalearner

+0

這是完全不清楚你問的。顯示實際的代碼和實際問題。 – Masoud

回答

0

我想創建一個數組,列數可以增加1行和3列。首先,我需要重新調整空數組(Dim f() As Variant),如下所示(ReDim f(0 To a, 0 To 3))。上面的代碼不起作用,因爲我正在嘗試Redim已經標註尺寸的數組。

其次,我想要的陣列返回:

f(0,i) = "Bring the value from, for instance, cells A9" 
f(0,i+1) = "Bring the value from, for instance, cells A16" 
f(0,i+2) = "Bring the value from, for instance, cells G16"