excel - VBA 循环和 DateDiff

Question

我目前正在做一个关于 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

标签： excelvba