Sheets("12月全年").Select
ActiveSheet.Range("$A$5:$R$1800").AutoFilter Field:=17
ActiveSheet.Range("$A$5:$R$1800").AutoFilter Field:=1, Criteria1:="物料"
ActiveWindow.SmallScroll Down:=-42
ActiveSheet.Range("$A$5:$R$1800").AutoFilter Field:=17, Criteria1:=Array( _
"5", "6", "85", "9", "95"), Operator:=xlFilterValues
Range("Q1228:Q1806").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("全年主表").Select
ActiveWindow.SmallScroll Down:=186
Range("G1201").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("7材料种类").Select
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("12月全年").Select
Range("C1228:F1804").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("7材料种类").Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
这是一段宏代码，目的是想让工作表“12月全年”A列Q列做个筛选，第一部先筛选出A列中的物料，再筛选出Q列不为零的所有数据，然后把筛选出来的数据选择性粘贴到“全年主表”中的G1201中的单元格中，再把“12月全年”C：F，Q筛选出来的数据粘贴到“7材料种类”中第7行相对应的列中，能不能减略一下以上的代码呢，请高手解决一下这个问题，谢谢！！！这个步骤是想让会增减的数据不要局限于这次的那几个数据上，也许下一次运行 这个宏的时候，数据会增也许会减。