注册    登录
今天看啥  ›  专栏  ›  完美Excel

删除包含多行文本的单元格中重复文本的VBA自定义函数

完美Excel  · 公众号  · Excel  · 2024-06-25 05:50
学习Excel技术，关注微信公众号：excelperfect标签：VBA，自定义函数如下图1所示，在单元格A1中包含多行文本，现在要求删除这些文本中开头单词相同的行，仅保留第1行，结果如图1单元格B1中所示。图1可以使用VBA编写一个自定义函数来实现。打开VBE，插入一个标准模块，输入代码：Public Function fnUnique(rng As Range) Dim dict As Object Dim dOut As Object Dim val As Variant Dim var As Variant Dim i As Integer Dim sKey As String  Set dict = CreateObject("scripting.dictionary") Set dOut = CreateObject("scripting.dictionary") dict.CompareMode = vbTextCompare dOut.CompareMode = vbTextCompare val = rng.Value & "" var = Split(val, Chr(10)) On Error Resume Next For i = 0 To UBound(var) sKey = Split(var(i))(0) If dict.exis ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  LOOKUP函数，这些用法会了吗？
2 天前
Excel之家ExcelHome  ·  Shift，这几个典型用法必须会
4 天前
Excel之家ExcelHome  ·  会排序的Excel条形图，其实很简单
3 天前
Excel之家ExcelHome  ·  XLOOKUP函数，典型用法合集
1 周前
Excel之家ExcelHome  ·  IF函数的这些常见问题，一言难尽
1 周前
天同诉讼圈  ·  名师解读：国际破产法模拟法庭赛题在关注什么？ | 破产池语
2 年前
机器之心  ·  报名 | 第四届社交机器人论坛第一期开幕：李航、刘群、姜大昕主讲
4 年前
数字货币趋势狂人  ·  未来，会证明我们2019年的坚守是极具价值的
4 年前
宠物讲  ·  小伙带金毛走玻璃桥，看到金毛害怕的样子，竟引起路人的嘲笑
4 年前
kk汽车金融行业研究  ·  汽车金融万里行第2站——6月28日/29日相聚呼和浩特
7 年前
kk汽车金融行业研究  ·  汽车金融万里行第2站——6月28日/29日相聚呼和浩特
7 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号