Question

我按行排列数据。我想制作一个散点图表示第一行的数据系列（从C4开始），应用趋势线，将趋势线的斜率复制到数据后的第三个单元格中，并复制数据系列的名称（即在B4）数据后进入第二个单元格。

我想对所有行做同样的事情。我试图遍历行，但失败了。我从互联网上尝试了几件事，但没有一件能奏效。

我尝试的第一件事是一个简单的for to next循环并替换了数字＆＃34; 4＆＃34;在下面的代码中的每个地方。这返回了错误代码

方法＆＃39;范围＆＃39;对象＆＃39; _Global＆＃39;失败

这段代码只是用宏录制器录制的：

Sub Macro10()

    Range("C4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Range("Sheet2!$C$4:$V$4")
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add
    ActiveChart.SeriesCollection(1).Trendlines(1).Select
    Selection.DisplayEquation = True
    ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
    Range("Y4").Select
    ActiveSheet.Paste
    Range("B4").Select
    Selection.Copy
    Range("X4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Parent.Delete

End Sub

如何遍历excel中按行排列的数据系列

0 个答案: