Excel VBA优化：修改指定区域时更新日期代码卡顿问题

核心优化思路 #

• 避免重复操作同一行：原代码会循环遍历修改范围内的每个单元格，即使同一行多个单元格变动，也会重复更新T列，造成资源浪费。
• 关闭事件触发与屏幕刷新：修改单元格时会触发Excel的事件响应和屏幕重绘，关闭这些操作能大幅提升运行速度。
• 批量处理格式：不在循环内重复设置单元格格式，统一一次性完成格式配置。
• 修正监控范围：原代码监控B列到R列，与你需求的C到R范围不符，先修正监控边界。

优化后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WorkRng As Range, uniqueRows As Collection
    Dim cell As Range, rowNum As Variant
    
    ' 修正监控范围为C1:R300，匹配需求
    Set WorkRng = Intersect(Me.Range("C1:R300"), Target)
    If WorkRng Is Nothing Then Exit Sub
    
    ' 关闭事件触发，防止修改T列时递归触发Change事件
    Application.EnableEvents = False
    ' 关闭屏幕刷新，减少卡顿
    Application.ScreenUpdating = False
    
    ' 收集所有需要处理的唯一行号
    Set uniqueRows = New Collection
    On Error Resume Next ' 忽略重复行的添加错误
    For Each cell In WorkRng
        uniqueRows.Add cell.Row, Key:=CStr(cell.Row)
    Next cell
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 逐行处理更新逻辑
    For Each rowNum In uniqueRows
        ' 检查当前行C-R列是否存在非空值
        If Application.CountA(Me.Range("C" & rowNum & ":R" & rowNum)) > 0 Then
            Me.Range("T" & rowNum).Value = Now
        Else
            Me.Range("T" & rowNum).ClearContents
        End If
    Next rowNum
    
    ' 统一设置T列格式，仅执行一次
    Me.Range("T1:T300").NumberFormat = "dd/mm/yyyy h:mm"
    
    ' 恢复事件触发与屏幕刷新
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

关键优化说明 #

• 去重行处理：通过Collection收集唯一行号，确保同一行无论多少单元格变动，仅处理一次，避免重复操作。
• 关闭事件与刷新：Application.EnableEvents = False避免修改T列时再次触发Worksheet_Change事件；ScreenUpdating = False停止屏幕实时重绘，消除频繁刷新带来的卡顿。
• 批量格式设置：将T列的格式配置移到循环外，仅执行一次，减少重复操作开销。
• 空值逻辑调整：原代码只要修改的单个单元格为空就清空对应T列，优化后改为检查整行C-R是否全空才清空，更符合“C-R任意单元格修改时更新T列”的核心需求（如果需要保留原单个单元格空值就清空T列的逻辑，可将行内判断改回原单元格判断）。

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