名簿から複数データを重複せずにランダムに抜き出すマクロ

　Sub ABCD無作為並び替え()

　Dim i As Integer, rd As Integer
　Dim x As String
　Dim mydata(4) As String

　mydata(1) = "A"
　mydata(2) = "B"
　mydata(3) = "C"
　mydata(4) = "D"

　For i = 1 To 4

　　Randomize

　'1 ～ 4 の整数を得ます
　　rd = Int(4 * RND + 1)

　'x に元のデータを保存しておきます
　　x = mydata(i)

　'配列データを他の配列データと交換します
　　mydata(i) = mydata(rd)

　'保存しておいたデータを交換先に入れます
　　mydata(rd) = x

　Next i

　'配列データ (ABCD) を並べます
　For i = 1 To 4
　　Debug.Print mydata(i);
　Next i

　End Sub

　Sub 複数選出A()

　Dim i As Integer, rd As Integer
　Dim x As String

　'10 個の要素をもつ配列を文字列型で宣言しておきます
　Dim mydata(10) As String

　'B3 から B12 のデータを配列に入れます
　For i = 1 To 10
　　mydata(i) = ActiveSheet.Cells(i + 2, 2)
　Next i

　'配列データを無作為に交換します
　For i = 1 To 10

　　Randomize

　　rd = Int(10 * RND + 1)
　　x = mydata(i)
　　mydata(i) = mydata(rd)
　　mydata(rd) = x

　Next i

　'D3～D5 に mydata(1)～mydata(3) を書き込みます
　For i = 3 To 5
　　ActiveSheet.Cells(i, 4) = mydata(i)
　Next i

　End Sub

　Sub 複数選出B()

　Dim i As Integer, ct As Integer, rd As Integer
　Dim x As String
　Dim mylist As ListObject
　Dim outrange As Range
　Dim mydata() As String

　Set mylist = ActiveSheet.ListObjects("名簿")
　Set listrange = ActiveSheet.ListObjects("名簿").DataBodyRange
　Set outrange = ActiveSheet.ListObjects("選出").DataBodyRange

　'名簿のデータ数を数えます
　ct = mylist.ListRows.Count

　'配列の要素数を決めます
　ReDim mydata(ct)

　'配列に名簿のデータを放り込みます
　For i = 1 To ct
　　mydata(i) = listrange.Cells(i, 1)
　Next i

　'配列データをシャッフルします
　For i = 1 To ct

　　Randomize

　　rd = Int(ct * RND + 1)
　　x = mydata(i)
　　mydata(i) = mydata(rd)
　　mydata(rd) = x

　Next i

　For i = 1 To 3
　　outrange.Cells(i, 1) = mydata(i)
　Next i

　End Sub