A1中空着，A2中输入=SMALL(IF(COUNTIF(A$1:A1,ROW($1:$30))=0,ROW($1:$30)),1+INT(RAND()*(31-ROW(A1))))同时按下CTRL+SHIFT+回车，输入数组公式，用自动填充柄下拉四格到A6，不断按下F9键查看效果。也可以下拉到A31，再F9，看看有重复的没有。
