VBA找单元格对应重复的数字同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D列与都24行D列的第一个数

来源：学生作业帮助网编辑：六六作业网时间：2024/11/08 16:41:22

VBA找单元格对应重复的数字同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D

VBA找单元格对应重复的数字同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D列与都24行D列的第一个数
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列打错了,“都”应该是“第”

VBA找单元格对应重复的数字同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都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

VBA找单元格对应重复的数字同一列的上下两行各有10个数字,数字都在0-9之间,但是顺序是杂乱无章的,例如第23行D列数据是0294631785,第24行D列数据是2398605471,那么都23行D列与都24行D列的第一个数用Vba计算同列两个相邻单元格数值相同的下一个单元格的个数 VB/vba 单元格的Offset属性是什么意思?vba 单元格的Offset属性是什么意思? vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,1 EXCEL怎样判断同一列相同值单元格对应行单元格的值是否相同?如果第一列的值相同对应第二列的值也相同时得出结果为1,否则为0,用什么公式判断? Excel 表格中怎么样才能把同一列的每个单元格内的数字都加上相同的数? 求：excel单元格一列的数字增加20%的公式? 怎么让电子表格一列等差数列除以同一个单元格的数字 VBA 如何实现查找某一单元格值然后以所在列的数据绘制曲线例如我输入需要查询的温度就把所有相同温度的一列值绘制在同一张曲线图中.有没有源VBA程序提供如何在电子表格里删除同一列里部分重复的数字如图,这一列每个单元格都是1036,减完后0开头没法显示.请大家帮忙!急!我也尝试编辑—替换—输入1036,“替换为”里不输入内容,这样10360*********, Excel一列数A1：A8中,有重复的数字.要在B1,B2,B3三个单元格得到其中第一大、第二大、第三大的三个数一列数A1：A8中,有重复的数字.要在B1,B2,B3三个单元格得到其中第一大、第二大、第三大的三 excel2007一列单元格中其中有的只有数字和有的只有字母,如何统计只有数字的单元格个数关于execl表选择性提取汉字的问题一个execl表多行,每行中前面有一列写汉字的单元格,后有一列写数字的格,我想新开一列,根据后一行是否有数字,提取后列有数字的对应前列单元格中的汉字,请 VBA找单元格奇数次数假定某单元格数据是19(127),236(15),0(4),8(3),45(2),7(0),其中小括号外的是具体数字,小括号内部是其次数,次数相同的已经放在一起,不同的用逗号隔开.上述数据表示1和9都是127次 VBA找单元格数据的中间名次晕,刚才问网友没问完.先看看格式,假定某个单元格里数据是7(25),9(14),01(3),45(2),236(1),8(0),小括号和逗号全是英文输入法下的,小括号外的的数字是具体数字,小括号内如果A列的数字对应小于B列的数字,则对应的单元格怎样自动填充颜色! 在电子表格中,我想用一列单元格内的不同数字都除以0.7,如何一步到位? 在EXcel中,在同一列中怎么把重复的数字以次数的方式筛选出来（如5011中重复多次,列筛选出5011为3次重复