Arrays 利用VBA在excel中基于一组数据表自动生成图形

我是VBA的新手。。目前，我正在进行一个项目，该项目要求我根据如下所示的2个表格数据自动绘制2个条形图，从而创建一个自动化工具

但是，由于表格数据是从另一个自动化工具生成的，因此行数可以增加或减少。行数可能大于/小于5，我无法通过指定单元格地址（如“A7”或“B6”）来选择单元格

这些是图表的预期输出：

---

希望有人能在这方面帮助我。

我想你不需要宏。 您只需要一些动态命名范围：

---

并将数据范围设置为指定的范围。

如果给定工作表中的不同数据块由空白行和空白列分隔，并且所需的数据块是唯一包含“日期”一词的数据块，则可以使用简单的VBA例程查找“日期”一词，确定数据块位于，并使用该数据插入图表。例如：

Sub PlotRangeUsingFind()
  Const SFind As String = "Date"
  Dim rng As Range
  On Error Resume Next
  Set rng = ActiveSheet.Cells.Find(SFind).CurrentRegion
  If Not rng Is Nothing Then
    With ActiveSheet.Shapes.AddChart.Chart
      .ChartType = xlColumnClustered
      .SetSourceData rng
    End With
  End If
End Sub

---

您可以对此进行修改，以在数据块中查找任何唯一的单词。它不必是整个单元格的内容；例如，您可以根据您的屏幕截图使用“Accepted”（已接受）。

请向我们展示您的代码，我们可以根据您的具体需要建议修改代码的最佳方法。干杯。你能解释一下“创建自动化工具”是什么意思吗？你现在有没有使用的工具，或者你是从零开始的？你能给我们展示一下生成数据的“另一个自动化工具”吗？您是否可以让该工具也包括数据所在的行数或范围，如

A7:C11

？