[已解决]随机乱序的问题

叶芳

附件 随机乱序附件.zip (119.16 KB, 下载次数: 6)

2015-5-22 17:21 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2015-5-22 17:47

随机乱序附件.rar (123.73 KB, 下载次数: 17)

2015-5-22 17:47 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

随机乱序附件.rar (123.73 KB, 下载次数: 17)

2015-5-22 17:47 上传

点击文件名下载附件

张雄友

zjdh 发表于 2015-5-22 17:47

不能忽略空值的。

张雄友

zjdh 发表于 2015-5-22 17:47

如何令这些数不走入黄色单元格（空单元）？

zjdh

1. Sub test()
   
2.     arr = Range("A1").CurrentRegion
   
3.     For i = 1 To UBound(arr, 2)
   
4.         For j = 1 To UBound(arr)
   
5.             r = Int(Rnd() * UBound(arr) + 1)
   
6.             t = arr(j, i)
   
7.             If t <> "" And arr(r, i) <> "" Then arr(j, i) = arr(r, i): arr(r, i) = t
   
8.         Next
   
9.     Next
   
10.     Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
11. End Sub

复制代码

张雄友

zjdh 发表于 2015-5-22 19:39

代码这样写会不会错误，请指示：

Sub 随机乱序()
    'arr = Range("A1").CurrentRegion
    arr = Selection
    For i = 1 To UBound(arr, 2)
        For j = 1 To UBound(arr)
            r = Int(Rnd() * UBound(arr) + 1)
            t = arr(j, i)
            If t <> "" And arr(r, i) <> "" Then arr(j, i) = arr(r, i): arr(r, i) = t
        Next
    Next
    'Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
    Selection(1).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

张雄友

zjdh 发表于 2015-5-22 19:39

如果是按行乱序，是怎么样的？

zjdh

张雄友 发表于 2015-5-22 20:12
代码这样写会不会错误，请指示：

Sub 随机乱序()

这不是一样吗？仅仅是取值不同而已！

zjdh

张雄友 发表于 2015-5-22 20:50
如果是按行乱序，是怎么样的？

把这3句
For i = 1 To UBound(arr, 2)
        For j = 1 To UBound(arr)
            r = Int(Rnd() * UBound(arr) + 1)
改成
For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            r = Int(Rnd() * UBound(arr, 2) + 1)

张雄友

zjdh 发表于 2015-5-23 08:51
把这3句
For i = 1 To UBound(arr, 2)
        For j = 1 To UBound(arr)

下标越界。