【资料图】
1、用VBA代码（我设置的抽签1-100，不会有重复），如下：Sub cq()Range("c3:e3").ClearContentsDim i As Bytei = 3T1:Do While i < 6 If Cells(3, i) = "" Then Cells(3, i) = Application.RandBetween(1, 100) End If i = i + 1LoopIf Application.Or(Cells(3, 3) = Cells(3, 4), Cells(3, 3) = Cells(3, 5), Cells(3, 4) = Cells(3, 5)) Then Range("c3:e3").ClearContents GoTo T1End IfEnd Sub效果如下（若图片没有动画。
2、请点一下图片）。
本文到此分享完毕，希望对大家有所帮助。
标签：
热门推荐
精彩放送
X 关闭
农发行与广西签署战略合作协议 共同推进城乡重大项目建设
土巴兔公司持续盈利能力存疑 毛利率超90%比肩茅台净利率仅10%
6月底前河南省实现“场所码”全覆盖 升级后的“场所码”有啥功能
公安部推行新车上牌新规 便利群众快捷上牌
北京市经信局公布今年第三批北京市“专精特新”中小企业名单
“520”迎婚姻登记高峰！深圳市民政局：高峰日扎堆登记可能影响体验感
北京市东城区41条措施落地 2790家中小微企业享受政策支持
地球上最幸福的人！56岁非洲建筑师获普利兹克建筑奖
新疆阿克苏地区库车市发生4.1级地震 震源深度21千米
从东北到西北 他在“军垦第一城”规划着城建未来
