WPS个人版安装VBA教程

WPS个人版安装VBA教程

1. 下载vba：
   网盘链接：https://pan.baidu.com/s/1SDe5ZhdkWdd1DTXgl-SFtA
   提取码：uerv

2. 安装vba：
   解压文件 —> 安装软件
   
   直接Next，安装成功即可；

3. 打开WPS，点击开发工具，这时就会看到宏、录制新宏、宏安全性、VB 编辑器这些都是点击的；
   

4. 下面来试试使用宏做一个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

打开Excel，在B1处输入=testGroup(A$1:A$11,ROW(A1))

按住右下角下拉填充即可