[已解决]清理RE数据VBA

excel白兔

表里的 VBA 清空 RE数量 这个VBA 我点时运算速度不是很快 点1下 10分钟才反应过来 好一点的电脑也得反应5分钟，老师们能否在不改变结果的情况下，把这个VBA编写 让他快些呢1分钟内能运算出来 感谢

最佳答案

月排行榜 / 总排行榜

FF7

2011-8-13 12:48

肯定是用数组快咯，大约2秒钟运行完！！
Sub 清空()
    Dim i As Long, J As Long
    Application.ScreenUpdating = False
    Row1 = Range("C65536").End(xlUp).Row
    ROW2 = Range("D65536").End(xlUp).Row
   
    Dim arr, brr
    arr = Range("C7:C" & Row1)
    brr = Range("I7:I" & Row1)
    For i = 1 To UBound(arr)
        If arr(i, 1) = "RE" Then brr(i, 1) = ""
    Next i
    [i7].Resize(UBound(brr)) = brr
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

FF7

肯定是用数组快咯，大约2秒钟运行完！！
Sub 清空()
    Dim i As Long, J As Long
    Application.ScreenUpdating = False
    Row1 = Range("C65536").End(xlUp).Row
    ROW2 = Range("D65536").End(xlUp).Row
   
    Dim arr, brr
    arr = Range("C7:C" & Row1)
    brr = Range("I7:I" & Row1)
    For i = 1 To UBound(arr)
        If arr(i, 1) = "RE" Then brr(i, 1) = ""
    Next i
    [i7].Resize(UBound(brr)) = brr
    Application.ScreenUpdating = True
End Sub

excel白兔

谢谢 老师的回答  高手！