成绩判断问题，请大神帮助！

路边的野花

大神好：
    我想将sheet1中G列（外语所占比例>=40%）的数据选出来，放在sheet2中。

爱疯

Sub test2()
    Sheets(2).Range("a1").CurrentRegion = ""

    With Sheets(1)
        .AutoFilterMode = False
        With .Range("a1").CurrentRegion
            .AutoFilter Field:=7, Criteria1:=">=0.4"
            .SpecialCells(xlCellTypeVisible).Copy Sheets(2).[a1]
        End With
        .AutoFilterMode = False
    End With
End Sub