Vastsea 发表于 2020-5-14 13:14:02

Excel 两个Sheet 合并

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

suchocolate 发表于 2020-5-14 17:38:47

试试宏：
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

Vastsea 发表于 2020-5-15 08:38:08

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

所以想试着用Python来操作Excel
页: [1]
查看完整版本: Excel 两个Sheet 合并