Excel 在板材加载时，为整个柱增加1小时的时间

我有一个电子表格，其中有一个列，其中有一个时间，我需要一些vba来运行，使时间列中的每个单元格增加1小时。专栏没有固定的长度。

我不知道为什么这类问题会被否决。每个人都有不同的能力来明确他们所问的问题。如果你对一个问题了解不够，需要帮助，你如何具体说明你需要什么？无论如何，下面是如何做到这一点：

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

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

For x = 2 to lastRow

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

Next x

这将从第一百万行开始，并查找第一行中包含数据

3） 然后，您可以从第一行（我假设这是第2行）转到步骤2中刚刚标识的最后一行，如下所示：

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

For x = 2 to lastRow

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

Next x

---

DateAdd公式就是您想要的。这里可以找到一个很好的解释

如果您尝试了一些东西，然后在遇到问题时将您尝试过的内容（以及任何错误的描述）发布到这里，这是最好的选择。我已经尝试过ActiveCell.value=ActiveCell.value+TIME（1,0,0）但我得到的只是一个不匹配的错误。

ActiveCell.value=ActiveCell.value+1/24

或

ActiveCell.value=ActiveCell.value+TimeSerial（1,0,0）