批量做动态表addchart

描述：在a2到a19resize（1,3）单元格中存在数据，批量作表

addchart（类型，左边界，上边界，宽度，高度）

Sub t()

Dim rng As Range, sp As Chart
For Each rng In Range("a2:a19")
Set sp = Sheet2.Shapes.AddChart(, rng(1, 4).Left, rng(1, 4).Top, rng(1, 4).Width, rng(1, 4).Height).Chart（注意这里需要加上chart，不然提示类型不匹配）
sp.SetSourceData rng.Resize(1, 3)
Next

End Sub