[已解决]代码的意思是

excel白兔

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
  老师们好 不太理解这个代码 请帮我理解下呗  主要不理解的是 绿色部分的
还有就是  粉色部分的 为什么不可以这样写呢  If arr = "RE" Then brr(i, 1) = ""     arr不就是变量了吗？ 我是刚学的所以不懂的多些 烦请老师们帮助

最佳答案

月排行榜 / 总排行榜

hongliang224

2011-12-23 12:00

application.screenupdating=false,application.screenupdating=ture是屏幕刷新禁用和启用，一般成对使用！可以加快程序执行速度。
[i7].Resize(UBound(brr)) = brr是将数组brr赋值给i7单元格扩展brr数组最大上标的行数后的一个新数组！UBound(brr)是指数组brr的最大上标，resize（）扩展单元格或区域的行列数，此处省略了列数！具体事例参见vbe帮助文件。不知道说清楚没！我也是新手。

跳转到最佳答案楼层

liuguansky

ARR是一个不定类型变量，它可以接受除定长字符串和自定义格式外的所有数组
之前的那段区域赋值给ARR，就是把数组赋值给它了，后面引用它的元素，也要用数组的引用方式 。
详见以下帮助内容：

hongliang224

application.screenupdating=false,application.screenupdating=ture是屏幕刷新禁用和启用，一般成对使用！可以加快程序执行速度。
[i7].Resize(UBound(brr)) = brr是将数组brr赋值给i7单元格扩展brr数组最大上标的行数后的一个新数组！UBound(brr)是指数组brr的最大上标，resize（）扩展单元格或区域的行列数，此处省略了列数！具体事例参见vbe帮助文件。不知道说清楚没！我也是新手。