Excel 通过函数随机选取区域中的多个单元格

阅： 14475 | 回： 20

通过函数随机选取区域中的多个单元格全部 , 编号:0556

xj_12

发表于2015/10/30 23:09:04 楼主

回复楼主

等级:初学者

积分:2

财富值:4.0

身份:普通用户

请教各位大神，是否有一个函数可以实现随机选取指定区域中的多个单元格。

比如说我选定了一个区域，这个区域有100个单元格，然后我想随机选取其中的20个单元格。

悬赏：5 财富值

我的个性签名

sflw

发表于 2015/10/31 8:40:53

回复2楼

等级:传说级人物

积分:638

财富值:934

身份:普通用户

这些区域的单元格是否都是连在一起的？其次被随机选中的单元格有什么变化？比如填充颜色还是单元格里面的字体改变颜色

我的个性签名

xj_12

发表于 2015/10/31 9:46:17

回复3楼

等级:初学者

积分:2

财富值:4

身份:普通用户

这些区域的单元格是连在一起的，比如说A1：J10共100个单元格，随机选20个单元格清除。

附件: 下载在线编辑

我的个性签名

sflw

发表于 2015/10/31 10:03:04

回复4楼

等级:传说级人物

积分:638

财富值:934

身份:普通用户

一定要用函数吗，不可以用VBA吗？

我的个性签名

首席打杂

发表于 2015/10/31 10:30:55

回复5楼

等级:学者

积分:99

财富值:250

身份:普通用户

请看方案1的黄色单元格，需要几个随机数，就下拉几个单元格。操作很简单

我只是一个打工仔..

sflw

发表于 2015/10/31 10:36:51

回复6楼

等级:传说级人物

积分:638

财富值:934

身份:普通用户

回复：3楼

如果是随机从这100个单元格中随机选20个单元格，并将其内容删除，我认为这个要用VBA来做

我的个性签名

xj_12

发表于 2015/10/31 13:55:14

回复7楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：6楼

那大神能否用VBA实现呢？

我的个性签名

xj_12

发表于 2015/10/31 13:56:42

回复8楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：5楼

我的意思是是要随机选中那块区域中的100个单元格中的20个，并且就在那块区域中选中的内容清除

我的个性签名

sflw

发表于 2015/10/31 15:15:41

回复9楼

等级:传说级人物

积分:638

财富值:934

身份:普通用户

只能用VBA来达到你的效果，VBA比较麻烦，能否提高点悬赏呢

我的个性签名

xj_12

发表于 2015/10/31 15:20:24

回复10楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：9楼

我用VBA实现了，但是我想选30个，句子太长，导致直接换行了，结果提示错误。请问该怎么做？Private Sub Worksheet_Activate()
Union(Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1 , Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1), Cells(Int(10 * Rnd()) + 1, Int(10 * R
End Sub

我的个性签名

首席打杂

发表于 2015/10/31 21:59:05

回复11楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：10楼

你这个VBA代码太乱了，而且没见过这么写的VBA代码。

我只是一个打工仔..

快速回复