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

阅： 13901 | 回： 20

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

xj_12

发表于 2015/11/1 13:16:42

回复12楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：11楼

是的，这代码是可以实现在一块区域内随机选择单元格的，但是因为如果我想选择多个，比如说30个的时候，一行就写不下了。如果换行的话就会提示代码错误。

请问下，是否可以在VBA中定义一个随机变量a，然后Cells(a, a)实现随机单元格。或者是有其他的方法。

我的个性签名

首席打杂

发表于 2015/11/1 16:06:34

回复13楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：12楼

嗯，你可以研究下VBA里面有个 for 循环。

我只是一个打工仔..

xj_12

发表于 2015/11/9 20:54:59

回复14楼

等级:初学者

积分:2

财富值:4

身份:普通用户

文件在这

附件: 下载在线编辑

我的个性签名

首席打杂

发表于 2015/11/9 21:24:43

回复15楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：14楼

请下载方案1 的附件

我只是一个打工仔..

xj_12

发表于 2015/11/9 23:10:43

回复16楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：15楼

附件不是我要求的啊。。

我的个性签名

xj_12

发表于 2015/11/9 23:14:51

回复17楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：15楼

能否用VBA实现，A1：J10这块区域中100个单元格，随机选择70个，并把这70个单元格复制到另一块区域

我的个性签名

xj_12

发表于 2015/11/10 8:54:57

回复18楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：15楼

我尝试着用如下代码

Private Sub Worksheet_Activate()
Dim a As String
Dim b As String
a = Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1).Address
b = Cells(Int(10 * Rnd()) + 1, Int(10 * Rnd()) + 1).Address
Union(a, b).Select
End Sub

想把随机单元格的地址赋值给变量a，b。然后用union函数联合选取a,b两个单元格

我的个性签名

首席打杂

发表于 2015/11/10 10:18:56

回复19楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：18楼

我没听懂。我就是按照你的要求做的。能否把你的要求再说一下，不需要把你的代码写出来的。

是这个吗？能否用VBA实现，A1：J10这块区域中100个单元格，随机选择70个，并把这70个单元格复制到另一块区域

我只是一个打工仔..

首席打杂

发表于 2015/11/10 10:27:41

回复20楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：18楼

帮你再改了，A1：J10这块区域中100个单元格，随机选择70个，并把这70个单元格复制到另一块区域。

请下载附件

附件: 下载在线编辑

我只是一个打工仔..

xj_12

发表于 2015/11/11 8:52:54

回复21楼

等级:初学者

积分:2

财富值:4

身份:普通用户

回复：20楼

谢谢！

我的个性签名

快速回复