如何给Excel题库里的选项乱序?

发布网友发布时间：2022-04-23 07:27

共2个回答

热心网友时间：2022-06-17 16:21

Sub s()
    arr = [e1:h30]
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr)
        For j = 1 To 4
            k = Int(1 + Rnd * 4)
            Do Until brr(i, k) = ""
                k = Int(1 + Rnd * 4)
            Loop
            brr(i, k) = arr(i, j)
        Next
    Next
    [e1:h30] = brr
End Sub

热心网友时间：2022-06-17 16:22

根据一定的算法随机排列，然后提取就行了。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com