macro to make =LEN = 6 for all cells in column

[billyheanue]

hi all, need macro to:

if the =LEN value of any text in column A is under 6, add 0's to the beginning of text string until LEN = 6

 

[mikerickson]

the formula =RIGHT("000000"&A1, 6) should give you the strings you want.

 

[tygrrboi]

=iferror(rept("0", 6-len(a1))&a1, a1)

 

[Trebor76]

Another:

=IF(LEN(A2)<6,REPT("0",6-LEN(A2))&A2,A2)

 

[DHayes]

You can try this macro

Range("B:B").Select
Selection.NumberFormat = "000000"