جستجوی چندتایی

قسمتهایی که علامت زده شده اند را به تعداد دلخواه تکرار کن

j1 = 0
j2 = 0
j3 = 0
For i = 1 To 10000

    If (Cells(i, 1) = 175) Then
        j1 = j1 + 1
        Cells(j1, 8) = Cells(i, 1)
        Cells(j1, 9) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 176) Then
        j2 = j2 + 1
        Cells(j2, 10) = Cells(i, 1)
        Cells(j2, 11) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 177) Then
        j3 = j3 + 1
        Cells(j3, 12) = Cells(i, 1)
        Cells(j3, 13) = Cells(i, 2)
    End If
   
Next i

چند عدد رو سرچ میکند و نمایش میدهد

دریافت
حجم: 16.6 کیلوبایت