借助循環語句為數組賦值

借助循環語句為數組賦值

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

1、將1到100的自然數存入數組arr

Sub 將1到100的數存入數組()Dim Arr(1 To 100) As Integer, i As ByteFor i = 1 To 100Arr(i) = iNextEnd Sub

2、將活動工作表A1:A100中的數據存入數組brr

Sub 將區域中的數據存入數組()Dim Brr(1 To 100), i As ByteFor i = 1 To 100Brr(i) = Cells(i, "A").ValueNext iEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。