|
张雄友 发表于 2015-3-13 20:59
谢谢,但是这样是不行的,左下角的数据从未跑动过。 - Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法!
- On Error Resume Next
- Randomize
- arr = Selection ': rw = UBound(arr): cl = UBound(arr, 2)
- cl = Cells(1, 256).End(xlToLeft).Column
- rw = Cells(65536, cl).End(3).Row
- For i = 1 To rw
- For j = 1 To cl
- If Len(arr(i, j)) And IsArray(arr) Then '不发挥作用!
- r = Int(Rnd() * 10000)
- 'i1 = Int(r / cl) + 1: j1 = r Mod cl + 1
- i1 = r Mod rw + 1: j1 = r Mod cl + 1
- t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
- End If '不发挥作用!
- Next
- Next
- Selection = arr
- End Sub
复制代码 |
|