EXCELVBA自动筛选报错

更新时间2018-05-13 09:34:05

我用VBA筛选一列数据数据中已经被“标红“”的数据，并计算这些数的均值，部分程序如下为什么报错

'

' WW2 macro

' 宏由 Administrator 录制，时间: 2018/05/10

'

 

'

    Range("AN1").Select

    Selection.AutoFilter

    ActiveWorkbook.Names.Add Name:="Sheet1!_FilterDatabase", RefersTo:="=Sheet1!$B$1:$CU$29", Visible:=False

    Range("B2:CU29").AutoFilter Field:=39, Criteria1:=RGB(192, 0, 0), Operator:=xlFilterFontColor//这行报错

    ActiveWorkbook.Names.Add Name:="Sheet1!_FilterDatabase", RefersTo:="=Sheet1!$B$1:$CU$29", Visible:=False

    Range("AN11:AN23").Select

    Range("AN11:AN24").Select

    Range("AN30").Select

End Sub

最好有数据源！比较好分析问题！  SUB   END SUB  你拷过来没有SUB！//这行报错  ---不要用//---用注释符号 '  ，纯以你这段代码在有表头的情况下运行无出错提醒！

去掉：//这行报错

试一试。