单元格内重复单词的删除

秋枫 · 发表于 2017-6-12 17:34

天生懒美人发表于 2017-6-12 17:22
秋老师，刚刚可能是我没说清楚。我的意思是脚本在去重的时候能不能不分大小写，比如说，文本中有For for ...

去重.zip (892 Bytes, 下载次数: 88)

如果是这样的话，原来的编程思路不很妥。我先在原来的基础上勉强改一下。

天生懒美人 · 发表于 2017-6-12 18:09

秋枫发表于 2017-6-12 17:34
如果是这样的话，原来的编程思路不很妥。我先在原来的基础上勉强改一下。

嗯嗯，我先用着这个先，老师辛苦了！我要怎样给您献花？我是最近才来这里的，还不知道要怎样回敬老师呢。

秋枫 · 发表于 2017-6-12 20:04

天生懒美人发表于 2017-6-12 18:09
嗯嗯，我先用着这个先，老师辛苦了！我要怎样给您献花？我是最近才来这里的，还不知道要怎样回敬老师呢。

点右下角评分即可。

天生懒美人 · 发表于 2017-6-13 12:11

秋枫发表于 2017-6-12 20:04
点右下角评分即可。

我好像不能评分耶，只看到一个本版积分规则

秋枫 · 发表于 2017-6-13 12:52

那就不用啦。我也不知道为什么。
我这里看每层楼右下角都有评分。

天生懒美人 · 发表于 2017-6-13 15:21

秋枫发表于 2017-6-13 12:52
那就不用啦。我也不知道为什么。
我这里看每层楼右下角都有评分。

嗯嗯，好的。我这里的每一层楼的右下角只有举报和管理这两个按钮。不知道是不是因为我等级太低了呢。

还是很感谢您帮了我的忙的！

天生懒美人 · 发表于 2017-6-13 20:51

秋枫发表于 2017-6-13 12:52
那就不用啦。我也不知道为什么。
我这里看每层楼右下角都有评分。

终于知道为什么我之前不能评分了，级别不够，所以没有评分功能给我，刚刚看到了系统信息提示我已经升级为EH初级了，然后再点开这个帖子就看到了有评分的按钮出来……

happysun123 · 发表于 2019-1-18 23:49

秋老师，您好
运行后去重复的顺序是保留第一个重复项，然后删除后面所有重复的。那如果我想总是保留最后一个重复项，删除前面的所有重复内容，这样能实现吗？
非常感谢您的帮助！

ggmmlol · 发表于 2019-1-19 12:24

本帖最后由 ggmmlol 于 2019-1-19 12:34 编辑

happysun123 发表于 2019-1-18 23:49
秋老师，您好
运行后去重复的顺序是保留第一个重复项，然后删除后面所有重复的。那如果我想总是保留最后一 ...

单元格内重复单词的删除，解决这样的问题，最适合的工具就是正则表达式，只需要寥寥数行代码即可解决。

.Pattern = "( \S+)(?= .*?\1\b)|\s+(?=\s|$)" '正则表达式（连续非空白字符串去重复）

完整代码如下：

Sub test()
With CreateObject("VBscript.regexp")
.Global = True '全局匹配
.IgnoreCase = True '忽略大小写
.Pattern = "( \S+)(?= .*?\1\b)|\s+(?=\s|$)" '正则表达式（连续非空白字符串去重复）
r = Cells(Rows.Count, 2).End(xlUp).Row
arr = [b2].Resize(r - 1, 2)
For i = 1 To r - 1
arr(i, 1) = StrReverse(LTrim(.Replace(" " & StrReverse(arr(i, 1)), ""))) '重复项只保留第一个
' arr(i, 1) = LTrim(.Replace(" " & arr(i, 1), "")) '重复项只保留最后一个
Next
End With
[d2].Resize(r - 1) = arr '从D2单元格开始输出结果。可根据需要，自行修改。
End Sub

复制代码

附件在此：

单元格内去除重复的单词.rar (27.38 KB, 下载次数: 58)

happysun123 · 发表于 2019-1-19 21:12

ggmmlol 发表于 2019-1-19 12:24
单元格内重复单词的删除，解决这样的问题，最适合的工具就是正则表达式，只需要寥寥数行代码即可解决。
...

非常感谢大神的解答！相当精彩，问题已经解决。

		自动登录	找回密码
密码			免费注册

最新热点 /1