如何用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自由组合
小编推荐
小憩最新版
小憩最新版 生活服务丨64.3MB
进货通最新手机版
进货通最新手机版 其他软件丨40.2MB
美l免费版
美l免费版 其他软件丨48.4MB
智慧兰职手机安卓版
智慧兰职手机安卓版 其他软件丨30.4MB
万盟软件2026最新
万盟软件2026最新 其他软件丨9.0MB
微信农场上线版2026
微信农场上线版2026 其他软件丨245.0MB
涂鸦板手机版
涂鸦板手机版 其他软件丨10.0MB
麦当劳免费
麦当劳免费 生活服务丨97.0MB
中考通安卓版
中考通安卓版 其他软件丨14.0MB