Find first occurrence across multiple columns

It not clear for me with "first occurence within same range "
If you want to put "y" where 1st unblank cell found in COLUMN:

PHP Code: 

Sub firstoccurence()
For c = 1 To 4
    For r = 1 To 100
        If Cells(r, c) <> "" Then
            Cells(r, c).Offset(0, 4) = "y"
            Exit For
        End If
    Next r
Next c
End Sub 


Or 1st unblank cell found in ROW:

PHP Code: 

Sub firstoccurence2()
For r = 1 To 100
    For c = 1 To 4
        If Cells(r, c) <> "" Then
            Cells(r, c).Offset(0, 4) = "y"
            Exit For
        End If
    Next c
Next r
End Sub 


what kind of match: exact or partial match?
by row or by column in range A1:D100?
Could you post an image or XL2BB mini sheet?

Originally Posted by TildesleyH

Hi again bebo021999,
Thank you for your assistance, however I have managed to solve this issue myself

Lots of For Next loop and writting to sheet directly may cause the code supper slow
I believe that using array will help a lots, esp. working with big data
If you willing to get a proper and fast solution, try to attach a sample sheet.