Sub sfzxt() Dim i, j As Integer For i = 2 To Sheets(1).UsedRange.Rows.Count Sheets(1).Cells(i, 2) = "否" For j = 2 To Sheets(2).UsedRange.Rows.Count If Sheets(1).Cells(i, 1) = Sheets(2).Cells(j, 1) Then Sheets(1).Cells(i, 2) = "是" End If Next j Next i End Sub