请问各位大侠如何用VBA实现EXCEL的分类汇总

szxyz

请问各位大侠如何用VBA实现EXCEL的分类汇总，下面语句

        xlsheet.Range("A1").Select

        Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 7), _

             Replace:=True, PageBreaks:=False, SummaryBelowData:=True

在第一次运行可以，但是在关闭后重启第二次运行时就会提示出错，这是为什么

szxyz

请各位大侠出手相助。错误提示为“运行时错误‘91’，对象变量或WITH板块未设置”

hzg7818

需要把完整程序文件发上来再帮你排错，单纯这段代码没有问题