VBA找单元格对应重复的数字
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/01 05:12:12
VBA找单元格对应重复的数字
同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D列与都24行D列的第一个数字比较,如果相同,则保留,如果不同则不取,第2-10个数字同理,即位置对应且数字一样,那么符合要求的数字就是9和6.如果10个数字都没有对应相同的,则为空(即为"" ,而不是为0).
要求:用自定义函数写代码,这样我可以任意调用,本人不会VBA,根据以前请网友们写的代码,自己也编写了自定义函数,但是是逐个比较的,很笨的方法,运行效率不高,就是用mid分别找两个单元格第一个数字,两者比较,看相同与否,自己不会用for循环,呵呵,隔行如隔山啊.自定义函数形式是:
Function ProjectALL(r,c)'r是行号,c是列号
m1 = Cells(r - 1, c).Value'上一行数据
m2 = Cells(r, c).Value'本行数据
您的代码:使用for循环找吧
ProjectALL=
End Function
数据不是随机生成的,是事先做好的,这个不用管,数据是文本格式的.
PS:都23行D列与都24行D列 打错了,“都”应该是“第”
同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D列与都24行D列的第一个数字比较,如果相同,则保留,如果不同则不取,第2-10个数字同理,即位置对应且数字一样,那么符合要求的数字就是9和6.如果10个数字都没有对应相同的,则为空(即为"" ,而不是为0).
要求:用自定义函数写代码,这样我可以任意调用,本人不会VBA,根据以前请网友们写的代码,自己也编写了自定义函数,但是是逐个比较的,很笨的方法,运行效率不高,就是用mid分别找两个单元格第一个数字,两者比较,看相同与否,自己不会用for循环,呵呵,隔行如隔山啊.自定义函数形式是:
Function ProjectALL(r,c)'r是行号,c是列号
m1 = Cells(r - 1, c).Value'上一行数据
m2 = Cells(r, c).Value'本行数据
您的代码:使用for循环找吧
ProjectALL=
End Function
数据不是随机生成的,是事先做好的,这个不用管,数据是文本格式的.
PS:都23行D列与都24行D列 打错了,“都”应该是“第”
![VBA找单元格对应重复的数字](/uploads/image/z/1456365-21-5.jpg?t=VBA%E6%89%BE%E5%8D%95%E5%85%83%E6%A0%BC%E5%AF%B9%E5%BA%94%E9%87%8D%E5%A4%8D%E7%9A%84%E6%95%B0%E5%AD%97)
Function ProjectALL(r, c) 'r是行号,c是列号
m1 = Cells(r - 1, c).Value '上一行数据
m2 = Cells(r, c).Value '本行数据
l1 = Len(m1) 'm1长度
l2 = Len(m2) ‘m2长度
If l1 < l2 Then ’l1
m1 = Cells(r - 1, c).Value '上一行数据
m2 = Cells(r, c).Value '本行数据
l1 = Len(m1) 'm1长度
l2 = Len(m2) ‘m2长度
If l1 < l2 Then ’l1
VBA找单元格对应重复的数字
VBA找单元格数据的中间名次
VBA找单元格奇数次数
VBA统计单元格里面逗号的个数
求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!
Excel里让单元格数字等于相同数字对应的人名
用Vba计算同列两个相邻单元格数值相同的下一个单元格的个数
如果A列的数字对应小于B列的数字,则对应的单元格怎样自动填充颜色!
excel表格中在一个单元格中填写一个数字,另外一个单元格自动填写与之对应的数值
excel中,把某列数字组合在一单元格中,重复出现的数字只出一个的公式.
把两个单元格里的数字组合在另一单元格中,重复的数字只记为一次
VBA单元格循环依次输入数据