excel loop through columns till a blank one and add text

Question

I know with rows in excel I can loop it downwards with an incrementor till I hit a blank cell where I will add my text. But for columns since they use the alphabet what could I do for this?

Answer 1

Try a loop like this:

Dim i As Integer
For i = 1 To 100
    If Cells(7, i).Value = "" Then
        ' empty cell found   '

        Cells(7, i).Value = "New value"

        Exit For
    End If
Next i

It finds the empty cell of the first 100 columns, in 7th row.