جستجو

پرانتز خط  5و6 به جای اخر اول خوردند
j = 0
For i = 1 To 10000
    If (Cells(i, 1) = 175) Then
        j = j + 1
        Cells(j, 8) = Cells(i, 1)
        Cells(j, 9) = Cells(i, 2)
    End If
Next i