如何用代码在g到m列随机排列b列的词组

zzpsx

如何用代码在g到m列随机排列b列的词组.zip (10.23 KB, 下载次数: 3)

2024-7-28 11:47 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, br, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "B").End(xlUp).Row
    ar = Range("B1:B" & r).Value
    ReDim br(1 To UBound(ar), 1 To 7)
   
    For j = 1 To UBound(br, 2)
        arrGetRnd1 ar
        For i = 1 To UBound(ar)
            br(i, j) = ar(i, 1)
        Next i
    Next j
        
    [G2].Resize(UBound(br), UBound(br, 2)) = br
    Application.ScreenUpdating = True
    Beep
End Sub
Function arrGetRnd1(ByRef ar)
    Dim xNum&, i&, n&, vTemp
   
    Randomize
    n = UBound(ar)
    For i = 1 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        vTemp = ar(xNum, 1): ar(xNum, 1) = ar(i, 1): ar(i, 1) = vTemp
    Next
End Function

gwjkkkkk

...............