试试宏:Sub Macro1()
'
' Macro1
'
'
Sheets.Add After:=ActiveSheet
Sheets("Mar").Select
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$203").AutoFilter Field:=7, Criteria1:= _
"=Incident", Operator:=xlOr, Criteria2:="=Service Request"
Sheets("Apr").Select
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$196").AutoFilter Field:=7, Criteria1:= _
"=Incident", Operator:=xlOr, Criteria2:="=Service Request"
Sheets("Mar").Select
Range("A2:K203").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Apr").Select
Range("A2:K192").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A191").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Mar").Select
Range("A1:K1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|