在纸张加载时将整个列添加1小时

Question

我有一个包含时间的列的电子表格，我需要运行一些vba，为时间列中的每个单元格增加1小时。该列没有固定的长度。

Answer 1

为什么这些问题被否决我不知道。每个人都有不同的能力来明确他们提出的问题。如果您对某个问题不够了解需要帮助，那么您将如何具体了解您的需求？无论如何，这里有怎么做：

1）识别数据所在的列号，例如A列= 1，B = 2等 2）获取最后使用的数据行，如下所示：

lastRow = theWorksheetTheDataIsOn.Cells(theColumnNumber, 1000000).end(xlUp).row

这从第一行开始，找到第一行有数据的行。

3）然后你可以从第一行（我将这是第2行）转到你在步骤2中确定的最后一行，如下所示：

For x = 2 to lastRow

     theWorksheetTheDataIsOn.Cells(x, theColumnNumber) = DateAdd("h", 1, Cells(x, theColumnNumber))

Next x

DateAdd公式是您正在寻找的。可以在http://www.techonthenet.com/excel/formulas/dateadd.php

找到一个很好的解释