一直在报错,一直再改,是不是我的方式不对?

代码越长 功能越复杂 它离谱的程度越高。

人家还是个几个月的小宝宝，已经相当不错了

Sub Data 透视当前工作表的 E、F、G 列到新的 Sheet"analyse"中 ()  
      
    ' 设置变量  
    Dim sht As Worksheet  
    Dim wb As Workbook  
    Dim ws As Worksheet  
    Dim AnalyseSheet As Worksheet  
      
    ' 定义工作表  
    Set sht = ThisWorkbook.Sheets("Sheet1")  
    Set wb = ThisWorkbook  
    Set ws = wb.Sheets("analyse")  
      
    ' 设置数据透视表工作表  
    Set AnalyseSheet = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))  
      
    ' 设置数据透视表工作表参数  
    Set 透视表工作表 = AnalyseSheet.Range("A1").CurrentRegion  
    透视表工作表.AutoFilter  
    透视表工作表.SortMethod = xlSortOnCells  
    透视表工作表.SortFields.Add Key:=透视表工作表.Range("A1"), SortOn:=xlSortOnValues  
      
    ' 将当前工作表中的 E 列、F 列和 G 列的数据透视到新的 Sheet"analyse"中  
    透视表工作表.Range("E1").CurrentRegion.Copy sht.Range("A1")  
    透视表工作表.Range("F1").CurrentRegion.Copy sht.Range("B1")  
    透视表工作表.Range("G1").CurrentRegion.Copy sht.Range("C1")  
      
    ' 删除新工作表中的重复行  
    ws.Range("A1:C1").DeleteDuplicates xlBlanks  
      
    ' 保存新的工作表  
    wb.SaveAs AnalyseSheet.Range("A1"), xlExcel12  
      
End Sub

换成英文描述要比中文靠谱的多。有时候对中文描述执行的结果大相径庭。

感谢,但是似乎不行哈