怎么用Excel自动生成多组舒尔茨表格？ excel表格自动生成多个表格

Sub Schulte()

    Dim r, c, a, b, sjs() 'r as rows, c as columns, you can init them by yourself

    r = 3

    c = 2

    

    a = r * c

    b = 16

    ReDim sjs(a, b)

    

    Dim dis  'seperate distance you need

    dis = 2

       

    Dim t, i, j, seed

    seed = 1664525 * Second(Now()) + 1

    

    For j = 1 To a

        For t = 1 To b

            Randomize (seed)

            sjs(j, t) = Int(16 * Rnd) + 1

            For i = 1 To (t - 1)

                If sjs(j, t) = sjs(j, i) Then

                    sjs(j, t) = Int(16 * Rnd) + 1

                    i = 0

                End If

            seed = seed + 1

            Next i

        Next t

    Next j

    

    For i = 1 To r

        For j = 1 To c

            For t = 0 To b - 1

                Cells(4 * (i - 1) + dis * (i - 1) + 1 + (t \ 4), 4 * (j - 1) + dis * (j - 1) + 1 + (t Mod 4)).Value = sjs((i - 1) * c + j, t + 1)

                Cells(4 * (i - 1) + dis * (i - 1) + 1 + (t \ 4), 4 * (j - 1) + dis * (j - 1) + 1 + (t Mod 4)).Borders.LineStyle = True

            Next t

        Next j

    Next i

    

End Sub

修改一下代码就好了，数据是随意的？

如何用excel表格自动生成舒尔茨表格？注意力训练的表格，自动生成的数字必须不重复~

'你会用VBA吗？这个必须用VBA来完成！不知你是否会用！
'1.进入EXCEL表格，按ALT+F11组合键入VBA编辑器
'2.插入一个模块，复制以下代码
'3.回到表格页面文件，插入一个按钮，为其指定该宏，然后每点击一次则会自动排列一次
Sub 舒尔特测试()
Dim t, i, seed, sjs(25)
seed = 1664525 * Second(Now()) + 1
For t = 1 To 25
Randomize (seed)
sjs(t) = Int(25 * Rnd) + 1
For i = 1 To (t - 1)
If sjs(t) = sjs(i) Then
sjs(t) = Int(25 * Rnd) + 1
i = 0
End If
seed = seed + 1
Next i
Next t

For t = 1 To 5
Cells(1, t).Value = sjs(t)
Next t
For t = 6 To 10
Cells(2, t - 5).Value = sjs(t)
Next t
For t = 11 To 15
Cells(3, t - 10).Value = sjs(t)
Next t
For t = 16 To 20
Cells(4, t - 15).Value = sjs(t)
Next t
For t = 21 To 25
Cells(5, t - 20).Value = sjs(t)
Next t
End Sub
'以上代码完全测试通过，5X5格式，你可以自己修成你想要的任何格式！

我这儿有一个范例，我自己做的，您看一下。
在K3中输入公式：=IF((2+ROW($A3)/3)>MIN(IF(LEN($A$3:$A$100)=0,ROW($A$3:$A$100)-1)),"",IF(MOD(ROW($B3),3)=2,A$2,IF(INT(ROW($B3)/3)=ROW($B3)/3,INDEX(A$1:A$100,2+ROW(A3)/3),""))) ，同时按下ENTER键，SHIFT键，和CTRL键，公式右拉，再下拉，即可。

回答正确加200分. EXCEL中如何随机产生多组数据,要求每组数据之和等于1...
答：生成第二个随机数a2，要求a1+a2相加后介于a1至1之间 生成第三个随机数a3，要求a1+a2+a3相加后介于a1+a2至1之间 ...以此类推，使到随机数ai无限接近于0，同时a1+a2+a3+...+ai无限接近于1 最后一个数是a(i+1),由1-sum(a1~ai)所得。若要生成 a 与 b 之间的随机实数，使用RAND()*(b...

求excel公式求自动重生成一组8个不同的数,从1-40之间的数
答：A1=RANDBETWEEN(2,8)B1=A1+RANDBETWEEN(1,(40-$A1)/7)并对B1公式复制填充右拉，即可………

excel怎么自动生成一组随机数?
答：依次单击【文件】【选项】【公式】，勾选【启用迭代计算】，最多迭代次数可以设置为1000，这里设置的次数越多，得到符合条件随机数的可能性就越大，但是次数过多，会增加计算量。5、进行完上述步骤，现在只要修改C3单元格中指定的平均值，就会生成一组随机数，这些随机数的平均值就等于C3单元格的值。

舒尔特方格训练方法
答：舒尔特方格是全世界范围内最简单，最有效也是最科学的注意力训练方法。工具／原料：一台电脑或一张纸 1、制作方法一：首先是在一张方形卡片上画上5*5的25个方格，格子内用不同颜色的笔任意填写上乱序的25个不同的阿拉伯数字、大写数字、希腊数字、大小写字母、完整句子等。为了避免反复用相同的表产生...

excel表格制作 多组数据选择看折线图
答：1、将所需绘制折线图的数据输入到excel中去。这里以两组数据为例。2、选择“插入”菜单，单击“折线图”，在“二维折线图”中选择第一个。3、在excel自动生成的空白折线图区域任意位置鼠标右键单击一下，在弹出下拉菜单中单击“选择数据”。4、在弹出的对话框中单击“图例项（系列）”下的“添加”...

excel同一单元格中有多组文字和数字怎么用宏公式求和
答：Sub 计算()Columns("A:A").Select Selection.Replace What:="米", Replacement:="", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False Selection.Replace What:="根", Replacement:="", LookAt:=xlPart, _SearchOrder:=xlByRows, ...

excel中个人履历中单人有多条自动生成序号(如图)?
答：假设“人员编号”在A列，“序号”在C列，C2用公式：=COUNTIF(A$2:A2,A2)下拉。

wps excel怎么自动生成序号
答：1、打开需要设置的WPS表格 2、下拉右下角出现的黑色十字架，进行填充便可自动编号排序~3、效果显示如下~

在excel中怎样自动生成一列序号1,2,3,4,5,...
答：1、首先打开需要操作的Excel表格，在下图所示的表格的A3、A4单元格中输入，序号1和2。2、鼠标框选同时选中A3、A4单元格，如下图所示。3、将鼠标放置A4单元格的右下方，使光标变为黑色十字状，如下图所示。4、此时，按下鼠标左键，往下推动鼠标即可，生成自动填充序列，如下图所示。

excel顺序号自动生成, 例子:我要四个数一组101,102,103,104后面接201...
答：A1~A4分别手动输入101~104 A5=A1+100，拖A5