[已解决]解释一下语句

mmc998

arr = Sheet1.[e2].CurrentRegion.Offset(, -1)
ReDim brr(1 To UBound(arr) - 2, 1 To UBound(arr, 2))
For i = 4 To UBound(arr)
    For j = 2 To UBound(arr, 2)
        If arr(i, j) = 0 Then brr(i - 3, j - 1) = arr(i, j - 1)

最佳答案

月排行榜 / 总排行榜

王谦

2014-3-16 22:12

给数组arr赋值 值为以E2为顶点的像左偏移一列的连续区域~
重新定义数组 brr为二维数组，一维大小是 1 到 数组arr的最大行数 减2 二维大小是 arr最大列数

I代表arr的行数 J代表arr 列数
如果arr中有值等于0 则 brr下面数组坐标的值就等于 arr 下面坐标的值
brr(i - 3, j - 1) = arr(i, j - 1)

跳转到最佳答案楼层

王谦

给数组arr赋值 值为以E2为顶点的像左偏移一列的连续区域~
重新定义数组 brr为二维数组，一维大小是 1 到 数组arr的最大行数 减2 二维大小是 arr最大列数

I代表arr的行数 J代表arr 列数
如果arr中有值等于0 则 brr下面数组坐标的值就等于 arr 下面坐标的值
brr(i - 3, j - 1) = arr(i, j - 1)