针对你需要监控B16单元格（运行显示1、停止显示0）的状态变化，自动记录每次切换的时间戳到下方空白单元格的需求，我整理了一套完整的VBA实现方案，亲测好用：

一、核心思路 #

因为B16的值是实时更新的（比如通过公式或外部数据源），普通的Worksheet_Change事件只会在手动修改单元格时触发，所以我们需要用Worksheet_Calculate事件来捕捉公式计算后的状态变化。同时要保存上一次的状态，避免重复记录（比如多次计算但值没变化的情况）。

二、具体代码实现 #

1. 打开Excel，按下Alt + F11进入VBA编辑器
2. 在左侧“工程资源管理器”中找到对应的工作表（比如Sheet1），双击打开其代码窗口
3. 粘贴以下代码：

' 模块级变量，保存上一次的状态，避免重复记录
Dim lastState As Variant

' 工作表激活时初始化上一次状态
Private Sub Worksheet_Activate()
    lastState = Me.Range("B16").Value
End Sub

' 工作表计算完成后触发，检查状态变化
Private Sub Worksheet_Calculate()
    Dim currentState As Variant
    Dim nextEmptyRow As Long
    
    currentState = Me.Range("B16").Value
    
    ' 只有当状态真的发生变化时才记录
    If currentState <> lastState Then
        ' 找到B列下方第一个空白单元格的行号
        nextEmptyRow = Me.Cells(Me.Rows.Count, "B").End(xlUp).Row + 1
        
        ' 写入状态和时间戳（可根据需要调整列，比如C列写时间）
        Me.Range("B" & nextEmptyRow).Value = currentState
        Me.Range("C" & nextEmptyRow).Value = Now()
        ' 设置时间戳为可读的日期时间格式
        Me.Range("C" & nextEmptyRow).NumberFormat = "yyyy/mm/dd hh:mm:ss"
        
        ' 更新上一次状态，避免重复触发记录
        lastState = currentState
    End If
End Sub

三、代码关键说明 #

• lastState：模块级变量，存储B16的上一次值，确保只有值从0→1或1→0时才生成记录
• Worksheet_Activate：切换到该工作表时初始化状态，避免打开文件时第一次计算就错误记录
• Worksheet_Calculate：每次工作表公式计算完成后触发，检查当前值与上一次值的差异，有变化则写入状态和时间戳
• nextEmptyRow：通过End(xlUp)定位B列最后一个有值的单元格，+1得到下一个空白行，保证记录连续不中断

四、后续统计小技巧 #

记录完状态和时间戳后，你可以用Excel公式快速统计停机数据：

• 假设B列存状态（1/0）、C列存时间戳，在D3输入公式：=IF(B3=0, C3-C2, "")，下拉填充即可计算每次停机的时长（从1变0到0变1的时间差）
• 用SUMIF统计总停机时长：=SUMIF(D:D, "<>")

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