VBA Excel - 合并单元格+单个单元格(两者都包含数字，我想要它们的总和)

Question

单元格 O2：P2 合并并包含 28/12/2016

单元格 R2 包含公式"=O2+13"，最终为 10/01/2017

这是从 28/12/16 - 10/01/17 的 14 天周期。

我需要活动工作表中的 O2：P2 和 +14 以 DD/MM/YYYY 格式将其粘贴回 O2：P2

Sub AllInOne()
' Create New Sheet
ActiveSheet.Select
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Select
ActiveSheet.Name = "RenameMe"
' Carry Flex
ActiveSheet.Range("B4").Value = ActiveSheet.Previous.Range("R24").Value
' New Datestamp
' Clear New Timesheet
ActiveSheet.Range("E12:R19").ClearContents
ActiveSheet.Range("E26:F26,I26:M26,P26:R26").ClearContents
ActiveSheet.Range("E27:F27,I27:M27,P27:R27").ClearContents
ActiveSheet.Range("E12").Select
End Sub

Answer 1

您需要使用 DateAdd 函数，并选择"d"（天）作为要添加的间隔参数。

由于您的范围（"O2：P2"）已合并，因此请使用 O2 作为参考范围。

Range("O2").Value = DateAdd("d", 14, Range("O2").Value)

Answer 2

如果合并，则仅使用 O2 而不是 o2：p2，它应该可以工作