1、ALT + F11
2、工具——附加控件 勾选 Microsot Listciew Control,version 6.0
3、在工具箱窗体上点击刚才附加的Listview控件,在的设计窗体按需要画出表格大小
4、双击Listview1,根据需要写入代码
Sub Addsh()
Dim Sh As Worksheet
With Worksheets
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = "数据"
End With
End Sub