小白求助：Excel VBA添加数据系列

jiuyue2016

如题，文件后期需要持续添加文件日期数列。且多个文件需要重复操作。时间久了工作量多，数据量大。添加数据缓慢繁琐，所以想问问大神VBA能不能解决！（本人VBA小白，平时只会录制宏偷懒。遇到图表完全不懂）

jiuyue2016

这是录制宏运行错误提示图

一把小刀闯天下

'-7从哪里来的？

Option Explicit

Sub test()
  Dim arr, i
  arr = Sheets("作图数据").[a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 2), 1 To 4)
  For i = 2 To UBound(arr, 2)
    brr(i - 1, 1) = arr(1, i): brr(i - 1, 2) = arr(2, i)
    brr(i - 1, 3) = arr(2, 1): brr(i - 1, 4) = -7
  Next
  With Sheets("曲线图").[e2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    .Resize(UBound(brr, 1), UBound(brr, 2)) = brr
  End With
End Sub

jiuyue2016

一把小刀闯天下 发表于 2019-9-1 08:31
'-7从哪里来的？

Option Explicit

你回复的我没看懂，或者大神你看能不能帮我用VBA解决一下这个问题。就是按日期内容添加进去曲线图里边。

谢谢大神，拜托啦

jiuyue2016

没有大神回复一下吗？