Excel VBA 陣列填充

子自動填充（）。

dim i as integer, namename = array("表1", "表2", "表3", "表4", "表5", "表6", "表7")

for i = 0 to ubound(name)windows(name(i) &".xls").activate"a1:

be183").copy workbooks("總結。 xls").

worksheets(name(i)).range("a1")

windows("總結。 xls").activatenext i

end sub

先決條件是必須首先開啟所有工作簿。

1 案例描述。

當您想在 Excel 中處理大量資料時，可以使用迴圈從每個單元格中讀取資料，對其進行處理，然後將其寫回單元格幹網格區域。 這比處理陣列中的資料要慢。 因此，如果有大量資料需要處理，可以先將資料儲存到陣列中，處理後再將陣列的資料填充到單元格範圍內。

此示例演示如何將二維陣列中的資料填充到工作表中。 埋葬愚蠢。

2 像關鍵技術一樣關閉液體。

在 Excel 工作表中，工作表是由行和列組成的二維結構。 此功能類似於 2D 陣列，因此很容易在一系列工作表單元格和 2D 陣列之間進行轉換。 您可以使用以下語句將單元格區域分配給二維陣列：

myarr = range(cells(1, 1), cells(5, 5))

相反，您可以快速將 2D 陣列中的值分配給單元格區域，例如以下語句將 2D 陣列 myarr 中的值分配給單元格區域 rng：

arr3 中。

1）建立乙個新的Excel工作簿，然後按快捷鍵“Alt + F11”進入VBE環境。

2） 單擊選單“插入模組”命令將模組插入到專案中。

3） 在模組中寫入以下內容：

option base 1

子陣列填充單元格區域 （）。

dim i as long, j as long

dim col as long, row as long

dim arr() as long

row = :="輸入行數：",type:=2)

col = :="輸入列數：",type:=2)

redim arr(row, col)

for i = 1 to row

for j = 1 to col

arr(i, j) =i - 1) *col + j

nextnext

set rng = sheets(1).range(cells(1, 1), cells(row, col))

arrend sub

4）返回excel操作環境，在工作表中新增乙個按鈕，將提示文字設定為“填充資料”，並將按鈕的巨集指定為“填充單元格範圍的陣列”。