如何用vba给excel数据画图

我的excel工作表中有500列数据并且每一列的长度不一样，我想给每一列数据画出折线图，手动操作太麻烦了，请问如何用vba实现这样的功能。小弟初学vba就15分了，还望各... 我的excel工作表中有500列数据并且每一列的长度不一样，我想给每一列数据画出折线图，手动操作太麻烦了，请问如何用vba实现这样的功能。小弟初学vba就15分了，还望各位大侠相助！！
需要每一列一张图~ 展开

 我来答

2个回答

#热议# 生活中有哪些实用的心理学知识？

wssiqi
2010-09-22 · TA获得超过751个赞

知道小有建树答主

回答量：582

采纳率：100%

帮助的人：598万

我也去答题访问个人页

关注

展开全部

不是有录制宏的功能吗？
先建一个简单的图，用宏录制，然后修改用于大数据
以下是我录制的
Sub 绘折线图()

    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
        xlRows
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

A5:G5为数据区域
R9C1:R9C7 表示X轴标志所在单元格区域
第9行第1列(即A9)到第9行第7列(即G9)

如果不需要可以把这行删除，得到，然后横坐标就自动123456

Sub 绘折线图()

    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起