找回密码
  注册[Register]
查看: 105|回复: 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]

本版积分规则

RSS订阅|手机版|小黑屋|大牛论坛 |我的广告

GMT+8, 2024-5-5 01:04 , Processed in 0.037284 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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