如何用excel自由组合

作者:yxglyl88 时间:2025-12-14 19:04:00

结果的A1输入

根据条件表中A2单元格的值,以及B2、C2、D2各单元格中由随机数决定位置提取的一个字符,组合生成一个新字符串,并将其转换为数值结果。

将条件表中A2单元格的内容与B2、C2、D2单元格中分别通过随机数选取一个字符进行组合,使用MID函数提取相应位置的字符,并通过ROUND和RAND函数生成1或2作为取值位置,最后将各部分拼接起来,整体结果转换为数值形式。

回车并向右填充。

交替按F2和回车键刷新数据。

使用vba实现

自动排列组合,生成列数,支持手动输入设定。

从第二行第一列起逐列生成数据,每列数字不重复且数量随机。

实现代码如下:

按钮1被点击时执行的程序

清空当前工作表中所有已使用单元格的内容。

a = InputBox(请输入生成序列的列数) 提示用户输入列数

创建字典对象用于去除重复数据。

如果VBA判断a为数值,则继续执行;否则跳出程序。

随机化:初始化随机数种子

生成从1到a整数部分的随机列数,循环执行。

每列随机生成一个1到10之间的整数,用于控制数据数量。

l2:

若 d 的数量不等于 b,则生成随机数。

GoTo l2

End If

将字典d的键值经转置后,填入从第2行第j列开始、高度为d元素个数的单元格区域中,实现随机数在对应列的批量写入。

Next j

Else

请输入有效的数值。

GoTo l1

End If

l1:

End Sub

程序执行效果:

如何用excel自由组合
小编推荐
CPU-Zv2.18
CPU-Zv2.18 其他软件丨4.11MB
newfiletime中文版v8.18
newfiletime中文版v8.18 其他软件丨209.00KB
NTLitev2026.03.10876
NTLitev2026.03.10876 其他软件丨20.38MB
桌面日历v3.28.271.8527
桌面日历v3.28.271.8527 其他软件丨7.07MB
u深度v5.0.26.209
u深度v5.0.26.209 其他软件丨763.19MB
九阴真经ol1.0.2.560
九阴真经ol1.0.2.560 其他软件丨42.80GB
京东小金库 8.1.60 安卓版
京东小金库 8.1.60 安卓版 其他软件丨53.16 MB