Question

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

Answer 1

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