搜搜考试网VBA找单元格对应重复的数字
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/06/28 09:26:27
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列 打错了,“都”应该是“第”
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单元格循环依次输入数据