Loop to check if cell value starts from digit and copy and offset the cells

[fotodj]

I am trying to make a VBA loop to identify if first character in cell A starts from digit and if yes, copy cell value from column B in this row to column C and offset it one row up....

I guess this would be the backbone of the code, back I need help with identifying if first character in cell A is a digit and then use proper code to copy cell B and offset it:

  Sub TestForDigit()
Dim x As Integer
Dim c As Range

x = 0

For Each c In Range("A1:A100")
   'if c.Value = (if starts from digit)
    If c.Value = (starts from digit)
    Then (copy cell in col B to col C and offset it one cell up)
        
    End If
Next c


End Sub

 

[bebo021999]

Like this:

Option Explicit
Sub test()
Dim lr&, cell As Range
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("C1:C100000").ClearContents
For Each cell In Range("A2:A" & lr)
    If IsNumeric(Left(cell, 1)) Then cell.Offset(-1, 2).Value = cell.Offset(, 1).Value
Next
End Sub

 

[fotodj]

Excellent, I learned another trick... thank you!

 

[Peter_SSs]

@fotodj
I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

If you are interested, you could also do the whole column at once rather than looping a row at a time.

Sub Test_For_Digit()
  With Range("A2", Range("A" & Rows.Count).End(xlUp))
    .Offset(-1, 2).Value = Evaluate("if(isnumber(left(" & .Address & ",1)+0)," & .Offset(, 1).Address & ","""")")
  End With
End Sub