EXCEL跨表比较两列,并填充新值背景
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 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 |
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步