Excel一键实现所选区域创建图表

1、以下列数据为例。

4、单击新建按钮。

6、在模块中复制粘贴以下代码：Sub 矩形1_Click()Dim rng As RangeSet rng = Selection rng.Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).SelectEnd Sub

8、选择数据区域，点击按钮即可生成图表。