如何把总表中的100行数据随机分配给10名学生？

zzpsx · 发表于 2023-1-12 14:15

本帖最后由 zzpsx 于 2023-1-13 09:38 编辑

如何把总表中的100行数据随机分配给10名学生？

也就是说生成10个工作表，每个表以学生姓名命名，每个表内随机选取总表中的10行数据。

（并在生成的每个表的b1单元格内输入某某某的作业，在d1输入某某某的答案。这个要求能实现最好，不能实现也没关系）

姓名如下：

刘雨喧
杨世涛
汤天豪
李贝
蒲欣悦
程绎友
傅赵烨妮
刘梓琳
王莫含
张鹤严

如何把总表中的100行数据随机分配给10个学生.rar (33.92 KB, 下载次数: 16)

liulang0808 · 发表于 2023-1-12 20:16

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
https://club.excelhome.net/threa ... tml?_dsign=070dfca3
案例又雷同的

zzpsx · 发表于 2023-1-13 09:53

可能我的表述不够简洁，致使很多高手看不清楚我想要怎么样。
现在我在原帖中修改了要求，蓝色部分的要求可有可无，谢谢。

liulang0808 · 发表于 2023-1-13 11:52

楼主附件中有两张表，什么关系？
附件中学生在哪里？

liulang0808 · 发表于 2023-1-13 12:00

Sub Lr()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Sheets("总表").Select
Arr = Range("a1:D" & Cells(Rows.Count, "a").End(xlUp).Row)
For j = 2 To UBound(Arr)
      Set d(j) = Cells(j, 1).Resize(1, 5)
Next j
brr = Sheets("学生名单").UsedRange
x = Int(d.Count / UBound(brr))
For j = 1 To UBound(brr)
      Sheets.Add after:=Sheets(Sheets.Count)
      With Sheets(Sheets.Count)
         .Name = brr(j, 1)
         For i = 1 To x
            w = WorksheetFunction.RandBetween(0, d.Count - 1)
            k = d.keys()(w)
            d(k).Copy .Cells(i + 1, 1)
            d.Remove k
         Next
      End With
Next j
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-1-13 12:00

按照自己的理解模拟的，不确定是否合适

zzpsx · 发表于 2023-1-13 12:49

谢谢版主大力帮助。总表中的d列数据，是引用了sheet1，因为我只会在sheet1中进行随机排列这些句子。为何我要随机排列这些句子，目的是减少学生互相抄答案。也就是说，我发给10个学生的题目，各不相同。版主帮我把姓名加到了工作簿中，这样非常好。
可能我一开始就没有把意图讲明确。
我想从总表中随机选取10行数据，平分给这10个学生，希望尽量保持原表格式，便于学生观看或打印。现在我上传一个需求样表，麻烦版主和各位了，谢谢。

需求样表-如何把总表中的100行数据随机分配给10个学生.rar (33.23 KB, 下载次数: 3)

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

[求助] 如何把总表中的100行数据随机分配给10名学生？

评分

评分

评分