每列随机生成不重复数字，请大神帮忙修改一下代码？

tanglf188

xicu3d 发表于 2023-2-1 12:58
最主要我不习惯这种随机方式，用vba代码可以点击一下随机，而表格rand()函数我随意动一下就变动了，不习 ...

1. Sub test6()
   
2.     Application.ScreenUpdating = False
   
3.     Dim i%
   
4.     Range("G2:K28").ClearContents
   
5.     Sheet1.Range("B2:B101") = "=Rand()"
   
6.     With Sheet1.Sort '根据B列随机数排序
   
7.         .SortFields.Clear
   
8.         .SortFields.Add2 Key:=Range("B2:B101"), SortOn:=xlSortOnValues
   
9.         .SetRange Range("A2:B101")
   
10.         .Apply
    
11.     End With
    
12.     For i = 1 To 4
    
13.         Sheet1.Range("A" & (i - 1) * 27 + 2 & ":A" & i * 27 + 1).Copy Sheet1.Range(Chr(70 + i) & 2)
    
14.     Next
    
15.     Range("B2:B101").ClearContents
    
16.     With Sheet1.Sort '恢复A列排序
    
17.         .SortFields.Clear
    
18.         .SortFields.Add2 Key:=Range("A2:A101"), SortOn:=xlSortOnValues
    
19.         .SetRange Range("A2:A101")
    
20.         .Apply
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码

tanglf188

xicu3d 发表于 2023-2-1 12:58
最主要我不习惯这种随机方式，用vba代码可以点击一下随机，而表格rand()函数我随意动一下就变动了，不习 ...

哈哈，说白了你的需求就是随机排序，我写了一段随机排序的代码，正在审核，看看能不能满足你的需求。

tmplinshi

xicu3d

谢谢tmplinshi老师，学习了。

xicu3d

tanglf188老师，程序运行不了，不知道是不是版本问题？

gwjkkkkk

参与一下，请楼主参考附件。。。

xicu3d

gwjkkkkk 发表于 2023-2-1 18:49
参与一下，请楼主参考附件。。。

谢谢gwjkkkkk老师，代码完全符合。

xicu3d

感谢各位老师的参与，完全符合的有chxw68老师、tmplinshi老师以及gwjkkkkk老师.