[已解决]在VBA中，如何实现类似update的功能

zglnjxlj

33     测试     aaa
55     测试     ccc
66     测试     aaa
88     测试     ccc
33     测试     aaa
如上表，如何将第三列含cc，对应的第一列值挑选出较大值，对应的 第二列“测试” 改为“ok”
运行结果为
33     测试     aaa
55     测试     ccc
66     测试     aaa
88     ok        ccc
33     测试     aaa

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-9 12:04

Sub test()
    Dim a, i, imax, arr, row0
    a = Cells(60000, 1).End(xlUp).Row
    arr = [a1].Resize(a, 3)
    For i = 1 To a
        If InStr(1, "cc", arr(i, 3)) > 0 Then
            If arr(i, 1) > imax Then imax = arr(i, 1): row0 = i
        End If
    Next i
    Cells(row0, 2) = "OK"
End Sub

跳转到最佳答案楼层

1032446692

Sub test()
    Dim a, i, imax, arr, row0
    a = Cells(60000, 1).End(xlUp).Row
    arr = [a1].Resize(a, 3)
    For i = 1 To a
        If InStr(1, "cc", arr(i, 3)) > 0 Then
            If arr(i, 1) > imax Then imax = arr(i, 1): row0 = i
        End If
    Next i
    Cells(row0, 2) = "OK"
End Sub

hwc2ycy

update what?

zglnjxlj

        If InStr(1, "cc", arr(i, 3)) > 0 Then
   这句话，总是跳过去，不能进入运行。  最后 row0 的值为空

zglnjxlj

把第四列的“测试”替换为"ok"

zglnjxlj

谢谢。InStr(1, arr(i, 3), "cc")