待办事项自动处理VBA

最新推荐文章于 2022-07-08 16:53:09 发布

爱吃绿豆糕

最新推荐文章于 2022-07-08 16:53:09 发布

阅读量443

点赞数

分类专栏： # 0011-Excel 文章标签： vba excel

本文链接：https://blog.csdn.net/himojito/article/details/123793394

版权

Sub 待办事项自动处理()

'成功申请一键救援，但未配置救援责任人'
    Sheets.Add.Name = "结果1"
    Sheets.Add.Name = "结果2"
    '新建表结果1、结果2'
    Sheets("原表").Select
    ActiveSheet.Range("$A$1:$N$100000").AutoFilter Field:=6, Criteria1:="故障救援"
    ActiveSheet.Range("$A$1:$N$100000").AutoFilter Field:=7, Criteria1:="救援功能配置"
    ActiveSheet.Range("$A$1:$N$100000").AutoFilter Field:=8, Criteria1:="-----"
    Range("A1:I1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("结果1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '原表中筛选后，粘贴到结果1'
    Sheets("原表").Select
    ActiveSheet.Range("$A$1:$N$100000").AutoFilter Field:=7, Criteria1:="救援责任人配置"
    ActiveSheet.Range("$A$1:$N$100000").AutoFilter Field:=8, Criteria1:="紧急"
    Range("A1:I1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("结果2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '原表中筛选后，粘贴到结果2'
    Sheets("结果1").Select
    Range("J2").Select
    Application.CutCopyMode = False
    '取消剪切状态'
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],结果2!C[-9]:C2,2,FALSE)"
    '创建VLOOKUP公式'
    Range("J2").Select
    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
    '自动填充VLOOKUP公式'
    Range("J1") = "匹配结果"
    'J1重命名'
    Cells.Select
    Selection.AutoFilter
    Range("J2").Select
    ActiveSheet.Range("$A$1: