1樓：12345額時代
1、首先開啟一個excel的檔案，在**中輸入簡單的**，比如學生身高**，如下圖所示。
2、接著，在**中輸入一維陣列的說明文字，滑鼠左鍵單擊【開發工具】選單標籤，在vba控制元件下拉選單中，並選擇按鈕控制元件，如下圖所示。
3、 然後，在**中繪製出按鈕控制元件，並修改控制元件名稱，比如使用一維陣列的名稱，如下圖所示。
4、接著，選擇按鈕控制元件，並滑鼠左鍵單擊【檢視**】按鈕，如下圖所示。
5、然後，在**視窗中輸入vba語句，比如輸入定義一維陣列的語句，並給一維陣列賦值，如下圖所示。
6、接著，在**視窗中，輸入一維陣列給單元格賦值的vba語句，如下圖所示。
7、最後，在設計視窗上，滑鼠左鍵單擊按鈕，可以看到**中的，通過vba程式的一維陣列，並輸出到身高的單元格中，顯示出資料了，如下圖所示。
2樓：匿名使用者
使用redim動態陣列即可。
sub test1()
dim a() as integer, irow as long, i as integer
irow = cells(rows.count, 1).end(xlup).row
redim a(irow - 1)
for i = 1 to ubound(a)a(i - 1) = range("a" & i)next
end sub
3樓：魚木混豬喲
**及註釋如下：
sub main()
x = range("a65536").end(3).row'x的值為a列中最後一個非空單元格行號
redim a(x)'重新定義陣列a，使之上限為xfor i = 1 to x『i從a1依次往下迴圈，直到最後一行a(i - 1) = range("a" & i)'將a列單元格值依次存放於陣列中
next
end sub
4樓：匿名使用者
使用worksheetfunction直接實現。
dim arr
arr = worksheetfunction.transpose(range("a2:b14")）
『arr就是一個二維陣列arr(1 to 2, 1 to 13)msgbox arr(2,1)
5樓：匿名使用者
for i=1 to range("a65536").end(xlup).row-x
x表示a列起始資料單元格的行號-1
怎樣限定excel的單元格數值長度
選中你要這樣設定的單元格 如 a1 a50 資料 有效性 設定,在 允許 下拉框中選 自定義 在下面公式後輸入 and or left a1,2 21 left a1,2 22 len a1 8 在 出錯警告 中輸入你要顯示的出錯資訊 用資料有效性解決。操作 1，選中你要填入 號的這區域，如a2至a...
excel如何提取單元格對應的數值
本例最終達到的效果是提取單元格中有規律資料，左右兩側的數字和字元。如果你的實際資料和本例不同，請檢視我寫的其他經驗介紹。本例規律是，數字和字元只出現一次，且都位於同側。直接展示公示結果，然後對其分析。第一行的公式為 left a1,2 len a1 lenb a1 分析，left函式為取左邊內容的函...
VBA單元格賦值問題
太極健 sub sheetcopy dim i as integer dim j as integer dim k as integer for i 1 to 100 for j 1 to 9 sheet2.cells i,j value sheet1.cells i,j value next j ...