作者:乔山办公网日期:
返回目录:excel表格制作
有读者留言,数据有效性设置了重复值提醒功能,直接输入可以,可是复制粘贴以后就失效了,这个问题如何解决?
这真是一个千古难题,每个功能都有局限性,没有十全十美。不过可以借助其他辅助功能来实现。今天,卢子为你讲解3种补救方式。
1.圈释无效数据
选择区域,单击数据→数据验证(低版本叫数据有效性)→圈释无效数据。
虽然没办法第一时间将重复的进行提醒,但至少可以做到事后进行圈释提醒,也算是一种补救的方法。
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
搞定收工,没有什么是做不到,Excel是死的,人是活的。
关注公众号“中国统计网”后台回复关键词“千古难题”,领取源文件。
End.
运行人员:中国统计网小编(微信号:itongjilove)
微博ID:中国统计网
中国统计网,是国内最早的大数据学习网站,公众号:中国统计网
http://www.itongji.cn