这一宏代码怎么改，才能自动运用到所有单元格？并实现一一对应？

kayry

Sub 按照指定值筛选()
'
' 按照指定值筛选 Macro
'
' 快捷键: Ctrl+d
'
    a = ActiveCell.Value
    Sheets("我要的结果").Select
    Range("D3").Select
    ActiveCell.FormulaR1C1 = a
    Sheets("我的原始表").Select
    Range("G2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$U$32").AutoFilter Field:=7, Criteria1:=a, _
        Operator:=xlAnd

End Sub






这一宏代码怎么改，才能自动运用到所有单元格？并实现一一对应？
需要变化的就是("我要的结果")中D3、E3、F3..............................
对应变化的就是("我的原始表")中G2、H2、I2..................................

adders

try this:

蓝桥玄霜

建议上传表格附件来说明问题。

kayry

蓝桥玄霜 发表于 2013-6-18 16:53
建议上传表格附件来说明问题。

嗯，上传附件表格的帖子在这里，请大侠帮忙看看 http://www.excelpx.com/thread-303105-1-1.html

kayry

adders 发表于 2013-6-19 00:29
try this:

高人，分给你。但是代码出来的计算比例的结果，怎么去掉语文、数学等这样的字样，只要百分比数字？能改下不？如果分别求A、B、C占比呢？