knrt.net
当前位置:首页 >> ExCEl vBA 某列值重复的几行数据的另一列数据放在... >>

ExCEl vBA 某列值重复的几行数据的另一列数据放在...

只会用公式,B15公式下拉:=PHONETIC(OFFSET(B$1,MATCH(A15,A$2:A$12,),,LOOKUP(1,0/(A$2:A$12=A15),ROW($2:$12))-MATCH(A15,A$2:A$12,)))需注意三点:一、同一个姓名必须是逐行紧挨在一起的,不能东一个西一个的.二、如果B列有纯数字的单元格,那么单元格格式必须要设定为文本格式.三、如不能满足上述要求的,那么我就只能帮忙到这了,建议还是等待VBA的大神来答题吧.

Sub s() For i = 607 To 2 Step -1 If Cells(i, 1) = Cells(i, 9) Then Cells(i, 1).Copy [h607] Exit For End If Next Dim arr(1 To 3) t = [a607].Text For i = 1 To 3 arr(i) = Mid(t, i, 1) Next For i = 607 To 2 Step -1 If Cells(i, 13) = Cells(i, 9) Then For j = 1 To 3 If InStr

方法一:数据有效性 以A列为例:点一下A1--选中A列--数据--有效性--允许:自定义,在下面公式一栏输入 =COUNTIF(A:A,A1)=1 确定 方法二:VBA 下列宏代码可实现你的要求 [A1].Select Range("A:A").Validation.Delete Range("A:A").Validation.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=COUNTIF(A:A,A1)=1"

用字典可以轻松快捷地实现去重的操作,代码如下:Sub main() Set dic = CreateObject("scripting.dictionary") '创建字典对象,并把字典对象赋给变量dic;这是最常用的一句代码,也就是所谓的“后期绑定” For i = Range("B65536").End(3

在Sheet2的B2单元格输入以下数组公式,按Ctrl+Shift+Enter组合键,然后向右向下填充公式 =INDEX(OFFSET(Sheet1!$B:$B,,MOD(COLUMN(A1)-1,2)),SMALL(IF(Sheet1!$A$2:$A$10=$A2,ROW($2:$10),4^8),INT(COLUMN(B2)/2))) 详见附图同表示例

因为在同一列,所以最简单的办法,添加两个辅助列,一个放行号流水(1,2,3……),然后以数据列排序,在另一个辅助列中公式=if(B1=B2,"false",""),标出相同的,这样一来基本就可以看出有几个重复了.复制公式列,粘贴为数据.再用行号流水排序,最后删掉两个辅助列,就OK了.这只是一个思路,你可以复完善一些.如果要全部显示很多重复数据,一定要用到VBA了

这个用2嵌套的循环来实现比对就可以了,A列第一个数据和B列第一个数据比对, 如果不重复就转到B列第二个,如果重复了就转到A列第二个,依次比对.大概十几句代码吧,添加一个按钮: (假定数据从第二行开始) Private Sub

B里边的数据有没2113有重复的?如果有重复的,可能就只能显示最后一个所在的行.不过没有重复的,就可以准5261确显示.在C1中输入数组公式:=MAX((A1=B:B)*ROW(B:B))或者=LARGE((A1=B:B)*ROW(B:B),1)因为是数组公式,输入公式之后必须按ctrl+shift+enter组合键完成.然后4102向下拖动即可.注意:如果有多个1653相同的值,则只显示符合条件的最后一个数据所在的行.如无符回合条件的,则显示0当然也有不同的方法,你用多种方法测试答一下,对比一下,看看哪个准确一些.

像这种情况我一般都加辅助列做个countifs计数,比如在d2输入countifs(b:b,b2,c:c,c2),再在e2输入公式countifs(a:a,a2,b:b,b2,c:c,c2)然后看一下e2数字特别小的,筛选出来后和D列数字对比一下,如果D列数字大于E列数字一倍以上,那么就说明这一行是出现次数少的那个,至于是不是要删除,要根据你的具体要求来判断了

用VBA或者自建一个宏,用函数可能会复杂(不过我不会).

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com