Excel 宏到提前日期

Question

我有大量的 Excel 工作表，每个工作表都有 3 个 Excel 工作簿选项卡。在最后一个将有大量数据，但一列将是一个日期列，下面有一堆不同的日期。日期格式为 MM/DD/YYYY。我需要将每个日期提前 4 年。

我想我需要选择正确的工作簿，搜索特定的列，然后循环遍历该列下的每个值以推进它，但这一天本身需要保持不变。例如，如果它是 10/05/2017，则它需要是 10/05/2021。任何建议或帮助都会很棒。先感谢您。

感谢您的帮助，我意识到我对我的问题没有太大帮助。一般来说，我对 VB 脚本和 excel 宏非常陌生。我没有得到如何搜索列本身，因为无论列值是什么我都希望它找到列（可能在整个工作表中搜索一个显示“日期”的单元格？，我只是想添加开始的4年，找不到我需要的功能。这是我从我得到的东西中得到的，似乎这是非常错误的哈。

直到 IsEmpty(ActiveCell)

  Set ThisCell = ActiveCell

    ThisCell = DateAdd("yyyy", 4, ColumnValueHere)

     ' Step down 1 row from present location.
     ActiveCell.Offset(1, 0).Select

  Loop

Answer 1

你会想要 DateAdd 函数

试试这样的：

Sub AddDates()

Dim lastRow as integer
Dim theSheetImWorkingOn as worksheet
Dim theColumnNumberForTheDates as integer

theColumnNumberForTheDates = 5 ' change this to be the column number you want
Set theSheetImWorkingOn = Sheets("Put your sheet name here")

lastRow = theSheetImWorkingOn.Cells(1000000, theColumnNumberForTheDates ).End(xlUp).row

For x = 2 to lastRow ' assuming your data starts on row 2

     theSheetImWorkingOn.Cells(x, theColumnNumberForTheDates) = DateAdd("yyyy", 4, theSheetImWorkingOn.Cells(x, theColumnNumberForTheDates))

Next x

End Sub