Excel 每 10 行（2 列）创建一个新图表

Question

我有 2 列数字和 854 行（2 列 A 和 B - 854 行填充了数字）。

我想为每 10 行（A 列和 B 列）创建一个新的折线图，因此总共有 85 个完整图表，其中一个包含 4 行数据，一个位于另一个之下。

预期结果将是一张表上有 86 个图表，如下所示：

结果：

Answer 1

不要手动操作——计算机的作用是让人们的生活更轻松，而不是使其复杂化：

Sub makeCharts()
Dim oSheet As Worksheet
Dim iRow As Integer
Dim oChart As Shape
    Set oSheet = ActiveSheet
    For iRow = 1 To 854 Step 10
        Set oChart = oSheet.Shapes.AddChart2(-1, xlLineMarkers)
        With oChart.Chart
            .SetSourceData Source:=oSheet.Range("A" & iRow & ":B" & (iRow + 9))
            .SetElement (msoElementChartTitleNone)
            .SetElement (msoElementLegendNone)
            .SetElement (msoElementPrimaryValueGridLinesMajor)
        End With
        With Range("C" & iRow & ":F" & (iRow + 9))
            oChart.Left = .Left
            oChart.Top = .Top
            oChart.Width = .Width
            oChart.Height = .Height
        End With
    Next iRow
End Sub