Question

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

单元格R2包含公式＆＃39; = O2 + 13＆＃39;最终结果为10/01/2017

这是从16/12/16 - 10/01/17开始的14天。

我需要来自ACTIVE工作表的O2：P2和DD / MM / YYYY格式的+14然后将其粘贴回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

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

Answer 2

您需要使用DateAdd函数，选择“d”（天）作为要添加的区间参数。

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

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

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

2 个答案: