for循环嵌套使用if语句，每次只能遍历第一个数据，是怎么回事啊

liuzhang0910

Sub balance()
'平衡关系校验
Dim rng
Dim arr
irows = ThisWorkbook.Worksheets("data").Range("a65536").End(xlUp).Row
MsgBox irows
arr = ThisWorkbook.Worksheets("data").Range("a6:a" & irows)


For i = 1 To UBound(arr)
    If Len(arr(i, 1)) = 3 Or Left(arr(i, 1), 2) = "T0" Then
        ThisWorkbook.Worksheets("平衡表").Range("a" & 7 + i) = arr(i, 1)
    End If
Next i

End Sub


为什么每次运行只能遍历到第一个数据？是数组定义的不对还是if语句使用有问题啊？求大神。

我scola

上传表格吧，方便

快活小仙女

为什么数组是二维啊，我之前也这样，定义和赋值跟你一样，但除了第一个，其他都提示下标越界，唉，萌新好艰难啊

快活小仙女

我也不会，留个标签，下次来看大神解答

mschenyj

For Each rng In ThisWorkbook.Worksheets("data").Range("a6:a" & irows)
        If  Len(rng(i, 1)) = 3 Or Left(rng(i, 1), 2) = "T0" Then
        ThisWorkbook.Worksheets("平衡表").Range("a" & 7 + i) = arr(i, 1)
        End If
Next
没有看到表，不知道对不对！可以试下不使用数组，

飞飞狐

赋值错误了，如果想把Range中的值转成数组，需要用下面的赋值语句
arr = ThisWorkbook.Worksheets("data").Range("a6:a" & irows).value

如果Range的方向是纵向的，那最好是调用函数如下，否则你得到的就是一个N维数组
arr = WorksheetFunction.Transpose(ThisWorkbook.Worksheets("data").Range("a6:a" & irows).value)

pjiang

UBound(arr，1)