代码如下(添加到对应sheet中!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
i = 1
Do Until Range("A" & i).Value = ""
'情况一 START 当前单元格的上面一个单元格中的数据在列A中是否有相同的——(单元格失去焦点时自动检测,因为默认敲回车时焦点会移到下面一个单元格)
'If Split(ActiveCell.Address, "$")(2) = 1 Then Exit Sub
'If Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value = Range("A" & i).Value And ActiveCell.Column <> 1 Then
' Range("A" & i).Interior.Color = RGB(200, 160, 35)
' Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.Color = vbRed
'End If
'情况一 END
'情况二 START 当前选中的单元格中的数据在列A中是否有相同的
If ActiveCell.Value = Range("A" & i).Value And ActiveCell.Column <> 1 Then
Range("A" & i).Interior.Color = RGB(200, 160, 35)
ActiveCell.Interior.Color = vbRed
End If
'情况二 END
i = i + 1
Loop
End Sub
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
· Linux系统下SQL Server数据库镜像配置全流程详解
· 现代计算机视觉入门之:什么是视频
· 你所不知道的 C/C++ 宏知识
· 不到万不得已,千万不要去外包
· C# WebAPI 插件热插拔(持续更新中)
· 会议真的有必要吗?我们产品开发9年了,但从来没开过会
· 【译】我们最喜欢的2024年的 Visual Studio 新功能
· 如何打造一个高并发系统?