用VB.NET在Excel工作表中添加不同的随机生成的数字

所以我有一个Excel表格，我正在添加数据。 我已经做了标题

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 

我想为col5做的是每行都有个人，随机产生的数字用rNum来做。 到目前为止，我已经能够在列中填充多行，但它是相同的数字，而不是唯一的

对此有何build议？

编辑

我唯一的代码是这样的：

 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 

真诚，100％健康的厄运盖伊

Answer 2

而不是使用

 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 

这有诀窍吗？