手动手机取值

tu01

所图，A---F是引用H---M的随机值，有什么方法可以手动取随机值？

liulang0808

楼主的手动 随机取值是什么意思？
结合附件描述下，具体是什么处理步骤

tu01

liulang0808 发表于 2018-9-18 19:50
楼主的手动 随机取值是什么意思？
结合附件描述下，具体是什么处理步骤

A列数字是H列的随机值，B列数字是I列的随机值，以此类推。我想用F9刷新得随机值数据，如何做到？

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr
   
4.   Randomize Timer
   
5.   With Worksheets("sql")
   
6.     r = .Cells(.Rows.Count, 8).End(xlUp).Row
   
7.     .Range("h2:m" & r).Copy .Range("a2")
   
8.     ReDim arr(1 To r - 1, 1 To 1)
   
9.     For i = 1 To UBound(arr)
   
10.       arr(i, 1) = Rnd()
    
11.     Next
    
12.     .Range("g2").Resize(UBound(arr), 1) = arr
    
13.     .Range("a2:g" & r).Sort key1:=.Range("g2"), order1:=xlAscending, Header:=xlNo
    
14.     .Columns("g:g").ClearContents
    
15.   End With
    
16. End Sub
    

复制代码

chxw68

详见附件。

tu01

chxw68 发表于 2018-9-18 21:32
详见附件。

嘻嘻嘻，感谢！！！