永发信息网

删除a列中的重复项,相对应的b列的值保留最高值;

答案:2  悬赏:80  手机版
解决时间 2021-03-03 02:08
例如:
a列:1、2、3、3、2
b列:2、3、6、2、5
达到结果为:
a列:1、2、3
b列:2、5、6

最好是用函数可以在C列中识别出:a列中重复的编号在b列中最高的值。
最佳答案
'vba做很简单
Sub test()
Dim i, dic, t1, t2
[c:d].ClearContents
Set dic = CreateObject("scripting.dictionary")
For i = 1 To [a65536].End(xlUp).Row
t1 = Cells(i, 1): t2 = Cells(i, 2)
If Not dic.exists(t1) Then
dic.Add t1, t2
Else
If Val(t2) > Val(dic(t1)) Then dic(t1) = t2
End If
Next
[c1].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
[d1].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.items)
End Sub
全部回答
办法1、条件格式——新建规则——仅对唯一值和重复值设置规则——全部设置格式选择重复——格式设置成红色 这样重复值就会成为红色 办法2,假设原数值表为sheet1,在sheet2的a1单元格输入=if(countif(sheet1!$a:$zz,sheet1!a1)>1,sheet1!a1,"") 右拉,下拉 和原来表大小一致a1到a1000是数据 b1输入 =countif(a1:a1000,a1),填充到底 筛选下b列,如果是大于1的,就是重复的,留一个就行了 有数据的就是重复的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
瓦窑咀地址在什么地方,想过去办事
就算是哥哥有爱就没问题了对吧有没有第二季
海沧市政新阳北部卫生管理点地址有知道的么?
2019年知行合阅读小学语文二年级上册部编版答
在网上申请一张招商银行信用卡,怎么查当初申
六合堂地址在哪,我要去那里办事
【微信】 被搜帐号状态异常,无法显示
蓝嘉广告这个地址在什么地方,我要处理点事
求防盛大1.85传奇玩法
我的鱼缸用什么过滤方式最好
扫描仪下面的镜头锁?
顶尖广告怎么去啊,有知道地址的么
生理盐水是分装后灭菌吗
长江副食地址有知道的么?有点事想过去
手游用无线可以正常登录,用流量就一直卡在公
推荐资讯
【日语翻译】“我想给你温暖”用日语怎么说啊
胸闷心悸,气短不能平卧,属于()A.痰饮B.悬饮
187点5除以百分之25等于多少
德阳川西坝子干锅在什么地方
半包家庭装修要注意什么?
花冠健康环保建材地址在什么地方,想过去办事
近几年,“韩流”吹遍世界,在国内,也有大量
我想矫正一下牙齿,请问中山这哪里好
富士施乐518复印机维修感光鼓组件寿命到期如
鑫天宇超低压稳压器不稳压嗡嗡响什么原因
有一部电影叫梦什么什么的,五个字的电影
法院院长是不是自然的审判委员会委员
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?