Sub chazhao() Dim i As Long, irow As Long, arow As Long, z As Long arow = Range("a65536").End(xlUp).Row irow = Range("b65536").End(xlUp).Row For i = 1 To irow z = 1 Do If InStr(Range("b" & i), Range("a" & z + i)) > 0 Then Exit Do z = z + 1 Loop Until z + i > arow If z + i <= arow Then Range("c" & i).Value = z End If Next End Sub