随机分配具有百分比任务的员工

Question

我在以前的宏中工作，这使我遇到了许多问题，例如（如果#Tasks <#Employees）宏不起作用，或者我认为无法正常工作的百分比值

我共享了将员工分配给任务的宏的一部分

Dim perc As Double

Sheets("TASKs").Select
Range("A2").Select
Selection.End(xlDown).Select
cnt = ActiveCell.Row - 1
Sheets("TO_ASSIGN").Select

If ThisWorkbook.Sheets("CATALOGO").Range("SUM_PERCENT").Value = 0.01 Then
i = 2
K = 2
perc = 0
Do While Cells(i, 1).Value <> ""
emp = Cells(i, 1).Value
perc = (Cells(i, 2).Value * cnt) + perc

For j = K To perc + 1

Sheets("TASKs").Select
Cells(K, 2).Value = emp
K = K + 1

Next j
'
i = i + 1
Sheets("TO_ASSIGN").Select
Loop
Sheets("TASKs").Select
Else
MsgBox "Asigne los porcentajes correctamente"
Exit Sub
End If

我真的忘了我在哪里找到了这个宏，它工作了好一阵子，但是当#Task低于#Employees时，这种问题却无济于事

然后我在下一个帖子Randomly Assign Employees to Tasks的注释中找到了[命令按钮]，这是一个宏，如果（#Tasks <#Employees）可以正常工作。
归功于所有者@K .Dᴀᴠɪs

我想在上一篇文章的另一个宏中为每个员工添加一个百分比。

有人可以帮我吗？