如何利用VBA实现单元格内单词乱序

825894669

需求有点奇怪，不知道能否实现。

小花鹿

SPLIT分割成数组，再随机乱序，再组合起来                                                                           

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, n, t, s
  arr = [a1].CurrentRegion.Offset(1).Resize(, 1)
  Randomize
  For i = 1 To UBound(arr, 1) - 1
    t = Split(arr(i, 1), ",")
    For j = 0 To UBound(t)
      n = Int(Rnd * (UBound(t) + 1))
      s = t(j): t(j) = t(n): t(n) = s
    Next
    arr(i, 1) = Join(t, ",")
  Next
  [c2].Resize(UBound(arr, 1) - 1) = arr
End Sub