将一系列单元格提前 1 个月

Question

我有几个表，其中一列是日期，我有一个按钮可以将所有这些日期提前 1 个月。该按钮与以下代码相关联，但它不起作用，而是给我一个提示 400。感谢任何帮助

Sub advanceDatebyOneMonth()

   Dim DateCell As Range
   Dim DateRange As Range

   Set DateRange = Range("C11:C26,C32:C40,C46:C54")

   For Each DateCell In DateRange.Cells

      Dim firstDate As Date, secondDate As Date
      firstDate = DateValue(DateCell.Value)
      secondDate = DateAdd("m", 1, firstDate)
      Range(DateCell).Value = secondDate

   Next DateCell

End Sub

Answer 1

这一行：

Range(DateCell).Value = secondDate

应该是：

DateCell.Value = secondDate

因为 DateCell 已经是一个范围

将一系列单元格提前 1 个月

Advance a range of cells by 1 month

excel

vba