Question

我想知道为什么我的代码无效

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中的日期值。我错过了什么吗？

Answer 1

在将日期添加到其下方的单元格之前确定FinalRow。 For循环在FinalRow处停止，在到达具有您添加日期的单元格之前。

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

在VBA中自动更新图表

1 个答案: