例如:
a列:1、2、3、3、2
b列:2、3、6、2、5
达到结果为:
a列:1、2、3
b列:2、5、6
最好是用函数可以在C列中识别出:a列中重复的编号在b列中最高的值。
删除a列中的重复项,相对应的b列的值保留最高值;
答案:2 悬赏:80 手机版
解决时间 2021-03-03 02:08
- 提问者网友:杀手的诗
- 2021-03-02 13:44
最佳答案
- 五星知识达人网友:未来江山和你
- 2021-03-02 13:50
'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
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楼网友:掌灯师
- 2021-03-02 14:26
办法1、条件格式——新建规则——仅对唯一值和重复值设置规则——全部设置格式选择重复——格式设置成红色
这样重复值就会成为红色
办法2,假设原数值表为sheet1,在sheet2的a1单元格输入=if(countif(sheet1!$a:$zz,sheet1!a1)>1,sheet1!a1,"")
右拉,下拉
和原来表大小一致a1到a1000是数据
b1输入
=countif(a1:a1000,a1),填充到底
筛选下b列,如果是大于1的,就是重复的,留一个就行了
有数据的就是重复的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯