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

用 VBA
例C2=DFS(G)JH(G)KJHGKJHLKJ(;)KJ(;)LDSADHGG(F)JKC(X)VFTG(F)J(G)K
只删除单元内的括号和内容，从左到右删除，只保留一个重复项
我要的结果是：C2=DFSJHKJHGKJHLKJKJ(;)LDSADHGGJKC(X)VFTG(F)J(G)K
重复顶要保留一个

举报该问题

其他回答

第1个回答 2016-07-27

方法一:数据有效性
以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"追问

执行后没有动作
是删除括号和内容，只保留一个重复项

第2个回答 2016-08-13

Sub 去重复()

Columns(1).RemoveDuplicates 1

End Sub

语法

表达式.RemoveDuplicates(Columns, Header)

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

参数

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

第3个回答 2016-07-27

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

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

来自：求助得到的回答本回答被提问者采纳

第3个回答 2016-07-27

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

相似回答

如何将Excel某一单元格中重复的文字(次数、重复的字未知)只保留一次...答：按ALT+F11进入VBA编辑窗口在左边列表栏点击鼠标右键,选插入模块,粘贴以下代码,保存,退出VBA编辑窗口,即可使用这个自定义函数了.函数的用法跟excel内部函数基本相同.该自定义函数语法:rerepeat(range or string)range or string是单元格地址或者以"、"号分隔的字符串示例:A1单元格内容为:北京、上海、天津...

excel保留唯一值 A列有重复值保留唯一值 B列数值都不相同要求! 删除A...答：1、原始数据情况：a列数据有重复项目 2、代码位置鼠标右键点击删除项按钮，选择指定宏如下图输入代码 3、代码 Sub 按钮1_Click() Application.ScreenUpdating = False '关闭刷屏 arr = [a1].CurrentRegion '将数据读入数组，提升读取效率 Set Rng = Nothing 'rng为了保存重复项 Set d ...

如何用VBA删除表格中某列重复的的数据所在行,只留下其中一个即可。答：If dic.exists(Cells(i, "B").Value) Then '如果B列中的数据已经在字典中了（也就是重复了）Rows(i).Delete '就删除这一行 Else dic(Cells(i, "B").Value) = "" '否则就把B列的数据放入字典中 End If Next i End Sub

Excel重复值怎么删除只保留一个答：首先打开excel表格，选中我们要处理的区域，点击“数据”选项，选择“删除重复项”。然后然后弹出一个对话框，选择默认全选，A列，点击确定，重复数据就保留了一个。或选中所有数据，点击“数据”菜单—“高级”—选中“选择不重复的记录”—“确定”。这个窗口中提供了两种方式去显示筛选后的数据，第一种...

excel 一个单元格里面有重复的字和字母,重复的字只需要一个,怎么弄?答：可以用vba写个去重的自定义函数。代码如下：Function QCF(S As String)Dim ZD Set ZD = CreateObject("SCRIPTING.DICTIONARY")QCF = ""For I = 1 To Len(S)MYT = Mid(S, I, 1)If Not ZD.EXISTS(MYT) Then ZD.Add MYT, 1 QCF = QCF & MYT End If Next I End Function 效果如图：...

用EXCEL VBA在一定区域内删除重复值所在行只保留一个答：Range, i As Integer For i = 1 To 100 Set cel = Range("a" & i) If Application.WorksheetFunction.CountIf(Range(Range("a1:a100"), cel), cel) > 1 Then cel.EntireRow.Delete shift:=xlUp i = i - 1 End If Next ...

Excel 重复项保留1个,其它全部删除,后面数据相加答：选中要处理的列。数据-删除重复项。处理完重复数值后，在该列下方无数据的单元格里 ALT+ENTER，自动求和。

excel中,如何用VBA把一列元素的相邻的相同元素只保留一个?答：VBA本人不太会用。照葫芦画瓢写一个自定义函数，至于函数是放在你这个工作个的模块还是做成加载宏。由你自己决定代码如下：--- Function Only(序号 As Integer, ParamArray 区域() As Variant)Application.Volatile True Application.ScreenUpdating = False If IsMissing(区域) Then Only = "":...

excel表格怎样删除重复文字只留一个答：1 Then str2 = Application.WorksheetFunction.Replace(str2, i3, Len(str), "") '替换成空白 End If End If If i3 = 0 Then Exit For End If Next mysheet1.Cells(i1, 1) = str2 End If NextNextEnd Sub二、VBA程序的执行结果如下：...

大家正在搜

vba点击单元格和选中单元格 excel合并单元格保留所有内容批量合并单元格内容都保留 VBA单元格字体 VBA每工作表都有单元格触发 excel vba 单元格赋值 excel vba 选择单元格表格合并单元格单元格内怎么换行