ランダムに生成された異なる数値をVB.NETでExcelシートに追加する

Question

だから私はデータを追加しているExcelシートを持っています。私は、私はCOL5のやりたいことは、すべての行とそれを行うにはRNUMを使用して、個々の、ランダムに生成された番号を持っている、ヘッダ

 Dim xlApp As Excel.Application 
     Dim xlWorkBook As Excel.Workbook 
     Dim xlWorkSheet As Excel.Worksheet 
     Dim xlRange As Excel.Range 
     Dim misValue As Object = System.Reflection.Missing.Value 
     Dim rNum As Random = New Random 

     xlApp = New Excel.Application 
     xlWorkBook = xlApp.Workbooks.Add(misValue) 
     xlWorkSheet = xlWorkBook.Sheets("sheet1") 
     xlRange = xlWorkSheet.UsedRange 

     With xlWorkSheet 
      .Range("A1").Value = "col1" 
      .Range("B1").Value = "col2" 
      .Range("C1").Value = "col3" 
      .Range("D1").Value = "col4" 
      .Range("E1").Value = "col5" 
      .Range("F1").Value = "col6" 
     End With 

を行っています。これまでのところ私は列に複数の行を移入することができたが、それは同じ数と固有のものではありません

この上の任意のアドバイスですか？

xlWorkSheet.Range("E2:E10").Value = rNum.Next() 

Answer 1

あなたはすべてのセルに異なる値を設定するために、このコードを使用することができます：敬具

For i As Integer = 2 To 10 
    xlWorkSheet.Range("E" & i).Value = rNum.Next() 
Next i 

を、ドゥーム

EDIT

は私が持っていた唯一のコードは、このました100％の健康とガイ

Answer 2

代わりのusinグラム

xlWorkSheet.Range("E2:E10").Value = rNum.Next() 

トリックを行うこと

Dim rCell As Range 
Dim rRng As Range 

Set rRng = xlWorkSheet.Range("E2:E10") 

For Each rCell In rRng.Cells 
    rCell.Value = rNum.Next() 
Next rCell 

んを使用してみては？