0

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

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。

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

4

1 回答 1

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
于 2013-03-07T09:41:57.363 回答