Excel VBA循环和日期差异

我目前正在做一个关于VBA的项目。在实现循环时，我遇到了一些问题，因为我的公式不起作用。如果有人能帮助我，我将非常感激。它应该计算从订单到发货日期的天数，然后创建一个循环来显示和过滤器一样多的结果。宏将被分配给一个新按钮，因此基本上它与过滤没有任何联系。我认为这个问题是循环的

Sub DateDiff_Day()
Range("O8").Select
Do Until ActiveCell.Value = " "
Dim datValue1 As Date
Dim datValue2 As Date
datValue1 = Worksheets("Adv.filter, Pivot, Chart").Range("F8")
datValue2 = Worksheets("Adv.filter, Pivot, Chart").Range("H8")
CopyToRAnge: Worksheets("Adv.filter, Pivot, Chart").Range("O8") = DateDiff("d", datValue1, datValue2)
 Loop
End Sub

---

循环是无限的，您永远不会选择不同的单元格。您可能希望避免在宏中使用select。请编辑您的问题并发布一些示例数据。

Do-Until-ActiveCell.Value=”“

避免像这样在单元格中循环。如图所示查找最后一行，然后使用For循环。例如，从i=1到最后一行的