excel函数

显示全部楼层 · 2010-7-3 08:22:30

A1-A50列中为1-50的数字
B1-B5列想要1-50之间的随机数，但是每个单元格中的数字都不重复

千问 · 2010-7-3 08:22:30

在当前表录制一个宏,把宏内代码改为如下.然后,执行宏.每执行一次.新出一次随机数.Dim a As Range, b As RangeSet a = Range("B1:B5")a.ClearContentsRandomizeFor Each b In aDob = Int(1 + Rnd * 50)Loop Until Application.WorksheetFunction.CountIf(a, b) = 1Next

千问 · 2010-7-3 08:22:30

A1=INT(RAND()*(50-1)+1),鼠标放在A1右下角,变成十字后,下拉至A50B1=RANK(A1,A1:A50),鼠标放在B1右下角,变成十字后,下拉至B5----B1:B5重复机率非常小,如果重复,可按F9重新计算.

千问 · 2010-7-3 08:22:30

你学会了没？