[已解决]EXCEL高手用VBA改写C9这条公式

vbyou127

EXCEL高手用VBA改写C9这条公式

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-26 21:49

Sub test()
    Dim A, i, j, s
    A = Range("a1").CurrentRegion

    For i = 2 To UBound(A)
        s = s + 1
        For j = 6 To UBound(A, 2)
            If A(i, j) < IIf(j < 10, 70, 20) Then s = s - 1: Exit For
        Next j
    Next

    [c10] = s
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i, j, s
    A = Range("a1").CurrentRegion

    For i = 2 To UBound(A)
        s = s + 1
        For j = 6 To UBound(A, 2)
            If A(i, j) < IIf(j < 10, 70, 20) Then s = s - 1: Exit For
        Next j
    Next

    [c10] = s
End Sub

josonxu

1. Sub tt()
   
2.     Dim arr, s, ss, sss, r, c, cc
   
3.     arr = Range("a1").CurrentRegion
   
4.     For r = 2 To UBound(arr)
   
5.         For c = 6 To 9
   
6.             If arr(r, c) >= 70 Then
   
7.                 s = s + 1
   
8.             Else
   
9.                 GoTo a
   
10.             End If
    
11.         Next
    
12.         For cc = 10 To 11
    
13.             If arr(r, cc) >= 20 Then
    
14.                 ss = ss + 1
    
15.             Else
    
16.                 GoTo a
    
17.             End If
    
18.         Next
    
19.         sss = sss + 1
    
20. a:
    
21.     Next
    
22.     Range("c10") = sss
    
23. End Sub

复制代码

EXCEL高手用VBA改写C9这条公式.zip (16.99 KB, 下载次数: 5)

2016-3-26 22:12 上传

点击文件名下载附件

vbyou127

josonxu 发表于 2016-3-26 22:13

不用goto行不行

josonxu

vbyou127 发表于 2016-3-26 22:17
不用goto行不行

可以   两个代码前者常见     后者goto 很少   一般理解goto 错误跳转   

乐乐2006201506

学习了。