Question

假设单元格A1=1，A5=2,A9=3，A18=4，能否编一段excel宏代码，随机选取A2至A4行，A6至A8行，A10至A17

Answer 1

Sub xuan()
i = Int(Rnd() * 3 + 1)
If i = 1 Then Range("a2:a4").Select
If i = 2 Then Range("a6:a8").Select
If i = 3 Then Range("a10:a17").Select
End Sub

追问

假设i=1800，难道要写1800行吗，有没有更好的代码 .我知道可以利用A列的题号个数乘以随机数，假设是8，再选取A8右下角至A列往下第一个不为空单元格的右上第6个单元格的区域，但我不会写语句。好像用offse，但我不会 [bu] [zai'xuan'qu] [ti'hao] [li][dai] [hang]

追答

朋友！我现在也糊涂了 你要做什么啊……
这个语句的 i 仅仅在1与3 之间哪？你不是就要随机选择 那三个区域吗？如果不是这个意思 那么请重新描述你具体的需求 看来我的理解与你的实际需求 差别很大……
看看你的题目 似乎 只在 说明的三个区域内选择啊……

追问

这段程序没问题，是说，假设行数多的话，该怎么办，我是想弄个题库练习程序 [ti'ku]

追答

那要看你要怎样做了！朋友 说出你具体的要求来 现在我不清楚你的具体意思 你的如果 行数很多的话 想怎样 选择啊？需要详细描述一下……必须说出你要变换选择的规律性 否则 ……
可以使用循环语句 等……
或许 我也没有表达清楚 我的意思 下面解释一下 这段代码的意思：
Sub xuan()
i = Int(Rnd() * 3 + 1) ‘赋值给变量i 的值一个随机函数所得到的 整数 在1、2、3 之间……
If i = 1 Then Range("a2:a4").Select ‘如果i=1 那么就选取 A2:A4 这个单元格区域
If i = 2 Then Range("a6:a8").Select '‘如果i=2 那么就选取 A6:A8 这个单元格区域
If i = 3 Then Range("a10:a17").Select '‘如果i=3 那么就选取 A10:A17 这个单元格区域
End Sub
另外我不知道 你的题目中 给出 A1 、A5、A9 的值 是什么意思……

你在补充里说明一下吧 你具体的要求

追问

A列是题号，bcdef列是题目，不同的题可能有不同的行，没有规律，按照题号顺序或者随机选题 [huo] [le]

追答

越来越使我糊涂了……这样吧如果可以的话可以联系我327391401
看来 必须深入地交谈才能了解到你的真实想法 这样交流下去 会违规并且似乎没有任何的有益进展 方向性似乎也出现了偏差……

追问

A列是题号，bcdef是题目，不同的题目占的行数不一样，没有规律，想按照题号随机选择指定题量的题目和按照题号顺序选择指定题量的题目，即一个是练习，一个是考试