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