没有看到提示问题在哪里,就是有个时间大于1的,
Do While k.Offset(IIf(l > 16, intRow + 1 + m, 2 + m), IIf(l > 16, l - 16, l)) > 0 And k.Offset(IIf(l > 16, intRow + 1 + m, 2 + m), IIf(l > 16, l - 16, l)) < 2 '1
arrTemp(j, 4 + m) = k.Offset(IIf(l > 16, intRow + 1 + m, 2 + m), IIf(l > 16, l - 16, l))
m = m + 1
Loop