WPS个人版安装VBA教程下载vba：
网盘链接：https://pan.baidu.com/s/1SDe5ZhdkWdd1DTXgl-SFtA
安装vba：
解压文件 —>安装软件
直接Next，安装成功即可；
打开WPS，点击开发工具，这时就会看到宏、录制新宏、宏安全性、VB 编辑器这些都是点击的；
下面来试试使用宏做一个1-11，5个数一组的不重复分组；
填写数字1到11，然后点击编辑宏
这时就会跳转到宏的编辑页面，点击插入—>模块；
写一个函数testGroup如下图
代码：
Function testGroup(zhu As Range, num As Integer)
R=zhu.Rows.Count
For C1=1 To R
For C2=C1 + 1 To R
For C3=C2 + 1 To R
For C4=C3 + 1 To R
For C5=C4 + 1 To R
rr=rr + 1
testGroup=zhu(C1, 1) & "," & zhu(C2, 1) & "," & zhu(C3, 1) & "," & zhu(C4, 1) & "," & zhu(C5, 1)
If rr=num Then Exit Function
Next
Next
Next
Next
Next
End Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
打开Excel，在B1处输入=testGroup(A$1:A$11,ROW(A1))
按住右下角下拉填充即可
————————————————
版权声明：本文为CSDN博主「Ti严于律己」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/qq_42023175/article/details/112521922