写一个vba代码，给Excel的工作表第一列，随机生成100个35.0到40.0的随机数字。

### 回答1：
以下是 VBA 代码，可以在 Excel 中使用它来生成随机数字：

Sub RandomNumbers()

Dim i As Integer

For i = 1 To 100
    Cells(i, 1).Value = Rnd() * (40 - 35) + 35
Next i

End Sub

这段代码将会在 Excel 的工作表的第一列中生成 100 个 35.0 到 40.0 之间的随机数字。

要使用这段代码，请打开 Excel 并进入 Visual Basic 编辑器（可以在“开发工具”选项卡中找到）。然后，将代码粘贴到编辑器中，并在 Excel 中运行它。

### 回答2：
可以使用以下VBA代码来实现给Excel工作表的第一列随机生成100个35.0到40.0的随机数字：

Sub GenerateRandomNumbers()
    Dim ws As Worksheet
    Dim i As Integer
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为实际的工作表名称
    
    For i = 1 To 100
        ws.Cells(i, 1).Value = WorksheetFunction.RandBetween(350, 400) / 10
    Next i
End Sub

在VBA编辑器中新建一个模块，将上述代码粘贴到模块中。确保替换代码中的"Sheet1"为要操作的工作表名称。代码的逻辑是使用`For`循环，从1到100，在工作表的第一列的每一行生成一个随机数。`WorksheetFunction.RandBetween(350, 400)`函数用于生成一个介于350和400之间的随机整数，然后除以10，将其转换为浮点数并存储在工作表的相应单元格中。

执行代码后，你将在工作表的第一列看到100个35.0到40.0之间的随机数字。

### 回答3：
Sub GenerateRandomNumbers()
Dim rng As Range
Dim cell As Range
Dim i As Integer
Dim num As Double

' 清空工作表第一列数据
Sheets("Sheet1").Range("A:A").ClearContents

' 定义要生成随机数的范围
Dim minNum As Double
Dim maxNum As Double
minNum = 35.0
maxNum = 40.0

' 设置随机数生成器
Randomize

' 循环生成100个随机数
Set rng = Sheets("Sheet1").Range("A1:A100")
i = 0
For Each cell In rng
' 生成随机数并将其赋值给单元格
num = (maxNum - minNum) * Rnd + minNum
cell.Value = num
i = i + 1

' 检查生成的随机数个数，如果已达到100个则退出循环
If i = 100 Then
Exit For
End If
Next cell

' 提示生成完成
MsgBox "随机数生成完毕！"
End Sub