国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

• Erase函數(shù)：清空數(shù)組

Sub 清空數(shù)組()
arr = Array(1, 10, 50, 13)
Erase arr     '清空數(shù)組arr
End Sub

• ReDim方法：重新分配數(shù)組空間，默認情況下重新分配空間后數(shù)組內(nèi)容都會清空，加上preserve后可以保留原來的數(shù)據(jù)在進行分配空間

Sub 重新分配數(shù)組空間()
Dim arr()    '定義一個一維數(shù)組
ReDim arr(100) '重新定義數(shù)組大小
arr(50) = 10
ReDim Preserve arr(80)       '重新定義數(shù)組大小，并保留原來的數(shù)據(jù)
MsgBox arr(50)
End Sub

• LBound函數(shù)：指定的數(shù)組維可用的最小下標

Sub 獲取數(shù)組最小下標()
arr = Array(1, 10, 50, 13)
MsgBox LBound(arr)
End Sub

• UBound函數(shù)：指定的數(shù)組維可用的最大下標

Sub 獲取數(shù)組最大下標()
arr = Array(1, 10, 50, 13)
MsgBox UBound(arr)
End Sub

• Application.Max函數(shù)：判斷數(shù)組中的最大值

Sub 判斷數(shù)組中的最大值()
arr = Array(10, 1, 5, 4, -6, 9, 11, 9, -1)
MsgBox Application.Max(arr)     '判斷數(shù)組中的最大值
End Sub

• Application.Min函數(shù)：判斷數(shù)組中的最小值

Sub 判斷數(shù)組中的最小值()
arr = Array(10, 1, 5, 4, -6, 9, 11, 9, -1)
MsgBox Application.Min(arr)     '判斷數(shù)組中的最小值
End Sub

• Application.Large函數(shù)：判斷數(shù)組中的第N大值

Sub 判斷數(shù)組中的第二大值()
arr = Array(10, 1, 5, 4, -6, 9, 11, 9, -1)
MsgBox Application.Large(arr, 2)     '判斷數(shù)組中的第二大值
End Sub

• Application.Small函數(shù)：判斷數(shù)組中的第N小值

Sub 判斷數(shù)組中的第二小值()
arr = Array(10, 1, 5, 4, -6, 9, 11, 9, -1)
MsgBox Application.Small(arr, 2)     '判斷數(shù)組中的第二小值
End Sub

• WorksheetFunction.Transpose函數(shù)：單元格區(qū)域放入轉(zhuǎn)化為數(shù)組，要注意的是，轉(zhuǎn)化為數(shù)組后第1位(起始下標)是1不是0，單元格區(qū)域的每列轉(zhuǎn)化為一維數(shù)組只需調(diào)用一次Transpose，每行轉(zhuǎn)化為一維數(shù)組則需連續(xù)調(diào)用兩次

Sub 單元格行或列內(nèi)容放入數(shù)組()
arr1 = WorksheetFunction.Transpose(Range("A1:A4"))  '將列內(nèi)容轉(zhuǎn)化為一維數(shù)組
arr2 = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Range("A1:D1"))) '將行內(nèi)容轉(zhuǎn)化為一維數(shù)組
End Sub

以上內(nèi)容對您有幫助可以分享或轉(zhuǎn)藏，避免以后找不到。想要了解更多VBA相關(guān)知識，歡迎到http://moqingyan.360doc.com我的個人圖書館查看。