隨機獲取1到10中的10個數怎麼實現

今天說一個抽獎的例子

問題如下：

解決的思路如下：

程式碼執行的結果如下：

程式碼如下：

程式碼解析

1：dim定義變數

2：獲取資料來源的最後一個非空單元格行號

3：把資料來源的區域，賦值給陣列

4：設定迴圈，用RandBetween函式隨機獲取數值（數值範圍為1到最後一的資料的列號）

5：把獲得的最後陣列，賦值給一維陣列

6：清空C列的陣列

7：使用轉置函式在一列中寫入資料

RandBetween 方法

語法

表示式。RandBetween（ Arg1 ， Arg2 ） as Double。返回一個Double型別的數值

表示式_一個表示WorksheetFunction物件的變數。

引數：

點選關注，可以閱讀更多與VBA 相關的文章

私信 VBA或 vba 可以獲取文章中含VBA程式碼的Excle檔案