把工作表里的數據寫(xiě)進(jìn)數組里
大家記得我說(shuō)的這句話(huà),所有單元格區域裝入到數組里都是二維數組,且定義數組大小時(shí),我們都是直接寫(xiě)成這樣 dim arr1,不要給它分配空間大小,也不要在其后面加一對空的小括號
1.二個(gè)連續的單元格區域寫(xiě)進(jìn)數組里
Option Explicit
Sub 二個(gè)單元裝入到數組里()
Dim arr1
arr1 = Sheets(1).Range("A1:A2")
End Sub
2.同一行里連續5個(gè)單元格裝入數組里
Sub 一行連續五個(gè)單元格裝入到數組()
Dim arr1
arr1 = Sheets(2).Range("A1:E1")
End Sub
3.同一列里連續5個(gè)單元格裝入數組里
Sub 一列連續五個(gè)單元格裝入數組()
Dim arr1
arr1 = Sheets(3).Range("A1:A5")
End Sub
4.多行多列連續單元格區域裝入數組里
Sub 五行五列單元格區域裝入數組()
Dim arr1
arr1 = Sheets(4).Range("A1").CurrentRegion
End Sub
5.通過(guò)函數Array把數據裝入到數里
Sub 通過(guò)Aarry函數把數據裝入到數組里()
Dim arr1
arr1 = Array("佛山小老鼠", "李詩(shī)", "阿梅", "小平")
'大家記得,通過(guò)函數array裝進(jìn)數組arr1里,是一維的,且第一個(gè)索引號是從0開(kāi)始
End Sub
總結一下:
老鼠老師問(wèn):"小白同學(xué),這一節課你學(xué)會(huì )了沒(méi)有?"
小白回答:老鼠老師,我這次沒(méi)有暈,我想送給你一首歌"
老鼠老師說(shuō):什么歌?
小白回答:那我唱了,老師,“"最?lèi)?ài)喝的水永遠是黃河水,最?lèi)?ài)說(shuō)的話(huà)永遠是中國話(huà)，最?lèi)?ài)查的窗口永遠是本地窗口”
老鼠老師說(shuō):謝謝小白同學(xué)的歌，老師知道您學(xué)會(huì )了這一節課，看您唱得那么開(kāi)心。
單元格區域數據裝入數組.rar
