当相邻单元格在 Excel 中更新时，如何自动填充日期？

有时，在更新某一列中的单元格时，您可能希望标记出有关更新的最新日期。本文将推荐一种使用 VBA 方法来解决此问题。当单元格更新时，相邻单元格会立即自动填充当前日期。

使用 VBA 代码在相邻单元格更新时自动填充当前日期

使用 VBA 代码在相邻单元格更新时自动填充当前日期

假设需要更新的数据位于 B 列中，并且当 B 列中的单元格更新时，当前日期将填充到 A 列的相邻单元格中。请参见截图：

您可以运行以下 VBA 代码来解决此问题。

1. 右键单击需要根据相邻更新单元格自动填充日期的工作表标签，然后从右键菜单中点击 查看代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，请将以下 VBA 代码复制并粘贴到代码窗口中。

VBA 代码：当相邻单元格更新时，在单元格中自动填充当前日期

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

注意：

3. 同时按下 Alt + Q 键以关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始，当更新 B 列中的单元格时，A 列中的相邻单元格将立即填充当前日期。请参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 在 Excel 下拉列表中选择值时，如何自动填充其他单元格？
• 在 Excel 下拉列表中输入内容时如何实现自动完成？