A列的词汇，如何随机排列在b列和c列，每个词汇左边不用加序号

zzpsx

A列的词汇，如何随机排列在b列和c列，每个词汇左边不用加序号.zip (1.63 MB, 下载次数: 8)

2024-8-2 16:03 上传

点击文件名下载附件

过客fppt

已完成，这是三次随机打乱分到右边的结果



这是代码

zzpsx

过客fppt 发表于 2024-8-3 10:48
已完成，这是三次随机打乱分到右边的结果

谢谢高手，不过可能我没有把意图表达清楚。
我是想a列的随机排列在b列
a列随机在c列。

gwjkkkkk

Rem word宏模板
Option Explicit
Sub test1()
    Dim ar, j&, strRngText$
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        With .Tables(1)
            strRngText = .Range.Cells(1).Range.Text
            strRngText = Mid(strRngText, 1, Len(strRngText) - 2)
            ar = Split(strRngText, vbCr)
            For j = 2 To 3
                arrGetRnd1 ar
                .Range.Cells(j).Range.Text = Mid(Join(ar, vbCr), 3)
            Next j
        End With
    End With
   
    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): ar(xNum) = ar(i): ar(i) = vTemp
    Next
End Function

gwjkkkkk

。。。。。。。。。。。。。。

batmanbbs

A00喻老师

好实用的功能，收藏了

A00喻老师

gwjkkkkk 发表于 2024-8-3 19:56
Rem word宏模板
Option Explicit
Sub test1()

非常好用

A00喻老师

哥们，你这是听力文本吗？随机打乱顺序？