Question

我有一个如下所示的电子表格：

A     1/1/2013     100
A     2/1/2013     200
A     3/1/2013     300
B     1/1/2013     150
B     2/1/2013     175
B     3/1/2013     200

这三列是固定的，但每个系列（第一列）的条目数会有所不同。

使用VBA，我想自动将第一列中的每个唯一值添加为散点图上的一系列，使用第二列作为X值，第三列作为Y值。例如，对于上面的A系列，我需要动态确定范围B1：B3和C1：C3。

我生成了使用录制的宏将系列添加到图表的代码，所以我真正的障碍是找到每个系列的范围。我需要保留关联系列的名称（第一列），并且希望避免使用过滤器。

Answer 1

我最终想到了一种解决它的迂回方式;这里是感兴趣的人的代码，适合我原来问题的布局：

Sub Example()
    ' Variable Definitions
    Dim y As Integer
    Dim Name(73) As String
    Dim Mins(73) As Integer
    Dim Maxs(73) As Integer

    ' Loop Through Name Column (Series)
    For Each x In Range("A4:A" & Cells(Rows.Count, "A").End(xlUp).Row)

        ' Add Values to Arrays, If Not Preexisting
        If IsInArray(x.Value(), Name) = False Then
            Name(y) = x.Value()
            Mins(y) = x.Row()
            Maxs(y) = x.Row()
            y = y + 1
        Else
            Maxs(y - 1) = x.Row()
        End If

    Next x

    ' Add to Chart
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(1).Name = Name(0)
    ActiveChart.FullSeriesCollection(1).XValues = "=Data!$B$" & Mins(0) & ":$B$" & Maxs(0)
    ActiveChart.FullSeriesCollection(1).Values = "=Data!$C$" & Mins(0) & ":$C$" & Maxs(0)
End Sub

' Array Function from @JimmyPena
' http://stackoverflow.com/a/11112305/2141501
Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function

使用/ VBA将变量系列添加到图表中

1 个答案: