麻烦大神写个代码，谢谢

lydgl

1 在行数 输入任意数值
2 系数列，下面自动填充多少行

备注：系数列里面的函数为：=INT(RAND()*(100-30)+30)/100

小花鹿

没附件                                                                                                               

q960126

这个干脆写个函数得了 =IF($D$2>=ROW()-1,INT(RAND()*(100-30)+30)/100,"")没必要写代码、

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, n
  n = [d2].Value
  With [a2]
    .Resize(Rows.Count - 1).ClearContents
    If Len(n) > 0 And IsNumeric(n) Then
      ReDim arr(1 To n, 1 To 1) As String
      Randomize
      For i = 1 To n
        arr(i, 1) = Format(Int(Rnd * (100 - 30) + 30) / 100, "0.00")
      Next
      .Resize(n) = arr
    End If
  End With
End Sub

cwpccna

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.   Dim i, n
   
5.   n = [d2].Value
   
6.   With [a2]
   
7.     .Resize(Rows.Count - 1).ClearContents
   
8.     If Len(n) > 0 And IsNumeric(n) Then
   
9.       ReDim arr(1 To n, 1 To 1) As String
   
10.       Randomize
    
11.       For i = 1 To n
    
12.         arr(i, 1) = Format(Int(Rnd * (100 - 30) + 30) / 100, "0.00")
    
13.       Next
    
14.       .Resize(n) = arr
    
15.     End If
    
16.   End With
    
17. End Sub

复制代码