Hi, I'm not good in VB codes. Can someone help me understand the meaning of this code. and what does each code does.
thank you so much.
Range("M1").Select ActiveCell = "Answer" lr = Cells(Rows.Count, 1).End(xlUp).Row While ActiveCell.Row < lr ActiveCell.Offset(1).Select For c = 11 To 2 Step -1 If Cells(ActiveCell.Row, c) > 0 Then GoTo Non0 Next c Non0: myCol = c + 1 i = 0 For c = myCol To 11 If Len(Cells(ActiveCell.Row, c)) > 0 Then i = 1 + i Next c ActiveCell = i Wend End Sub
Bookmarks