[已解决]代码不够到位,少了一个条件,求大神帮忙完善,感谢了先

eking_tang

逻辑大概想到了,可是代码写不出来,求大神们帮忙了,感谢大家先

最佳答案

月排行榜 / 总排行榜

grf1973

2015-6-16 11:21

1. For b = 8 To Cells(Rows.Count, "a").End(3).Row
   
2.     If IsError(Range("ax" & b)) Then
   
3.         Cells(b, 1) = 0
   
4.     Else
   
5.         xx = Range("ax" & b)
   
6.         j = IIf(Cells(b, "L") <> "", 12, Cells(b, "L").End(xlToRight).Column) '从L列开始找b行第一个非空列
   
7.         If Cells(b - 2, j) = "" Then       '非空列b-2行为空
   
8.             Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + n
   
9.         Else                              '非空列b-2行不为空
   
10.             Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + Cells(b - 1, 1)
    
11.         End If
    
12.     End If
    
13. Next
    

复制代码

跳转到最佳答案楼层

grf1973

For b = 8 To Cells(Rows.Count, "a").End(3).row
    If IsError(Range("ax" & b)) Then
        Cells(b, 1) = 0
    Else
        xx = Range("ax" & b)
        j = IIf(Cells(b, "L") <> "", 12, Cells(b, "L").End(xlToRight).Column) '从L列开始找b行第一个非空列
        If Cells(b - 2, j) = "" Then       '非空列b-2行为空
            Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + n
        Else                              '非空列b-2行不为空
            Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + Cells(b - 1, 1)
    End If
Next

eking_tang

grf1973 发表于 2015-6-16 11:02
For b = 8 To Cells(Rows.Count, "a").End(3).row
    If IsError(Range("ax" & b)) Then
        Cells( ...

麻烦再帮忙看看~不知道为什么会提示说有NEXT,没有FOR呢???

grf1973

next 上面少了个 endif。。。。。

grf1973

1. For b = 8 To Cells(Rows.Count, "a").End(3).Row
   
2.     If IsError(Range("ax" & b)) Then
   
3.         Cells(b, 1) = 0
   
4.     Else
   
5.         xx = Range("ax" & b)
   
6.         j = IIf(Cells(b, "L") <> "", 12, Cells(b, "L").End(xlToRight).Column) '从L列开始找b行第一个非空列
   
7.         If Cells(b - 2, j) = "" Then       '非空列b-2行为空
   
8.             Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + n
   
9.         Else                              '非空列b-2行不为空
   
10.             Cells(b, 1) = Cells(b, 1) / xx * 0.041666 + Cells(b - 1, 1)
    
11.         End If
    
12.     End If
    
13. Next
    

复制代码