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

Question

所以我有一个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做到每一行和每个随机生成的数字。 到目前为止，我已经能够在该列中填充多行，但是它是相同的数字，并且不是唯一的

有什么建议吗？

编辑

我唯一的代码是这样的：

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

这有招吗？