随机粘贴基于单元格值vba excel的列范围中的单元格

Question

我有名字:( A，B，C和D）和作业（绿色，蓝色，白色，黄色，橙色，紫罗兰色，粉红色）。

我想做的是为每个人分配作业的数量，并根据我希望他们拥有的作业的数量随机分配该人的作业。谢谢你的帮助。

这是我到目前为止尝试的基于kutools的代码

    Sub CopyData3()
'Update 20140724
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "Assign"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub