查看: 153|回复: 3

[资源求助] wps中如何把第二列中内容和第一列重复的几个字删除?

[复制链接]
发表于 2024-2-28 10:51 | 显示全部楼层 |阅读模式
禁止求评分、诱导评分、互刷评分、互刷悬赏值,违规者封号处理。
禁止发布推广、邀请码、邀请链接、二维码或者有利益相关的任何推广行为。
所有非原创软件请发布在【精品软件区】,发帖必须按照本版块版规格式发帖。

悬赏100牛币未解决
A列                     B列                           结果
有高老头            有高老头捡垃圾        捡垃圾
一个漂亮小孩     小孩坐飞机               坐飞机(把第二列中在第一列有的文字去掉)

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心值】和【牛币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2024-2-28 16:53 | 显示全部楼层
第一个是可以的,用 =SUBSTITUTE(B1,A1,"")
第二个不完全重复,等待高手
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心值】和【牛币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2024-3-9 21:56 | 显示全部楼层
本帖最后由 alstar 于 2024-3-9 22:10 编辑

----
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心值】和【牛币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2024-3-9 22:05 | 显示全部楼层
本帖最后由 alstar 于 2024-3-9 22:09 编辑


Sub 去重复()

    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    For Each aCell In ws.Range("A1:A" & lastRowA)
        For Each bCell In ws.Range("B1:B" & lastRowB)
            If aCell.Value = bCell.Value Then
                bCell.Value = "重复"
                Exit For
            End If
        Next bCell
    Next aCell
End Sub


1.png 2.png

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心值】和【牛币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

关注公众号

相关侵权、举报、投诉及建议等,请发 E-mail:admin@discuz.vip

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖
关注公众号
返回顶部