For x = 3 To Row1 For y = 3 To Row2 If sourcesheet.Range("M" & x) > 7 Then Worksheets("超时问题单").Range("d" & y) = sourcesheet.Range("M" & x) End If Next yNext x
Next yEnd If你不觉得这两句 顺序颠倒了吗Next j你不觉得这个改是x不是j么