excel去掉同一个单元格内重复的文字工具

一、问题--单元格内重复如何去重

如果下图所在,Excel一个单元格内存在重复的姓名,如果把这一列单元格的重复姓名去重?

二、解决办法--单元格内文字去重工具

使用这个工具,操作如下:

填入从 第2行开始

填入要将B列去重

 填入按逗号拆分, 注意

     如果是逗号、冒号,注意是半角的:, .还是全角的:, 。是不一样的,最好从excel中复制出来

点击执行

三、工具位置

工具地址:   Excel常用在线工具提供Excel的批量自动处理,在线使用Excel常用工具,无需安装,在线使用,对于多个Excel批量另存、Excel批量按条件提取、多个Excel查找、Excel批量替换、Excel按列拆分、Excel排列组合 、Excel批量汇总、Excel批量合并、Excel按Sheet名合并、Excel跳过表头合并、excel批量填充、Excel表格式转换、Excel分类汇总、插入文件名或Sheet名、Excel多表批量插入行、提取Excel单元格中的数字、Excel删除重复、按汉字描述汇总、按汉字描述写公式等等Excel在线批量自动处理工具。http://www.excelfb.com/

工具位置如下图

### 回答1: 很高兴为您解答,可以使用VBA函数来Excel单元格重复的数据。首先,打开VBA编辑器,在模块中添加以下代码:Sub Remove_Dupes()Dim Lrow As Long, Dic As Object, K As VariantSet Dic = CreateObject("Scripting.Dictionary")With Sheets("Sheet1")Lrow = .Cells(Rows.Count, "A").End(xlUp).RowFor i = 2 To LrowK = .Cells(i, 1).ValueIf Not Dic.exists(K) ThenDic.Add K, NothingElse.Cells(i, 1).ClearContentsEnd IfNext iEnd WithEnd Sub然后运行该函数,即可完成操作。 ### 回答2: 使用VBA可以轻松地进行Excel工作表中同一单元格内容的操作。下面是一种实现方法: 1. 首先,打开Excel工作表,按下`ALT + F11`进入VBA编辑器。 2. 在VBA编辑器中,选择当前工作簿的VBA项目,在项目浏览器窗口中右击,选择"插入" -> "模块",在VBA项目中创建一个新的模块。 3. 在新建的模块中,输入以下代码: ```vba Sub () Dim ws As Worksheet Dim rng As Range Dim cell As Range Set ws = ThisWorkbook.ActiveSheet Set rng = ws.UsedRange ' 范围可以根据具体需求修改 For Each cell In rng If cell.Value <> "" Then ' 确保单元格不为空 cell.Value = application.Trim(cell.Value) ' 除字符串两边的空格 cell.Value = application.WorksheetFunction.Trim(cell.Value) ' 除字符串中间的多余空格 End If Next cell rng.RemoveDuplicates Columns:=1, Header:=xlNo ' 操作 Set rng = Nothing Set ws = Nothing End Sub ``` 4. 运行完以上代码后,可以按下`F5`或点击运行按钮,即可执行操作。 以上代码实现的操作是针对选定的范围(在代码中的`rng`)进行的。可以根据具体需求修改范围。此外,代码中使用`Trim`函数除字符串两边的空格,可以避免潜在的错误。 希望以上解答能对您有所帮助! ### 回答3: 使用VBA可以轻松将Excel中的同一单元格内容。下面是一种简单的方法: 1. 打开Excel并按下`ALT+F11`打开VBA编辑器。 2. 在VBA编辑器中,选择`插入`> `模块`以创建一个新模块。 3. 在新模块中输入以下代码: ``` Sub RemoveDuplicates() Dim rng As Range Dim cell As Range '选择需要单元格范围 Set rng = Range("A1:A10") '将"A1:A10"替换为你要单元格范围 '循环遍历选中的单元格范围 For Each cell In rng '使用RemoveDuplicates方法 cell.RemoveDuplicates Columns:=1, Header:=xlNo Next cell End Sub ``` 4. 替换代码中的范围`"A1:A10"`为你所需单元格范围。例如,如果要的是A列的所有单元格,则可以使用`"A:A"`。 5. 按下`F5`运行代码。 6. 单元格范围内的重复内容将被删除,只保留唯一值。 请记住保存你的更改并备份你的数据,以防止不必要的数据损失。
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值