复制粘贴会使数据有效性失效,这个千古难题如何解决? |
您所在的位置:网站首页 › vba设置数据有效性的方法有哪些 › 复制粘贴会使数据有效性失效,这个千古难题如何解决? |
2.条件格式重复值标示颜色 选择区域,单击条件格式→突出显示单元格规则→重复值。 这样有重复的就有显示背景色。 3.终极武器VBA 先看VBA效果,复制粘贴依然没问题。有重复会自动提醒,并清空内容。 附源代码: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngA As Range For Each rngA In Target A = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), rngA) If A > 1 Then MsgBox "出现重复数据" rngA = "" End If Next End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim rngA As Range For Each rngA In Target A = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), rngA) If A > 1 Then MsgBox "出现重复数据" rngA = "" End If Next End Sub 搞定收工,没有什么是做不到,Excel是死的,人是活的。 后台回复关键词思考,领取源文件。 每个时代,都会悄悄犒赏懂得思考的人。 看到一则新闻,赚钱不给老婆花算家暴,对于此事你如何看?你觉得什么样才算是个好男人? 作者:卢子,清华畅销书作者,《Excel效率手册 早做完,不加班》系列丛书创始人,个人公众号:Excel不加班(ID:Excelbujiaban)返回搜狐,查看更多 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |