zoukankan      html  css  js  c++  java
  • EXCEL跨表比较两列,并填充新值背景

    Sub FillNewToYellow()
        Dim dic
        Dim oldArr(), updatedArr()
      
        On Error Resume Next
        If Worksheets("old") Is Nothing Then
            MsgBox "Missing old sheet"
        ElseIf Worksheets("updated") Is Nothing Then
            MsgBox "Missing updated sheet"
        Else
            Set dic = CreateObject("Scripting.Dictionary")
            ActiveWorkbook.Sheets("old").Activate
            oldArr = Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
            
            For i = 1 To UBound(oldArr)
                dic(oldArr(i, 1)) = ""
            Next
            
            ActiveWorkbook.Sheets("updated").Activate
            updatedArr = Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
            
            For i = 1 To UBound(updatedArr)
                If dic.exists(updatedArr(i, 1)) = False Then
                    Rows(i & ":" & i).Select
                    With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .Color = 65535 'Yellow
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                End If
            Next
        End If
    End Sub
    

  • 相关阅读:
    linux服务篇
    降智比赛题解
    CF 1437 题解
    ZR 2020普转提七连测day5
    20联赛集训day11 题解
    contest5 题解
    20联赛集训day9 题解
    20联赛集训day8 题解
    contest4 题解
    20联赛集训day7 题解
  • 原文地址:https://www.cnblogs.com/yipeng-yu/p/5556072.html
Copyright © 2011-2022 走看看