[已解决]求助

scl5801

SiGsyYaO.rar (25.09 KB, 下载次数: 0)

2010-10-7 15:13 上传

点击文件名下载附件
求助

刚学abv,写了一个随机函数语句，出现错误。请大侠改正。谢谢

最佳答案

月排行榜 / 总排行榜

Zipall

2010-10-7 16:52

Option Base 1
Sub gs()
    Randomize
    Dim i%, arr()
    r_end = Range("b65536").End(xlUp).Row
    Range("d6:d" & r_end).ClearContents
    r_end = r_end - 5
    ReDim arr(r_end, 1) '重定义数组大小。
    For i = 1 To r_end
        arr(i, 1) = Application.Ceiling((Rnd * (Range("h2").Value - Range("g2").Value) + Range("g2").Value), 1)
    Next i
    [d6].Resize(r_end, 1).Value = arr
End Sub

跳转到最佳答案楼层

scl5801

那位热心大侠帮忙啊

Zipall

Option Base 1
Sub gs()
    Randomize
    Dim i%, arr()
    r_end = Range("b65536").End(xlUp).Row
    Range("d6:d" & r_end).ClearContents
    r_end = r_end - 5
    ReDim arr(r_end, 1) '重定义数组大小。
    For i = 1 To r_end
        arr(i, 1) = Application.Ceiling((Rnd * (Range("h2").Value - Range("g2").Value) + Range("g2").Value), 1)
    Next i
    [d6].Resize(r_end, 1).Value = arr
End Sub

Zipall

补充一点：

应该在循环语句外将两个Range的值赋值给一个变量。

在循环语句中直接调用该变量，比频繁的操作单元格对象要快的多，当循环量大时他们的区别就会非常明显。