鱼C论坛

 找回密码
 立即注册
查看: 846|回复: 2

Excel 两个Sheet 合并

[复制链接]
发表于 2020-5-14 13:14:02 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

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

combination.zip

45.02 KB, 下载次数: 1

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 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
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-5-15 08:38:08 | 显示全部楼层
非常感谢回复!用宏如果换其他电脑会有各种提示,所以不喜欢用宏。对于Excel本身,我更喜欢用函数。

所以想试着用Python来操作Excel
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-1-21 07:12

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表