如何利用VBA来分配工作

是一个小白没错

各位大神们好，小弟刚开始接触VBA，这里有一个VBA的想法，寻求帮助~~~~~~~~~
有27个产品按照表1中的的数量分配给5个负责人，27个产品中有一部分已经指定了负责人，即D列显示的数据，E列是还需分配给5个负责人的数量。
表2为这27个产品，B列有负责人的是根据表1的D列已经经分配的，现想将表2中还没有分配的产品按照表1中E列指定的数量分配给负责人，怎么能完成？
已上传附件，请各位大神帮助~~~

changhong8

重复发帖？

gdfcx

1. Sub macro()
   
2.     Dim arr, brr, crr(), i%, j%, x%, m%
   
3.     arr = [c1].CurrentRegion
   
4.     brr = Sheet2.[a1].CurrentRegion
   
5.     ReDim crr(1 To UBound(brr))
   
6.     For j = 2 To UBound(arr)
   
7.         For x = 1 To arr(j, 3)
   
8.             k = k + 1
   
9.             crr(k) = arr(j, 1)
   
10.         Next x
    
11.     Next j
    
12.     For i = 2 To UBound(brr)
    
13.         If brr(i, 2) = "" Then
    
14.             m = m + 1
    
15.             brr(i, 2) = crr(m)
    
16.         End If
    
17.     Next i
    
18.     Sheet2.Select
    
19.     Sheet2.[a1].Resize(i - 1, 2) = brr
    
20. End Sub
    

复制代码

是一个小白没错

changhong8 发表于 2019-6-20 11:37
重复发帖？

抱歉  试了您昨天写的代码  发现运行出来的不是我所想要的 我觉得是我没有描述清楚  所以就又提问了一个

是一个小白没错

gdfcx 发表于 2019-6-20 12:33

感谢大神，试了一下，很好用~