Excel 两个Sheet 合并

Vastsea

如附件文件，去除Request Type为HR Request的条目，并将Mar和Apr两个sheet合并

suchocolate

试试宏：

1. Sub Macro1()
   
2. '
   
3. ' Macro1
   
4. '
   
5. 
   
6. '
   
7.     Sheets.Add After:=ActiveSheet
   
8.     Sheets("Mar").Select
   
9.     Cells.Select
   
10.     Selection.AutoFilter
    
11.     ActiveSheet.Range("$A$1:$K$203").AutoFilter Field:=7, Criteria1:= _
    
12.         "=Incident", Operator:=xlOr, Criteria2:="=Service Request"
    
13.     Sheets("Apr").Select
    
14.     Cells.Select
    
15.     Selection.AutoFilter
    
16.     ActiveSheet.Range("$A$1:$K$196").AutoFilter Field:=7, Criteria1:= _
    
17.         "=Incident", Operator:=xlOr, Criteria2:="=Service Request"
    
18.     Sheets("Mar").Select
    
19.     Range("A2:K203").Select
    
20.     Selection.Copy
    
21.     Sheets("Sheet1").Select
    
22.     Range("A2").Select
    
23.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
24.         :=False, Transpose:=False
    
25.     Sheets("Apr").Select
    
26.     Range("A2:K192").Select
    
27.     Application.CutCopyMode = False
    
28.     Selection.Copy
    
29.     Sheets("Sheet1").Select
    
30.     Range("A191").Select
    
31.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
32.         :=False, Transpose:=False
    
33.     Sheets("Mar").Select
    
34.     Range("A1:K1").Select
    
35.     Application.CutCopyMode = False
    
36.     Selection.Copy
    
37.     Sheets("Sheet1").Select
    
38.     Range("A1").Select
    
39.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
40.         :=False, Transpose:=False
    
41. End Sub

复制代码

Vastsea

非常感谢回复！用宏如果换其他电脑会有各种提示，所以不喜欢用宏。对于Excel本身，我更喜欢用函数。

所以想试着用Python来操作Excel