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