Snasui Excel Forum

Code: Select all

Sub running()

Dim i, n As Integer

n = WorksheetFunction.CountA(Columns("a"))
For i = 1 To n
                    
                    a = Cells(i + 1, 1).Value
                    If a = "0" Or a = "3" Then
                    Cells(i + 1, 2).Value = i
                    
                   
                    ElseIf a = "1" Or a = "2" Then
                    Cells(i + 1, 2).Value = i
                    End If
                    Next i

End Sub

Code: Select all

Sub running()

    Dim i As Integer, n As Integer
    Dim j As Integer, k As Integer
    n = WorksheetFunction.CountA(Columns("a"))
    j = 1
    k = 1
    For i = 2 To n
         a = Cells(i, 1).Value
         If a = 0 Or a = 3 Then
            Cells(i, 2).Value = j
            j = j + 1
         ElseIf a = 1 Or a = 2 Then
            Cells(i, 2).Value = k
            k = k + 1
         End If
     Next i

End Sub