EXCLE高手请进,关于随机排数的问题

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/18 03:15:31

EXCLE高手请进,关于随机排数的问题
第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏：假定原数据在A列,共有50个数字,请在B1单元格输入公式:
=RAND()*（141-90）+90用填充柄将公式向下复制到相应行.
选定两列数据,按B列排序,A列数据即为随机排序.
每次按B列排序后A列的顺序均不相同.
宏只要每次按B列排序就可以了!

下面这个宏是按规定动作录制的,可以满足要求.
Sub Macro()
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B50"), Type:=xlFillDefault
Range("B1:B50").Select
Selection.FormulaR1C1 = "=RAND()*(141-90)+90"
Range("B1").Select
Range("A1:B50").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
再问：高手，能不能给翻译一下！谢谢

EXCLE高手请进,关于随机排数的问题关于共振的问题,物理高手请进关于英语的问题,高手们请进. 关于英语的问题,英语高手请进! 关于化学平衡的问题,高手请进关于chemdraw的一个问题,高手请进几个关于加速度的问题,高手请进,急〜英语高手请进:关于冠词的一点小问题英语高手请进关于else的语法问题英语高手请进关于虚拟语气的问题一个关于学习英语的问题 ,英语高手请进化学应用高手请进!关于显色反应应用的问题