二维数组如何随机排序

lizhipei78

如下图所示，假设有一组数据多行四列的数据，如何进行随机排序。


我按照论坛里面的一维数据进行了随机排序，代码如下：



后面输出是为了直观显示，其实Crr数组是已经对原来的Brr的二维数组进行了随机排序了的，但是感觉略显啰嗦，大佬们有什么好的办法吗？


二维数组随机排序.rar (25.04 KB, 下载次数: 22)

2023-10-5 20:52 上传

点击文件名下载附件

lizhipei78

想到一个更简单，更高效的方法，比数组还要快

gwjkkkkk

数组法，请参考附件。。。

lizhipei78

gwjkkkkk 发表于 2023-10-5 21:06
数组法，请参考附件。。。

原来跟一维是一样的，转不过弯来，非常感谢

micch

1. Sub Test()
   
2.     With New BetterArray
   
3.         .FromExcelRange Range("a2", Range("d65535").End(3))
   
4.         .Shuffle
   
5.         .ToExcelRange Range("a2")
   
6.     End With
   
7. End Sub

复制代码

https://club.excelhome.net/thread-1673275-1-1.html

那时雨

参与一下……

今铭昔

lizhipei78

micch 发表于 2023-10-5 22:36
https://club.excelhome.net/thread-1673275-1-1.html

非常感谢，这个第三方工具还是蛮实用的

lizhipei78

那时雨 发表于 2023-10-6 00:41
参与一下……

经测试，顺利运行，还在慢慢理解代码

lizhipei78

今铭昔 发表于 2023-10-6 06:52

谢谢，WPS 的JS代码正在学习当中

aman1516

重新温习一下，改自定义数为通用版就更方便了