把工作表里的數據寫進數組里
大家記得我說的這句話,所有單元格區(qū)域裝入到數組里都是二維數組,且定義數組大小時,我們都是直接寫成這樣 dim arr1,不要給它分配空間大小,也不要在其后面加一對空的小括號
1.二個連續(xù)的單元格區(qū)域寫進數組里
Option Explicit
Sub 二個單元裝入到數組里()
Dim arr1
arr1 = Sheets(1).Range("A1:A2")
End Sub
2.同一行里連續(xù)5個單元格裝入數組里
Sub 一行連續(xù)五個單元格裝入到數組()
Dim arr1
arr1 = Sheets(2).Range("A1:E1")
End Sub
3.同一列里連續(xù)5個單元格裝入數組里
Sub 一列連續(xù)五個單元格裝入數組()
Dim arr1
arr1 = Sheets(3).Range("A1:A5")
End Sub
4.多行多列連續(xù)單元格區(qū)域裝入數組里
Sub 五行五列單元格區(qū)域裝入數組()
Dim arr1
arr1 = Sheets(4).Range("A1").CurrentRegion
End Sub
5.通過函數Array把數據裝入到數里
Sub 通過Aarry函數把數據裝入到數組里()
Dim arr1
arr1 = Array("佛山小老鼠", "李詩", "阿梅", "小平")
'大家記得,通過函數array裝進數組arr1里,是一維的,且第一個索引號是從0開始
End Sub
總結一下:
老鼠老師問:"小白同學,這一節(jié)課你學會了沒有?"
小白回答:老鼠老師,我這次沒有暈,我想送給你一首歌"
老鼠老師說:什么歌?
小白回答:那我唱了,老師,“"最愛喝的水永遠是黃河水,最愛說的話永遠是中國話，最愛查的窗口永遠是本地窗口”
老鼠老師說:謝謝小白同學的歌，老師知道您學會了這一節(jié)課，看您唱得那么開心。
單元格區(qū)域數據裝入數組.rar
本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現有害或侵權內容，請
點擊舉報。
