1樓：匿名使用者
sub test()
dim a(0 to 5) '//定義乙個一維陣列，下標從0到5共6個元素
dim b() '//定義乙個動態陣列，陣列維度與元素不確定，一般需要通過redim重新定義陣列大小才能給其賦值
dim c(1 to 5, 2 to 3) '//定義乙個二維陣列end sub
2樓：零落的小釘錘
定義即宣告，如
a=array(1,3,5,6,1,3,8)
如何定義在vba中定義乙個動態陣列？
3樓：狐狸的小豬
沒有動態陣列吧
就算利用 dim arr（）as string這樣宣告，一旦賦值後，陣列大小也就固定了。
如果要改變陣列大小
要用redim 命令
redim arr（10）
preserve redim arr（）
加preserve 可以不清空陣列，保持原有資料
4樓：匿名使用者
這個與在vb裡是一樣的格式！
dim d() as 資料型別
5樓：匿名使用者
dim a() as string
vba中如何在宣告自定義函式之前給陣列賦值
6樓：匿名使用者
可以在bai函式中定義靜態型別
dustatic a '只能定義通zhi用型別，否則isempty 檢查不dao出來。
if isempty(a) then '這樣保證回陣列只賦值
答一次redim a(5) as string'對陣列賦值操作
end if
在excel vba裡, 定義陣列並賦值,編譯錯誤.請高手指點.
7樓：匿名使用者
陣列賦值不能直接這樣用 等於 某個單元格區域……要通過迴圈語句逐個賦值……考慮修改如下：
dim aa() as double
redim arr(1 to 1036)
for i = 1 to 1036
arr(i) = cells(i, 8)
next
stop
由於你使用了 動態陣列 所以在賦值前 必須給它乙個重新設定範圍的語句 redim……
8樓：匿名使用者
自己以前學習的東西給你看一下：你給的語句如果要付值應該這樣寫：
dim aa() as arr
aa()=sheet1.range("h0:h1036")'這裡就把h0:h1036付給了aa()這個陣列！已經有值，只是涉及到讀取問題了，看下面的吧：
9樓：excel開發
要乙個乙個地進行賦值，另外h0這個單元格是不存在的，至少從h1開始吧
在VBA中如何用陣列給另陣列賦值
通過陣列迴圈的方式進行陣列賦值。示例 dim names 定義一個初始化陣列dim dest 3 定義一個要賦值的陣列 賦值names array 小明 小紅 效力 張明 王武 通過ubound 函式計算上界，lbound計算陣列下界for i lbound dest to ubound dest ...
vba等號後面如何賦值多個值，vba如何在乙個有內容的單元格後面賦值（插入）乙個變數的值
sub yanse dim rg as range,x,sx array 1,3,7,22 所有情況x join x,for each rg in range a1 g7 s rg.value with rg.interior if instr 1,x,s 0 then x colorindex 1...
VBA中如何定義文字型變數，Excel 在VBA中怎麼定義字串變數
物件就是的賦值，必需使用set語句 public sub 測試 dim dyg as range set dyg range b2 end sub 你完全可以不用定義為單元格物件，直接賦值就行了public sub 測試 dim dyg 定義字串變數 dyg range b2 end sub 參考下...