在VBA中自动更新图表

我想知道为什么我的代码不工作

Sheets("Chart").Activate FinalRow = Cells(Rows.Count, 1).End(xlUp).Row Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Date For i = 2 To FinalRow If Cells(i, 1).Value = Date Then Cells(i, 2).Value = Sheets("Main Sheet").Range("D2").Value Cells(i, 4).Value = Sheets("Main Sheet").Range("D3").Value End If Next i 

循环似乎忽略列A中的date值。我错过了什么？

Answer 1

在将date添加到其下面的单元格之前，先确定FinalRow。 For循环在FinalRow中停止，在到达具有添加date的单元格之前。

您需要在确定FinalRow之前设置date，或者将循环从2循环到FinalRow + 1