[已解决]VBA高手进来将G27那条公式改为VBA

vbyou127

VBA高手进来将G27那条公式改为VBA

补充附件完成

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-3 10:36

Sub ss()
    arr = [g10:g26]: r = UBound(arr)
    t = Left(arr(r, 1), 1) & Mid(arr(r, 1), 3, 1)
    For i = r To 1 Step -1
        t1 = Left(arr(i, 1), 1) & Mid(arr(i, 1), 3, 1)
        If t <> t1 Then Exit For
        k = k + 1
    Next
    [g28] = t & k
End Sub

跳转到最佳答案楼层

vbyou127

还有谁来回答一下  其他方法

Sub s()
    i = 26
    t = Mid(Cells(26, 7), 1, 1) & Mid(Cells(26, 7), 3, 1)
    Do While t = Mid(Cells(i, 7), 1, 1) & Mid(Cells(i, 7), 3, 1)
        i = i - 1
        k = k + 1
    Loop
    Cells(28, 7) = t & k
End Sub

grf1973

Sub ss()
    arr = [g10:g26]: r = UBound(arr)
    t = Left(arr(r, 1), 1) & Mid(arr(r, 1), 3, 1)
    For i = r To 1 Step -1
        t1 = Left(arr(i, 1), 1) & Mid(arr(i, 1), 3, 1)
        If t <> t1 Then Exit For
        k = k + 1
    Next
    [g28] = t & k
End Sub