gwjkkkkk老师，请看下，谢谢

cartel

gwjkkkkk老师，请看下.zip (17.25 KB, 下载次数: 17)

2024-1-12 14:47 上传

点击文件名下载附件

gwjkkkkk

现在上班中，不方便回复，下班回复你。

shiruiqiang

唯手痒而已，练手

cartel

shiruiqiang 发表于 2024-1-12 15:22
唯手痒而已，练手

老师，你好！
能不能发下附件，谢谢！

shiruiqiang

=============

chxw68

练练手，香川老师的洗牌法。

yjh_27

参见附件。

ykcbf1100

参与一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.12
   
2.     r = Cells(Rows.Count, "b").End(3).Row
   
3.     arr = Range("b1:d" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         b = Split(arr(i, 1), ",")
   
6.         num = arr(i, 2)
   
7.         For x = UBound(b) To 1 Step -1
   
8.             RandomIndex = Int((x - 1 + 1) * Rnd + 1)
   
9.             Temp = b(x)
   
10.             b(x) = b(RandomIndex)
    
11.             b(RandomIndex) = Temp
    
12.         Next x
    
13.         st = ""
    
14.         For k = 1 To num
    
15.             st = st & "," & b(k)
    
16.         Next k
    
17.         arr(i, 3) = Mid(st, 2)
    
18.     Next
    
19.     Range("b1:d" & r) = arr
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

cartel

感谢老师们的回复！
今天花已用完了，明天一定给老师们送上
再次感谢老师们的帮助！！