VBA to add leading zero.

[mowens74]

I am trying to run VBA code to add a leading zero so that the figures are 2 in length;
e.g. 1 becomes 01

I have looked around and found some code, it doesn't error but it doesn't add a leading zero when run.

Please Login or Register  to view this content.

I have attached an example sheet.

[Logit]

https://excelchamps.com/blog/leading-zeros/

Look at #5

[xladept]

Or try this:

Please Login or Register  to view this content.

[Rick Rothstein]

Here is another macro (no loops) that should also work...

Please Login or Register  to view this content.

[Rick Rothstein]

Actually, in thinking about it some more... given the OP's layout, we only need to examine up to Row 57 (that is, the cells containing either blanks or the first 9 numbers) since after that, all number cells will consist of two digits (assuming the OP's numbering stops at 99 maximum). Given that, this macro should also work...

Please Login or Register  to view this content.

[mowens74]

Thank you all for your help, I have gone with Rick's last submission with a little edit :-D

Please Login or Register  to view this content.

[xladept]

You're welcome and thanks for the rep!