如何收集Excel动态单元格（如C7）的多次值生成列以计算max/min/average

嘿，我之前帮同事解决过一模一样的问题——要捕获Excel里动态变化的单元格（比如你说的C7）在刷新或数值修改后的每一个值，存成列表来算最大、最小和平均值，用VBA就能轻松搞定，毕竟Excel自带功能没法直接做这个。下面给你两个实用方案：

这个方案会自动捕获每次工作表计算（比如刷新、公式重算）或C7被手动修改时的数值，自动存到指定工作表里。

步骤： #

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
2. 在左侧项目窗口里，找到你要监控的工作表（比如Sheet1），双击它
3. 在右侧代码窗口的顶部下拉框，先选 Worksheet，再选 Calculate 事件，粘贴以下代码：

Private Sub Worksheet_Calculate()
    ' 定义要监控的目标单元格
    Dim targetCell As Range
    Set targetCell = Me.Range("C7")
    
    ' 定义存放记录的工作表（比如Sheet2），如果不存在请先新建
    Dim logSheet As Worksheet
    Set logSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 找到记录列的下一个空行
    Dim nextEmptyRow As Long
    nextEmptyRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 可选：只记录和上一条不同的值，避免重复
    If logSheet.Cells(nextEmptyRow - 1, "A").Value <> targetCell.Value Or nextEmptyRow = 1 Then
        ' 记录当前值和时间戳（时间戳可选，方便追踪变化时间）
        logSheet.Cells(nextEmptyRow, "A").Value = targetCell.Value
        logSheet.Cells(nextEmptyRow, "B").Value = Now()
    End If
End Sub

4. 同样在这个工作表的代码窗口，再选 Worksheet -> Change 事件，粘贴以下代码（用来捕获手动修改C7的情况）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查是否修改了C7单元格
    If Not Intersect(Target, Me.Range("C7")) Is Nothing Then
        Dim logSheet As Worksheet
        Set logSheet = ThisWorkbook.Worksheets("Sheet2")
        
        Dim nextEmptyRow As Long
        nextEmptyRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
        
        logSheet.Cells(nextEmptyRow, "A").Value = Me.Range("C7").Value
        logSheet.Cells(nextEmptyRow, "B").Value = Now()
    End If
End Sub

注意事项： #

• 确保存放记录的工作表（比如Sheet2）已经存在，不然会报错
• 如果你的数据刷新频率极高，建议保留代码里的“重复值判断”，避免生成大量冗余记录

如果不需要自动追踪，只是想时不时手动记录C7的当前值，可以用这个方案，操作更灵活。

步骤： #

1. 按下 Alt + F11 打开VBA编辑器，右键左侧项目窗口 -> 插入 -> 模块
2. 在模块里粘贴以下代码：

Sub RecordC7Value()
    ' 定义目标单元格和记录工作表
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Worksheets("Sheet1").Range("C7")
    
    Dim logSheet As Worksheet
    Set logSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 找到下一个空行
    Dim nextEmptyRow As Long
    nextEmptyRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 记录值和时间戳
    logSheet.Cells(nextEmptyRow, "A").Value = targetCell.Value
    logSheet.Cells(nextEmptyRow, "B").Value = Now()
    
    ' 可选：弹出提示确认记录成功
    MsgBox "已记录C7当前值：" & targetCell.Value, vbInformation
End Sub

3. 回到Excel界面，点击「开发者选项」-> 插入 -> 按钮（表单控件），拖出一个按钮后选择 RecordC7Value 宏，修改按钮文字为「记录C7值」
4. 之后每次点击这个按钮，就会把当前C7的值存到Sheet2的A列里

当你收集了足够多的记录后，直接在记录工作表（比如Sheet2）里用公式计算：

• 最大值：=MAX(A:A)（如果有表头，改成=MAX(A2:A10000)，覆盖你的记录范围）
• 最小值：=MIN(A:A)
• 平均值：=AVERAGE(A:A)

内容的提问来源于stack exchange，提问作者Jebula999