Sub test()myrow = Range("A65536").End(xlUp).RowFor i = 1 To myrow Range("C" & i) = Format(Range("A" & i), "yyyymmdd") & Format(i, "000")NextEnd Sub
Format(Range("A" & i).value,"yyyymmdd") & Format(i,"000")