EXCLE高手请进,关于随机排数的问题第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏:假定原数据在A列,共有50个数字,请在B1单元格输入公式:
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 07:26:35
![EXCLE高手请进,关于随机排数的问题第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏:假定原数据在A列,共有50个数字,请在B1单元格输入公式:](/uploads/image/z/1046555-35-5.jpg?t=EXCLE%E9%AB%98%E6%89%8B%E8%AF%B7%E8%BF%9B%2C%E5%85%B3%E4%BA%8E%E9%9A%8F%E6%9C%BA%E6%8E%92%E6%95%B0%E7%9A%84%E9%97%AE%E9%A2%98%E7%AC%AC%E4%B8%80%E5%88%97%E6%9C%89%E4%BA%94%E5%8D%81%E4%B8%AA%E6%95%B0%E6%AF%94%E5%A6%82%E4%BB%8E91%E8%87%B3141%2C%E6%88%91%E6%83%B3%E8%AE%A9%E8%BF%99%E4%BA%94%E5%8D%81%E4%B8%AA%E6%95%B0%E5%9C%A8%E5%8F%A6%E5%A4%96%E4%B8%80%E5%88%97%E9%9A%8F%E6%9C%BA%E6%8E%92%E5%88%97%2C%E4%B8%8D%E8%A6%81%E5%87%BA%E7%8E%B0%E9%87%8D%E5%A4%8D%21%E6%88%96%E8%80%85%E5%81%9A%E4%B8%80%E4%B8%AA%E5%AE%8F%EF%BC%9A%E5%81%87%E5%AE%9A%E5%8E%9F%E6%95%B0%E6%8D%AE%E5%9C%A8A%E5%88%97%2C%E5%85%B1%E6%9C%8950%E4%B8%AA%E6%95%B0%E5%AD%97%2C%E8%AF%B7%E5%9C%A8B1%E5%8D%95%E5%85%83%E6%A0%BC%E8%BE%93%E5%85%A5%E5%85%AC%E5%BC%8F%3A)
EXCLE高手请进,关于随机排数的问题第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏:假定原数据在A列,共有50个数字,请在B1单元格输入公式:
EXCLE高手请进,关于随机排数的问题
第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏:假定原数据在A列,共有50个数字,请在B1单元格输入公式:
=RAND()*(141-90)+90用填充柄将公式向下复制到相应行.
选定两列数据,按B列排序,A列数据即为随机排序.
每次按B列排序后A列的顺序均不相同.
宏只要每次按B列排序就可以了!
EXCLE高手请进,关于随机排数的问题第一列有五十个数比如从91至141,我想让这五十个数在另外一列随机排列,不要出现重复!或者做一个宏:假定原数据在A列,共有50个数字,请在B1单元格输入公式:
下面这个宏是按规定动作录制的,可以满足要求.
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