|
本帖最后由 h284124405 于 2015-9-10 16:07 编辑
If Cells(i, 7) = "分" Then Cells(i, 1) = 1 + sss
如何再加个条件, Cells(i, 1) 上面行有没有数呢?
有则=上面行的数 + 1,
没有则Cells(i, 1) = 1 + sss
比如: 2行 至 19行
其中的2行1列 = 2行7列是"分" 那一定是 = 1 + sss
否则 = 空
3行1列 = 3行7列如果是"分" 就是 = 2行1列数 +1 2行没有数 则 = 1 + sss
否则 = 空
4行1列 = 4行7列如果是"分" 就是 = 上面哪行有数 就在哪行的数上 +1 上面行都没有数 则 = 1 + sss
否则 = 空
至到19行.
h284124405 发表于 2015-9-10 15:52
比如: 2行 至 19行
其中的2行1列 = 2行7列是"分" 那一定是 = 1 + sss - If i > 1 And i <= 19 Then
- If Cells(i, 7) = "分" And IsNumeric(Cells(i, 1).End(xlUp)) Then
- Cells(i, 1) = Cells(i, 1).End(xlUp) + 1
- ElseIf Cells(i, 7) = "分" Then
- Cells(i, 1) = 1 + sss
- End If
- Else
- If Cells(i, 7) = "分" Then Cells(i, 1) = 1 + sss
- End If
复制代码
|
|