请问一下大神，有没有方法可以做到呀？拜托拜托

俘离

要做一个资源分配的表，来来回回在论坛问了好多次了，每次有大神帮忙解决了，结果上司又说不是这样不是这样，简直崩溃！！！求各位大神帮忙，拜托拜托T-T比如图一中院一的资源需求填了50，然后根据公式优质资源分配了12，中等资源分配了13，劣质资源分配了25，那在图二里的表格中，如何根据分配结果，自动在相应数量 的“分配部门”列，填入部门名称，如“优质资源”自动填入12个院一 案例.rar (23.07 KB, 下载次数: 16)

2018-8-14 10:48 上传

点击文件名下载附件

小花鹿

看不懂什么意思                                                                                                           

gaohong267

用公式就能解决了，看附件

俘离

gaohong267 发表于 2018-8-14 11:33
用公式就能解决了，看附件

多谢多谢，但是。。。不是这样的呀，不能自动填入部门么？T-T

俘离

朱荣兴 发表于 2018-8-14 11:37
研究了半天，还真是看不懂，楼主不放模拟结果上传，可能会好理解一些吧。

我也很无奈呀。。。自己是小白，已经尽力说明详细了，但是我也觉得好像自己有点词不达意T-T

俘离

朱荣兴 发表于 2018-8-14 11:37
研究了半天，还真是看不懂，楼主不放模拟结果上传，可能会好理解一些吧。

我也很无奈呀。。。自己是小白，已经尽力说明详细了，但是我也觉得好像自己有点词不达意T-T

一把小刀闯天下

俘离 发表于 2018-8-14 13:48
我也很无奈呀。。。自己是小白，已经尽力说明详细了，但是我也觉得好像自己有点词不达意T-T

'猜一个，假设C列有序

'按顺序写入未作随机分配，当然也可随机需再处理一下

Option Explicit

Sub test()
  Dim arr, i, j, k, n, brr, pos
  With Sheets("sheet3")
    arr = .Range("a2:f" & .Cells(Rows.Count, "a").End(xlUp).Row)
  End With
  brr = Sheets("sheet4").[c4].CurrentRegion
  For i = 1 To UBound(arr, 1): arr(i, 6) = vbNullString: Next
  For j = 3 To 5
    For i = 1 To UBound(arr, 1)
      If arr(i, 3) = brr(1, j) Then pos = i: Exit For
    Next
    n = 0
    For i = 3 To UBound(brr, 1)
      If IsNumeric(brr(i, j)) Then
        For k = 1 To brr(i, j)
          n = n + 1
          arr(pos + n - 1, 6) = brr(i, 1)
        Next
      End If
  Next i, j
  Sheets("sheet3").[a2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

俘离

一把小刀闯天下 发表于 2018-8-14 15:58
'猜一个，假设C列有序

'按顺序写入未作随机分配，当然也可随机需再处理一下

哇！！！大神你又粗线了！！随机分配要怎么做呀？大神提供的代码我测试了一下，按照案例的分配方案使用VBA，院一只分配了总共48个资源，而分配列表我尝试把院一的部门需求改成35，允许一次VBA就变成很混乱的样子了T-TC:\Users\Administrator\Pictures\EXCEL提问

一把小刀闯天下

俘离 发表于 2018-8-15 09:47
哇！！！大神你又粗线了！！随机分配要怎么做呀？大神提供的代码我测试了一下，按照案例的分配方案使用VB ...

条件不够，表3行数与表4中的数据是有关联的，可以再上附件

你的问题不是问题本身而是要把这个问题描述清楚。我也是猜的，条件太少或不明确