[已解决]在sheet1表中提取每批160人的信息到sheet2表

爱疯 · 发表于 2013-4-10 20:47

不用客气，我只是问了下题意{:301:}

所以，你的问题就是：如何分批，确保每80人/天，是吗？

qinhuan66 · 发表于 2013-4-10 20:55

爱疯发表于 2013-4-10 20:47
不用客气，我只是问了下题意

所以，你的问题就是：如何分批，确保每80人/天，是吗？

是的，不论怎么取，只要160人一批即可（2天），因为按160人一批（2天的话）一天去80人，另80人第二天去。

这样安排的话，就像一个单位8人，第一天去4人，留4人在上班。因为上班不能缺勤。谢谢

爱疯 · 发表于 2013-4-10 21:10

“这样安排的话，就像一个单位8人，第一天去4人，留4人在上班。因为上班不能缺勤”

可1楼之后的示例，如第2行：

10001 单位1 14

单位1所有人都体检去了？而不是先只去一半（7个）人呀？

qinhuan66 · 发表于 2013-4-10 21:14

爱疯发表于 2013-4-10 21:10
“这样安排的话，就像一个单位8人，第一天去4人，留4人在上班。因为上班不能缺勤”

可1楼之后的示例，如 ...

是14人，后面D列体检时间是安排2天，最后我们会根据这个体检时间安排表附上个人姓名到底哪7个人是第一天，哪7个人是第2天的。谢谢

爱疯 · 发表于 2013-4-10 22:05

如果用正规解法，感觉会很麻烦吧；
如果取巧，即使不精确（达到160/批），也行啊。

问题是，从没做过这样的题，我都不会{:231:}

qinhuan66 · 发表于 2013-4-10 22:12

爱疯发表于 2013-4-10 22:05
如果用正规解法，感觉会很麻烦吧；
如果取巧，即使不精确（达到160/批），也行啊。

没事，不过还是谢谢您。谢谢

爱疯 · 发表于 2013-4-11 14:36

Sub test()
Dim rng As Range
Dim A(), B()
Dim n%, i%, j%, x%, y%, s%, p%, MaxValue%, MaxIndex%
'1)初值
Sheets("sheet1").Select
Set rng = Range("A1").CurrentRegion
rng.Sort Key1:=Range("c1"), Order1:=xlDescending, Header:=xlYes
A = rng.Value
n = 160
'2)拆分人数>n 的记录
For i = 1 To UBound(A)
If i <> 1 And A(i, 3) > n Then
x = A(i, 3) \ n
y = A(i, 3) Mod n
'商
For j = 1 To x
s = s + 1
ReDim Preserve B(1 To 3, 1 To s)
B(1, s) = A(i, 1) & "|" & j
B(2, s) = A(i, 2) & "|" & j
B(3, s) = n
Next j
'余数
If y <> 0 Then
s = s + 1
ReDim Preserve B(1 To 3, 1 To s)
B(1, s) = A(i, 1) & "|" & j
B(2, s) = A(i, 2) & "|" & j
B(3, s) = y
End If
Else
s = s + 1
ReDim Preserve B(1 To 3, 1 To s)
For j = 1 To UBound(A, 2)
B(j, s) = A(i, j)
Next j
End If
Next i
B = Application.Transpose(B)
'3)重建数据源
Sheets("sheet2").Select
Range("a:d").Clear
[a1].Resize(UBound(B), UBound(B, 2)) = B
Set rng = Range("a1:d" & UBound(B))
Erase B
rng.Sort Key1:=Range("c1"), Order1:=xlDescending, Header:=xlYes
A = rng.Value
'4)分批
s = 0
p = 0
For i = 2 To UBound(A) - 1
'1) 累计本次
p = p + 1
s = s + A(i, 3)
'2) 预测下次
Select Case s + A(i + 1, 3)
Case Is < n
'累计大值
p = p - 1
Case Is = n
'开始清算
s = 0
Case Is > n
'开始清算
'2）是否精确合适，不精确的话，凑一个最适合的小值
If s = n Then
A(i, 4) = p
s = 0
Else
y = n - s
For j = i + 1 To UBound(A)
If A(j, 4) = "" Then
If A(j, 3) <= y Then
If A(j, 3) > MaxValue Then
MaxValue = A(j, 3)
MaxIndex = j
End If
End If
End If
Next j
If A(MaxIndex, 4) = "" Then A(MaxIndex, 4) = p
s = 0
MaxValue = 0
End If
End Select
If A(i, 4) = "" Then A(i, 4) = p
Next i
'5)输出
A(1, 4) = "第几批"
A(UBound(A), 4) = p '近似值
[a1].Resize(UBound(A), UBound(A, 2)) = A
rng.Sort Key1:=Range("d1"), Order1:=xlAscending, Header:=xlYes
End Sub

复制代码

体检时间安排表2.rar (29.56 KB, 下载次数: 6)

爱疯 · 发表于 2013-4-11 15:50

因为
1）只凑一个小值
2）还没找到原因

通过按D列分类汇总，求和C列，
发现中间有些的过大（如240）或过小（7），再去想想。。。。。

{:231:}

qinhuan66 · 发表于 2013-4-11 17:47

爱疯发表于 2013-4-11 14:36
不会做正规方法。
我这么做的，少数时候=160，多数时候只是接近160。

谢谢您了都是都是老师，我测试一下看看。谢谢

爱疯 · 发表于 2013-4-11 20:58

体检时间安排表4.rar (34.05 KB, 下载次数: 2)

		自动登录	找回密码
密码			注册

[已解决]在sheet1表中提取每批160人的信息到sheet2表

评分

评分