在你的附件中,随便找个单元格输入 =XXX(C3) 就是把C3重新乱序排列。你试试- Function XXX(Rng)
- Application.Volatile
- Dim arr(), Ln&, i&, r&, Tmp
- Ln = Len(Rng)
- ReDim arr(1 To Ln)
- For i = 1 To Ln
- arr(i) = Mid(Rng, i, 1)
- Next
- Randomize
- For i = 1 To Ln
- r = Int(Rnd * Ln + 1)
- Tmp = arr(i): arr(i) = arr(r): arr(r) = Tmp
- Next
- XXX = Join(arr, "")
- End Function
复制代码 |