excel里如何设置同一列的不能重复输入

 我来答
foxconn_fy
2010-11-02 · TA获得超过2515个赞
知道小有建树答主
回答量:1190
采纳率:0%
帮助的人:766万
展开全部

写个宏吧

在下面的标签上右键查看代码,复制以下代码进去。看图

Dim x, y

Private Sub Worksheet_Change(ByVal Target As Range)

Dim m, n, ab, yn, s, q

If Cells(x, y).Value = "" Then

Exit Sub

End If

m = Cells(65536, y).End(xlUp).Row

ab = Cells(x, y).Value

For i = 1 To m

If ab = Cells(i, y).Value Then

If i = x Then

i = i + 1

End If

If ab = Cells(i, y).Value Then

s = x

q = y

Cells(i, y).Select

Selection.Interior.ColorIndex = 38

yn = MsgBox("你输入的值:" & ab & "和第" & i & "行相同", 4 + 256, "重复查询")

If yn = vbYes Then

Selection.Interior.ColorIndex = xlNone

Cells(s, q).Select

Else

Selection.Interior.ColorIndex = xlNone

Cells(s, q).Select

Cells(x, y).Value = ""

End If

Exit Sub

End If

End If

Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

x = ActiveCell.Row

y = ActiveCell.Column

End Sub

点右上角的关闭按钮,到excel里试试吧,看看能不能做到你的要求。

参考资料: 1

soup5258
2010-11-02 · TA获得超过9256个赞
知道大有可为答主
回答量:5594
采纳率:74%
帮助的人:2054万
展开全部
选中该列(假设是A列)
数据-数据有效性-自定义 输入公式 =COUNTIF(A:A,A1)=1
出错警告-错误信息 输入 此信息已输入
确定即可
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tree198787
2010-11-02 · TA获得超过560个赞
知道答主
回答量:128
采纳率:0%
帮助的人:82.2万
展开全部
选中列,“数据”--“有效性...”---“设置”标签--“允许”下拉列表选择“自定义”,“公式”输入 =countif(a:a,a1)=1
确定即可。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
谁是卧底9g
2012-09-27 · TA获得超过660个赞
知道小有建树答主
回答量:317
采纳率:50%
帮助的人:133万
展开全部
此办公版本是2003版
假如你想把A列的所有数据都不重复操作如下:
全选A列——菜单栏里的数据——数据有效性——设置——有效性条件——允许(自定义)——公式(=COUNTIF($A$1:$A$1000,A14)=1)——确定。
此步骤就大功告成了。所有A列的数据将无法输入同名数据或文字。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
duduaiyeye
2010-11-02 · 超过34用户采纳过TA的回答
知道答主
回答量:95
采纳率:0%
帮助的人:75.6万
展开全部
假如是A列,你需要1000行的数据不能重复,
首先选择,数据-有效性-自定义,公式输入=COUNTIF($A$1:$A$1000,A1)=1,
然后将鼠标点击A1单元格,鼠标放置右下角,当出现“+”时按住鼠标左键,向下拖到A1000
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式