求助

TY雨

我的   If YF >= Application.WorksheetFunction.EoMonth(ar1n(n, 9), 0) _    '---条件1        And YF <= Application.WorksheetFunction.EoMonth(ar1n(n, 10), 0) _    '------条件2
        And ar6(t, 3) = ar1n(n, 3) Then                                                             '------条件3
        ReDim Preserve arr1(1 To 12, 1 To l)
        For j = 1 To 12
        arr1(j, l) = ar1n(n, j)
        Next
        End If

AR6里面是没有一条与 ar1n 相等的。在调试的时候，每次都都在 then 后的  怎么回事呢

TY雨

我后面再ar1n 后面加入了符合上面条件的，还是arr1还是没有填入数据。  另外 ，之前也遇到if   and  then  的条件都为否的时候也执行了then后面的语句，正常不是应该执行end if吗？

RMA5566

帮顶顶。。。