求助大师们：怎么用vba随机给员工分配任务？

YANG2020

求助大师们：怎么用vba随机给员工分配任务？谢谢您的无私帮助。

风中的我脸

1. Sub SendOrder()
   
2.      Dim lRow&, arr, arece, p&, i&
   
3.      lRow = Cells(Rows.Count, 2).End(xlUp).Row
   
4.      Range("c2:c" & lRow) = "未派"
   
5.      arr = Range("a1").CurrentRegion
   
6.      Range("c2:c" & lRow).ClearContents
   
7.      With Worksheets("派单")
   
8.         arece = .Range("a1").CurrentRegion
   
9.         For i = 2 To UBound(arece)
   
10.             Do
    
11.                 p = Int((UBound(arr) - 1) * Rnd + 2)
    
12.                 If arr(p, 3) = "未派" Then
    
13.                     arece(i, 2) = arr(p, 1)
    
14.                     arece(i, 3) = arr(p, 2)
    
15.                 End If
    
16.             Loop Until arr(p, 3) = "未派"
    
17.             arr(p, 3) = "已派"
    
18.         Next
    
19.         .Range("a1").Resize(UBound(arece), UBound(arece, 2)) = arece
    
20.      End With
    
21.      MsgBox "ok"
    
22. End Sub
    

复制代码

YANG2020

风中的我脸 发表于 2021-4-10 15:10

非常感谢你的无私帮助。