Excel中修改某单元格日期时如何同步偏移另一单元格关联日期

要实现修改A列起始日期时B列结束日期自动偏移相同时间跨度，核心是提前保留两列日期的原始间隔，不要直接在B列写死固定日期，下面两种方案按需选择即可。

方案1：公式法（零代码，适合不需要手动调整结束日期的场景） #

• 新增C列作为间隔存储列（后续可直接隐藏，不影响使用），在C2单元格输入公式计算两列原始间隔：=DATEDIF(A2,B2,"m")，如果你的日期间隔按天计算就把最后一个参数改为"d"，按年计算改为"y"，输入完成后下拉填充整列。
• 清空B列原有固定日期，在B2单元格输入偏移公式：=EDATE(A2,C2)，同样下拉填充整列。

注意：EDATE函数原生处理跨年月、月末日期的逻辑不会出错，比如起始日期是1月31日、间隔1个月时，会自动返回对应2月的最后一天（平年28日/闰年29日），不会生成无效日期。

• 此时修改A列任意单元格的起始日期，B列对应单元格都会按照C列存储的固定间隔自动偏移，比如把A2从1-Jun-22改为1-May-22，C2存储的间隔是1个月，B2会自动更新为1-Jun-22，完全符合联动要求。不需要显示C列时，右键点击C列列标选择「隐藏」即可。

方案2：VBA事件法（无辅助列，适合需要保留手动修改B列权限的场景） #

• 按Alt+F11快捷键打开VBA编辑器，在左侧工程资源管理器中双击需要设置的工作表名称，打开对应代码编辑窗口。
• 将以下代码粘贴到编辑区，保存文件时选择「Excel 启用宏的工作簿（*.xlsm）」格式即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, offsetDays As Long
    ' 仅监控A列单元格的修改操作
    Set rng = Intersect(Target, Me.Range("A:A"))
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        For Each cell In rng
            ' 跳过空值行避免报错
            If cell.Value <> "" And cell.Offset(0, 1).Value <> "" Then
                ' 计算修改前两列的日期差（按天统计，兼容任意跨度）
                offsetDays = Me.Cells(cell.Row, "B").Value - cell.Value
                ' 按相同跨度更新B列结束日期
                cell.Offset(0, 1).Value = cell.Value + offsetDays
            End If
        Next
        Application.EnableEvents = True
    End If
End Sub

说明：该方案不需要额外辅助列，日常使用时可以正常手动编辑B列的结束日期，只有当A列起始日期被修改时，才会自动按照当前两列的间隔同步偏移B列日期，灵活性更高。

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