Excel VBAselect不相邻的行进行绘制

我感兴趣的是select不相邻的行图表。 下图显示了所需的select。

我也希望select与内容ABCDEF相关的单元格。

到目前为止我有以下代码，但它只select一行。

Sub PlotTheCharts() ' ' PlotTheCharts Macro ' ' Set bookName = Range("A2") ' ABCDEF cell location Range(bookName.Offset(0, 1), bookName.Offset(0, 1).End(xlToRight)).Select bookName.Offset(2, 1).Activate Range(Selection, Selection.End(xlToRight)).Select End Sub 

数据如下：

 ABCDEF label Mon1 Mon2 Mon3 Mon4 Mon5 Mon6 Mon7 Mon8 Mon9 Mon10 Mon11 Mon12 Total Animals 1800 1800 1800 1800 1800 1800 1800 1800 1800 1800 1800 1800 Test Product 44.69 16.76 66.19 8.29 51.8 53.16 81.44 99.52 29.79 88.4 60.91 24.52 Test Competition 30.87 59.96 68.22 58.65 5.07 34.16 70.8 33.32 98.42 80.76 72.92 31.82 Test Market 28.34 47.48 13.44 61.55 41.39 70.04 99.37 70.65 32.38 66.7 9.53 33.73 Control Product 16.49 64.71 49.35 2.97 82.08 30.46 40.21 76.17 71.71 28.74 55.43 18.09 

我正在添加另一个图像，试图进一步解释我正在尝试做什么。

我正在尝试使用vba生成下面的图

Answer 1

下面的代码将根据ABCDEFG的位置将期望的范围加载到范围对象中。 只要数据结构保持不变，这将工作。 如果会有所不同，另一个解决scheme是需要的。

 Sub PlotTheCharts() Dim DataSheet as Worksheet Set DataSheet = Worksheets("myData") 'change as needed With Datasheet Dim RelativeCell as Range Set RelativeCell = .Range("A2") Dim TotalColumns as Long TotalColumns = RelativeCell.End(xlToRight).Column Dim AxisRange as Range Set AxisRange = RelativeCell.Offset(,1).Resize(1,TotalColumns) Dim YPlotRange as Range Set YPlotRange = RelativeCell.Offset(2,1).Resize(1,TotalColumns) Dim XPlotRange as Range Set YPlotRange = RelativeCell.Offset(5,1).Resize(1,TotalColumns) 'load ranges into chart .... End With End Sub 

Answer 2

你的意思是折线图，而不是散点图。

 Sub Macro1() Dim r As Range, n As Long, s As String Set r = Sheet1.Columns(1).Find(What:="ABCDEF", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not r Is Nothing Then n =r.CurrentRegion.Columns.Count - 1 s = r.Offset(, 1).Resize(, n).Address & "," & _ r.Offset(2, 1).Resize(, n).Address & "," & _ r.Offset(5, 1).Resize(, n).Address ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range(s) ActiveChart.ChartType = xlLine End If End Sub