Excel 2016动态折线图重启后失效问题求助

这个问题我太熟悉了——本质就是表格刚启动时，VBA还没来得及写入第一行数据，OFFSET函数里的Sheet4!$A$2和Sheet4!$K$2根本不存在，直接触发#REF!错误，名称定义就崩了，自然图表也没数据。给你三个实用的解决思路，都是针对Excel 2016测试过的：

方法一：给OFFSET公式加容错判断 #

修改名称管理器里的公式，让它在没有数据时返回一个有效空引用，而不是报错。比如：

• Time的公式改成：

  =IF(COUNTA(Sheet4!$A:$A)=0,Sheet4!$A$2,OFFSET(Sheet4!$A$2,0,0,COUNTA(Sheet4!$A:$A)-1))
  

• Total的公式改成：

  =IF(COUNTA(Sheet4!$K:$K)=0,Sheet4!$K$2,OFFSET(Sheet4!$K$2,0,0,COUNTA(Sheet4!$K:$K)-1))
  

原理是：当A/K列没有数据时（COUNTA返回0），直接引用A2/K2（哪怕是空单元格，也是有效引用）；等VBA写入第一行数据后，COUNTA返回1，OFFSET就会正常指向A2/K2，后续新增数据也会自动扩展。

方法二：在Workbook_Open事件里提前初始化数据 #

既然问题出在启动时没有初始数据，那就在表格打开的瞬间，让VBA先写入一行数据，再刷新名称和图表。步骤：

1. 按Alt+F11打开VBA编辑器，找到ThisWorkbook模块；
2. 粘贴以下代码（替换你原有新增数据的逻辑）：

   Private Sub Workbook_Open()
       ' 先写入一行初始数据，确保A2和K2存在
       Dim lastRow As Long
       lastRow = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row
       If lastRow = 1 Then ' 只有表头行时写入初始数据
           Sheet4.Cells(2, "A").Value = Now() ' 假设A列是时间
           Sheet4.Cells(2, "K").Value = 0 ' 假设K列是数值，初始值随便设
       End If
       ' 刷新定义名称
       ThisWorkbook.Names("Time").Refresh
       ThisWorkbook.Names("Total").Refresh
       ' 刷新图表（替换成你的图表名称）
       Sheet4.ChartObjects("Chart1").Chart.Refresh
       ' 启动每分钟新增数据的定时器（如果你的定时器是在Open里启动的，保留原有代码）
       Application.OnTime Now() + TimeValue("00:01:00"), "AddNewData"
   End Sub
   

这样表格一打开就有了初始行，OFFSET的起始单元格存在，名称引用就不会崩了。

方法三：改用表头作为OFFSET的起始点 #

把名称定义的起始单元格改成永远存在的表头行（A1/K1），这样不管有没有数据，起始引用都不会失效。修改公式：

• Time的公式改成：

  =OFFSET(Sheet4!$A$1,1,0,COUNTA(Sheet4!$A:$A)-1)
  

• Total的公式改成：

  =OFFSET(Sheet4!$K$1,1,0,COUNTA(Sheet4!$K:$K)-1)
  

原理是：A1是表头（你肯定不会删除表头吧？），哪怕A列只有表头，COUNTA(Sheet4!$A:$A)-1返回0，OFFSET会返回一个从A2开始的0行区域——这是有效引用，不会报错。等VBA写入数据后，COUNTA的值增加，区域自动扩展，图表也会跟着更新。

个人推荐方法三，最简单粗暴，不需要改VBA，也不需要复杂的容错公式，只要确保表头行不被删除就行。

内容的提问来源于stack exchange，提问作者pottolom