Excel VBA需求：为命名单元格/区域添加非更新时间戳

这里有个完美适配你需求的VBA方案，专门解决动态工作表中无法用固定单元格定位的问题，实现当你在命名单元格/区域的相邻列单元格输入值时，自动添加静态不更新的时间戳：

实现步骤 #

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」中，双击你要应用这个功能的工作表（比如Sheet1）
3. 把下面的代码粘贴到右侧的代码窗口中

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nm As Name
    Dim namedRange As Range
    Dim cell As Range
    
    ' 禁用事件防止循环触发（避免写入时间戳时再次触发Change事件）
    Application.EnableEvents = False
    
    ' 出错时自动恢复事件并提示错误
    On Error GoTo Cleanup
    
    ' 遍历工作簿中所有已定义的名称
    For Each nm In ThisWorkbook.Names
        ' 筛选符合规则的命名单元格/区域：Named_Cell_* 或 Named_Range_Cells_*
        If nm.Name Like "Named_Cell_*" Or nm.Name Like "Named_Range_Cells_*" Then
            Set namedRange = nm.RefersToRange
            
            ' 获取命名区域的右侧相邻列区域（如果要左侧相邻就改成Offset(0,-1)）
            Dim adjacentRange As Range
            Set adjacentRange = namedRange.Offset(0, 1)
            
            ' 检查当前修改的单元格是否在相邻列范围内
            If Not Intersect(Target, adjacentRange) Is Nothing Then
                ' 遍历所有触发事件的相邻列单元格
                For Each cell In Intersect(Target, adjacentRange)
                    ' 定位到对应命名区域中的单元格（同一行）
                    Dim targetNamedCell As Range
                    Set targetNamedCell = namedRange.Cells(cell.Row - namedRange.Row + 1, 1)
                    
                    ' 写入静态时间戳（直接赋值为当前时间，不会自动更新）
                    targetNamedCell.Value = Now()
                    ' 可选：设置时间戳的显示格式，可根据需求修改
                    targetNamedCell.NumberFormat = "yyyy-mm-dd hh:mm:ss"
                Next cell
            End If
        End If
    Next nm

Cleanup:
    ' 恢复事件功能
    Application.EnableEvents = True
    ' 如果有错误发生，弹出提示
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbExclamation
    End If
End Sub

关键功能说明 #

• 动态识别命名对象：通过遍历工作簿所有名称，匹配你指定的命名规则，完全不需要依赖固定单元格地址
• 静态时间戳：直接将当前时间作为单元格值写入，而非使用公式，确保时间戳不会随工作表刷新自动更新
• 相邻列判断：默认检测命名单元格/区域的右侧相邻列，如果需要改为左侧，只需把代码中的Offset(0,1)改成Offset(0,-1)即可
• 错误防护：内置错误处理，防止因无效命名或其他异常导致功能崩溃，同时避免循环触发事件

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