Dim sp
sp = 20 '20是A列的数字的个数,需要根据情况输入
For i = 1 To sp
p = 1
For j = 0 To sp - 1
If (Cells(i + j, 1) Mod 2 = 0 And Cells(i + j + 1, 1) Mod 2 = 1) Or (Cells(i + j, 1) Mod 2 = 1 And Cells(i + j + 1, 1) Mod 2 = 0) Then
p = p + 1
Else
Exit For
End If
Next j
If p = 1 Then
Cells(i + j, 2) = ""
Else
Cells(i + j, 2) = p
i = i + j
End If
Next i
End Sub
用法:按住Alt+F11,将上述代码复制进去,点上面那个像播放器一样的三角形。就可以了。
如果A列数字很多,就将上面备注的20改成相应的数据
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)