請問我想排除隨機號碼該怎編寫

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-11-28 17:34 | 顯示全部帖子

Private Sub Worksheet_Calculate()
Do
[a2:a6] = "=RandBetween(1, 42)"
Loop Until [sumproduct(1/countif(a1:a6,a1:a6))] = 6
End Sub

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。