工作簿事件代码区域：PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Application.OnKey"{F9}",""EndSubPrivateSubWorkbook_Open()Application.OnKey"{F9}","test"EndSub模块代码区域：Sub

1用RAND()在9个单元格中产生9个随机数；2用RANK函数进行排序，排序结果为1-9之间的整数。具体操作：1、启动Excel并打开工作表，选择J1:R1单元格，在编辑栏中输入公式"=RAND()"，按Ctrl+Enter键结束输入，此时在单元格...

选中e1:g3，输入=rand()，CTRL+回车，生成9个随机数。选中a1:c3，输入=rank(a1,$e$1:$g$3)，CTRL+回车，1-9随机排列。按F9可得到另一种排列。

F列计算循环数（公式没有去优化了）：F2=MOD(ROW(A1)-1,4)+INT(MOD(ROW(A1)-1,8)/4)*3*ROUNDUP(MOD(ROW(A1)-1,4)/3,0)C列产生序号：C2=ROW(A1)H列按F列的循环数，转换为需要的数据：H2=LOOKUP(F2,...

公式=CEILING(ROW(1:1)/9,1)&"-"&MOD(ROW(9:9),9)+1下拉

在A1:A9输入1-9，在B1:B9输入10-18，然后选择A1:B9向右拉。

这种逻辑一看就不是公式能搞定的，应该需要VBA编程之类的

假设1到5循环，用MOD函数，公式为：=MOD(ROW(A5),5)+1下拉复制公式。

见截图输入=ROW(A1)*4-3&"-"&ROW(A1)*4公式下拉

B2输入=IF((A2<>A1)+(B1=5),1,B1+1)下拉