ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 第2届Power BI可视化大赛,拿超级大奖! 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 205|回复: 11

[求助] 【未解决】请大神帮我一下,单元格的数字如何去除重复值

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-9-14 15:53 | 显示全部楼层 |阅读模式
本帖最后由 q563262982 于 2018-9-14 18:40 编辑

一个单元格内包含有数字,字母,去掉重复的数字或字母,使其顺序不变,如下图所示!
请大神提示一下公式,谢谢!
3VQ(MFHEUKYEJ[5`@$9DOFS.png

TA的精华主题

TA的得分主题

发表于 2018-9-14 16:04 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-14 16:18 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-9-14 16:28 | 显示全部楼层
晕,真是什么样的怪要求都会有,不过这个我觉得用函数很不好弄,VBA吧,代码应该不复杂,不过VBA我不擅长。

TA的精华主题

TA的得分主题

发表于 2018-9-14 16:40 | 显示全部楼层
  1. Sub 去重()
  2.     r = Range("a65535").End(3).Row
  3.     arr = Range("a5:a" & r)
  4.     ReDim brr(1 To UBound(arr), 1 To 1)
  5.    
  6.     For i = 2 To UBound(arr)
  7.         a = ""
  8.         字符 = arr(i, 1)
  9.         If 字符 <> "" Then
  10.             For j = 1 To Len(字符)
  11.                 If InStr(a, Mid(字符, j, 1)) = 0 Then
  12.                     a = a & Mid(字符, j, 1)
  13.                 End If
  14.             Next
  15.             brr(i, 1) = a
  16.         End If
  17.     Next
  18.    
  19.     Range("b5").Resize(UBound(brr), 1) = brr
  20. End Sub
复制代码

评分

参与人数 1鲜花 +2 收起 理由
约定的童话 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-14 16:44 | 显示全部楼层
请问大神们能用公式吗,VB我真心不会用,从哪儿粘贴代码,我都不知道?

TA的精华主题

TA的得分主题

发表于 2018-9-14 17:14 | 显示全部楼层

=MID(A1,TRANSPOSE(SMALL(IF(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),0)=ROW(INDIRECT("1:"&LEN(A1))),ROW(INDIRECT("1:"&LEN(A1))),4^6),ROW(INDIRECT("1:"&LEN(A1))))),1)只能生成内存数组,没法在一个单元格里显示出来

TA的精华主题

TA的得分主题

发表于 2018-9-14 17:15 | 显示全部楼层
  1. =IFERROR(SMALL(IF(FREQUENCY(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1),SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1))<>0,SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1)),ROW(INDIRECT("1:"&LEN(A1)))),)
复制代码

思路走不下去,存个公式先。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-14 17:21 | 显示全部楼层
Scrazy 发表于 2018-9-14 17:15
思路走不下去,存个公式先。

=MID(SUM(MID(A1&1/17,SMALL(FIND(ROW($1:$10)-1,A1&1/17),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

我给您提供上面这个公式,完全可以解决数值的重复值,但是遇到字母无法保留,你能解决下吗

TA的精华主题

TA的得分主题

发表于 2018-9-14 18:10 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-9-25 07:13 , Processed in 0.074059 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表