如何在Excel中的某一列用vba产生五组1到10的随机数?
题目
如何在Excel中的某一列用vba产生五组1到10的随机数?
如何在Excel中的某一列产生五组1到10的随机数?
例如:在A1至A50中产生五组1到10的随机数,产生一组容易实现,可是产生五组就有问题了,每一组产生的随机数要不一样,比如第一组产生的是2,8,10,3,7,5,4,1,9,6.第二组7,10,9,5,6,8,3,1,2,4等!
Public Sub sjs()
Dim rng As Range,rng1 As Range
Dim x As Integer,y As Integer,i As Integer
x = 1
y = 10
m = 50 / 10
For i = 1 To m
Set rng = Range("A(x):A(y)")
rng.ClearContents
Randomize
For Each rng1 In rng
Do
rng1 = Int(Rnd * 10 + 1)
Loop Until Application.WorksheetFunction.CountIf(rng,rng1) = 1
Next
x = x + 10
y = y + 10
Next
End Sub
答案
能够产生一组随机数会了.五组如果不会用循环,就单独用5次就行了.如下:Public Sub sjs()'以下第一组Dim a As Range, a1 As RangeSet a = Range("a1:a10")a.ClearContentsRandomizeFor Each a1 In aDoa1 = Int(1 + Rnd...
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 已知P={x^2-8x-20≤0},S={x| |x-1|≤m}
- 两个因数都是7/3,写成乘法算式是7/3×2 对还是错?
- 一直角三角形的一条直角边长为6,另两条边长是连续偶数,则该三角形周长为
- 先化简比,再求比值 0.45:0.15 1/6:5/6 21:56就写这么多吧!
- √2除以3√40等于
- 5ab-[2a的二次方b-(3ab-4ab的二次方+a的二次方b)]先去括号,在合并同类项.
- 皇帝的新装英语作文100词
- 酸,碱,盐水溶液靠什么导电
- H2O2的宏观微观的意义
- 比的前项缩小到它的1/3倍,后项也缩小到它的1/3倍,比值不变.这句话对吗