EXCEL VBA 如何写一个函数，将一句话里面的字符随机排列？

下面的代码测试通过，希望对你有所帮助：

Option Explicit

Sub xxx()
    MsgBox rndstr("hello,测试")
End Sub

Function rndstr(ByVal s As String) As String
    Dim r As String
    Dim i As Integer
    r = ""
    While s <> ""
        i = 1 + Int(Rnd * (Len(s) - 1)) '随机从s里面取出一个字符添加到r的后面
        r = r & Mid(s, i, 1)
        If i = 1 Then
            s = Right(s, Len(s) - 1)
        Else
            s = Left(s, i - 1) & Right(s, Len(s) - i)
        End If
    Wend
    rndstr = r
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vrffjf7xfjyfj7fefvx.html