在Excel中根据平均值生成随机数，可通过以下方法实现：
一、生成符合正态分布的随机数
使用NORM.INV函数
该函数可生成符合正态分布的随机数，公式为：
$$=NORM.INV(RAND(), \mu, \sigma)$$
其中，$\mu$为均值，$\sigma$为标准差。例如，若均值为50，标准差为10，则输入`=NORM.INV（RAND（）, 50, 10）`即可生成符合要求的随机数。
生成多个随机数
可通过拖动填充柄快速生成多个随机数。例如，在B2单元格输入`=NORM.INV（RAND（）, C1, D1）`后，向下拖动填充柄生成更多数据。
二、生成指定范围内的随机数
使用RANDBETWEEN函数
适用于生成固定范围内的随机整数，公式为：
$$=RANDBETWEEN(最小值, 最大值)$$
例如，生成1到100之间的随机整数，输入`=RANDBETWEEN（1, 100）`。
调整范围以匹配平均值
若需生成的平均值与指定范围不一致，可通过公式调整。例如，指定平均值为50，范围为10-100，则需在公式中加入偏移量：
$$=50 + \frac{RANDBETWEEN(-45, 45)}{9}$$
这里-45到45的范围确保均值为50。
三、动态调整随机数（迭代计算）
使用IF函数和AVERAGE函数
可通过循环生成随机数并调整部分值以匹配指定平均值。例如，在A4单元格输入：
$$=IF(AVERAGE(A4:F11)=D1, A4, RANDBETWEEN(30,80)/10)$$
需在【公式】选项中启用迭代计算（最多1000次），修改D1中的平均值即可更新随机数。
VBA宏实现（高级用户）
通过编写VBA代码，可批量生成随机数并调整至指定平均值。例如：
```vba
Sub GenerateRandomNumbers()
Dim i As Integer, j As Integer
Dim sum As Double
For i = 2 To 100
For j = 1 To 10
Cells(i, 4) = Int((Range("Max") - Range("Min") + 1) * Rnd + Range("Min"))
Next j
sum = Application.WorksheetFunction.Average(Range("A1:J20"))
If sum <> Range("A1") Then
For j = 1 To 10
Cells(i, j) = Cells(i, j) - (sum - Range("A1"))
Next j
End If
Next i
End Sub
```
该代码生成200个随机数，并调整部分值以匹配指定平均值。
注意事项
使用`RAND（）`函数生成的随机数每次工作表计算时都会变化，若需固定种子，需在代码中设置。
生成随机数后，建议检查数据分布是否合理，必要时调整参数或使用专业统计工具。
通过以上方法，可灵活根据平均值生成符合需求的随机数。