系統(tǒng)環(huán)境：Windows 10Excel:2016版

本系列介紹數(shù)組功能

今天，我們將討論數(shù)組如何與Excel單元格傳遞信息，即數(shù)組如何讀取單元格中的信息。數(shù)組信息寫入Excel單元格的方式

第1部分：應(yīng)用場景

有兩份excel工作表。表1:excel讀取。表2:寫入數(shù)組、空表實(shí)現(xiàn)功能1、讀取Excel中的信息：讀取表1中的A1-C1單元格區(qū)域、分配數(shù)組arr1讀取表1中的A2-C3單元格區(qū)域、分配給數(shù)組arr2實(shí)現(xiàn)功能2、數(shù)組由Excel表中的arr1寫入表2中的A1-C1

圖1 excel讀取

第2部分：代碼

Sub test1()

讀取Excel數(shù)據(jù)

Set shtExcel=T('Excel讀取')

Arr1=('A1:C1 ')

Arr2=('A2:C3 ')

陣列會(huì)寫入Excel

Arr3=Array(1、2和3)

Arr4=array (array (4、5、6)、array (7、8、9))

轉(zhuǎn)動(dòng)

Arr5=Work(arr4)

Arr6=Work(arr5)

Set shtArr=T(“寫入數(shù)組”)

(' A1 ')。Resize(1，3)=arr1

(' A2 ')。Resize(2，3)=arr2

(' E1 ')。Resize(1，3)=arr3

(' E2 ')。Resize(2，3)=arr4

(' E7 ')。Resize(1，3)=arr4(0)

(' E8 ')。Resize(1，3)=arr4(1)

(' E10 ')。Resize(2，3)=arr6

End Sub

圖2執(zhí)行程序

圖3運(yùn)行結(jié)果

第3部分：部分代碼解釋

Excel單元格將數(shù)據(jù)讀取到數(shù)組中，如果將單元格區(qū)域分配給數(shù)組，則無論分配了值的第1行或第2行單元格是什么，該數(shù)組都是二維數(shù)組。通過Resize函數(shù)，首先是單元格區(qū)域單元格。請(qǐng)注意Resize(行、列數(shù))，單元格構(gòu)成矩形的左上角矩形區(qū)域，該數(shù)組必須是二維數(shù)組。否則，表2中的E2-G3區(qū)域(相應(yīng)的代碼(“E2”)。Resize(2，3)=arr 4；如果不成功，則返回多個(gè)#N/A)。如圖4所示(更正前面句子錯(cuò)誤)，每個(gè)元素可以旋轉(zhuǎn)Work兩次，以替換為實(shí)際的二維數(shù)組arr6。如果在本地窗口中查看兩個(gè)數(shù)據(jù)(如圖6所示)，則可以看到兩種表示形式之間的差異。

圖4 arr4

圖5 arr6

上面，為了這次介紹的內(nèi)容，下次見。

這篇文章在微信公眾號(hào)Excel高效辦公室的VBA上發(fā)行。排版和細(xì)節(jié)稍加修改，刊登在頭條上