如何透過VBA隨機"萬中取一"(但不能重複),抽完一萬次

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

1^# 跳轉到 »

發表於 2015-7-24 10:59 | 顯示全部帖子

詢問 #11 與 #12

ar = [D1:D10000].Value '原始資料(必須是不重複值)

複製代碼

這行能否自動抓取 D欄位的數量不要預設10000

例如
我的資料有2000筆但不一定每次都是2000筆
不想預設每一次都要重新輸入筆數。

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

2^#

發表於 2015-7-24 13:05 | 顯示全部帖子

回復 11# stillfish00
回復 12# Hsieh

ar = [D1:D10000].Value '原始資料(必須是不重複值)

複製代碼

這行能否自動抓取 D欄位的數量不要預設10000

例如
我的資料有2000筆但不一定每次都是2000筆
不想預設每一次都要重新輸入筆數。

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

3^#

發表於 2015-7-27 13:27 | 顯示全部帖子

回復 16# PKKO

謝謝已成功如我需求的抽出 : )

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

4^#

發表於 2015-7-27 14:12 | 顯示全部帖子

回復 16# PKKO

您好
   增加了兩個需求，想詢問。

   假設
         1. 如果要將隨機取的值在原始資料的X欄位標記已取
         2 在隨機取的前置條件為X欄位未標記的才進行篩選.

   例如: A為原始資料  B為隨機取的值 X為標記

               第一次隨選    第二次隨選    第三次隨選
                  A X B          A X B          A X B
                  1       2          1       1          1 O 3
                  2                      2 O             2    O
                  3                      3                      3