代码如下:Sub Macro1()Dim i%For i = 1 To 2000If Sheets(1).Cells(i, "I") = 4 Then Sheets(2).Cells(3, "B") = Sheets(1).Cells(i, "J"): Exit ForNext iSheets(2).SelectEnd Sub