Question

我是VBA编程的新手，但我有使用MATLAB的经验。目前，我需要浏览具有n行数m列的数据表，并绘制非连续的数据列。这是我写的一些代码。我的目标是绘制从第9列开始的列，移动4列，然后绘制下一列直到最后一列。如果已知行数和列数，则会更容易，但每个数据表都不同，有时每张表将有数百个图表。任何指针都会非常感激，因为我刚刚开始使用VBA。提前谢谢！

Sub chartgeneration() 
  Dim sht As Worksheet
  Dim LastColumn As Long
  Set sht=ThisWorkbook.Worksheets("sheet1")

  LastColumn=sht.Cells(7, sht.columns.Count).End(xlToLeft).Column
  lastrow=worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

  For y=9 To LastColumn Step 4
    For x=10 to lastrow
      Dim Chart1 As Chart Set Chart1 = Charts.Add
      Chart1.SetSourceData Source:=Worksheets("sheet1").Range(Cells(y,10),Cells(y,lastrow))
    Next x
  Next y
End Sub

在动态数据表

0 个答案: