|
3学分
本帖最后由 ryoryo66 于 2021-1-8 13:25 编辑
B1:E1的数字,对比J列的每行数字,看看出现的数字一致的有多少格. 比如J1里07,08,09=0,实际上,07,08,09对比B1:E1,有1个08,说明这个J1里的=0是不一致的,不用计数;接着是J2里的03,06,09,12,15=2,实际上03,06,09,12,15对比B1:E1确实是2个,那么是一致的,计数1个;
依次检查J3,J4,J5....,这里的5格中有2格是一致的,那么一共计数2个.就在 J列最后一行非空的下方显示2. 请老师帮我看一下这个代码应该怎么写啊?
J列不一定是固定5格,这里是J1:J5,有可能是J1:J6,或J1:J8.这样的行数不固定.
数字的范围都是01-15.
数据全都是英文逗号分隔.
J列里的数字事先就是带有 = 几的
本帖最后由 高 于 2021-1-8 14:05 编辑
- Sub gghjhjd()
- r = Range("j1").End(xlDown).Row
- If Not Range("j" & r) Like "*=*" Then
- r = r - 1
- End If
- For x = 1 To r
- arr = Split(Split(Range("j" & x), "=")(0), ",")
- shzhi = Split(Range("j" & x), "=")(1)
- For y = 0 To UBound(arr)
- heji = heji + WorksheetFunction.CountIf(Range("b1:e1"), arr(y))
- Next y
- If heji - shzhi = 0 Then
- i = i + 1
- End If
- heji = 0
- Next x
- Range("j" & r + 1) = i
- End Sub
复制代码
|
|