Sub test() ' 隨機取 出指定個數的不重複 Dim ar, num As Long, r, tmp ar = [D1:D10000].Value '原始資料(必須是不重複值 ... num = ...
forum.twbts.com