EXCEL VBA单元格内只保留一个重复项

发布网友发布时间：2022-04-20 15:40

共4个回答

热心网友时间：2023-10-15 11:18

方法一:数据有效性
以A列为例:
点一下A1--选中A列--数据--有效性--允许:自定义,在下面公式一栏输入
=COUNTIF(A:A,A1)=1
确定

方法二:VBA

下列宏代码可实现你的要求

[A1].Select
Range("A:A").Validation.Delete
Range("A:A").Validation.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=COUNTIF(A:A,A1)=1"追问执行后没有动作
是删除括号和内容，只保留一个重复项

热心网友时间：2023-10-15 11:18

Sub 去重复()

Columns(1).RemoveDuplicates 1

End Sub

语法

表达式.RemoveDuplicates(Columns, Header)

表达式一个代表 Range 对象的变量。

参数

名称必选/可选数据类型说明
Columns 可选 Variant 包含重复信息的列的索引数组。如果没有传递任何内容，则假定所有列都包含重复信息。
Header 可选 XlYesNoGuess 指定第一行是否包含标题信息。xlNo 是默认值；如果希望 Excel 确定标题，则指定 xlGuess。

热心网友时间：2023-10-15 11:19

你带行列号截图上来看看。
另结果不应在同一单元格内，会入嵌套死循环的。追问

是删除括号和内容，只保留一个重复项

来自：求助得到的回答

热心网友时间：2023-10-15 11:19

请把你的情况说明的再具体点