excel表格里怎么随机分工

1.怎么在excel中编写随机组合

使用VBA较为方便。

复制如下代码到VBA模块中，运行。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Subaaa()

2:

Dimi AsSingle

Dimn1, n2, n3

Fori = 1 To3

1:

n1 = Mid("ABCDEFGHI", Application.WorksheetFunction.RandBetween(1, 9), 1)

n2 = Mid("ABCDEFGHI", Application.WorksheetFunction.RandBetween(1, 9), 1)

n3 = Mid("ABCDEFGHI", Application.WorksheetFunction.RandBetween(1, 9), 1)

Ifn1 = n2 Orn1 = n3 Orn2 = n3 Then

GoTo1

Else

Range("B"& i) = n1 & n2 & n3

EndIf

Next

IfRange("B1") = Range("B2") OrRange("B1") = Range("B3") OrRange("B2") = Range("B3") Then

GoTo2

EndIf

EndSub

2.excel中实现如何实现不同部门都随机抽出10名不重复中间人选

不知道你的各个部门各有多少人？

如随机抽取“工程部”的，假设工程部有100人：

在C1输入

=INDEX(B:B,***ALL(IF(A$1:A$1000="工程部"，ROW($1:$1000),4^8),INT(RAND()*100+1)))&""

数组公式，输入后先不要回车，按Ctrl+Shift+Enter结束计算，再向下填充到C10，就是“工程部”的随机10人了。

但既然是随机，就有可能出现重复，可交替按F2和Enter更新数据直至满意。

或：

在C1~C10、C11~C20、C21~C30、……分别输入部门名称（各10个）。

在D1输入

=INDEX(B:B,***ALL(IF(A$1:A$1000=C1,ROW($1:$1000),4^8),INT(RAND()*100+1)))&""

也是数组公式，操作同上。

3.如何用EXCEL做出随机排列

用辅助列（D2:D10）得到不重复1到9的随机数，D2公式：

=***ALL(IF(COUNTIF(D$1:D1,ROW($1:$9))=0,ROW($1:$9)),RANDBETWEEN(1,10-ROW(A1)))

数组公式，需要按CTRL+SHIFT+回车，完成公式，下拉到D10;

A1用公式：

=OFFSET($D$1,COLUMN(A1)+ROW(A1)*3-3,)

右拉到C1，再下拉三行，如图：

4.在excel中如何制作一个随机分组程序

在Excel中，有没有办法生成一组随机数字，比如说1~50，而且这些随机数不会重复出现？（ 据我推测，你是想知道如何将1~50的数字随机进行排序的方法吧。

操作如下：第一步，在单元格A1和A2中分别输入数字1和2；第二步，选定A1和A2，将光标移到单元格A2的右下角，那儿将会出现一个填充柄（即黑色的小加号），向下拖动鼠标，一直移到A50,A1~A50中将会自动填上数字1~50；第三步，将光标移到单元格B1，键入=RAND（)，然后复制单元格B1，选定B2~B50这块区域，执行粘贴；第四步，选定A列和B列，点击“数据”菜单中的“排序”，在“主要关键字”一栏选择“列B”，即按照B列来排序。A列中被打乱的数字是不会变化的，除非你再次进行随机排序。

你将会注意到，这些数字并不是按升序或降序来排列的，因为每进行一次排序，都会触发一次新的计算。 如果你需要一组特定数量的无重复随机数字——比如说，从1~50中挑出6个数字——只需要选定头6行单元格内的数字即可。