[Spirosgr]

Ορίστε λοιπόν η λύση ολοκληρωμένη με βάση και την δεύτερη περιγραφή.

Έστω στήλη A (δεδομένα) αριθμοί με 2 ή 3 ψηφία.
Έστω στήλη B (κενά κελιά) στα οποία θα έρθει η αξία των Α και μπροστά τα ανάλογα 0 (μηδέν).
Η στήλη Β να γίνει μορφοποίηση κείμενο.
Έστω στήλη C (δεδομένα) οτιδήποτε.
Έστω στήλη D (κενά κελιά) στα οποία θα έρθει η συνένωση των A,B,C.

Sub test()
    Dim i As Long, lastrow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastrow
        If Len(Cells(i, 1)) = 2 Then Cells(i, 2).Value = "0000" & Cells(i, 1).Value
        If Len(Cells(i, 1)) = 3 Then Cells(i, 2).Value = "000" & Cells(i, 1).Value
        Cells(i, 4).Value = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
    Next i
End Sub

Αντιγράψτε τον κώδικα σε μια module και τρέξτε τον.
Το αποτέλεσμα θα είναι όπως στις εικόνες.
Εικόνα 1 πριν, εικόνα 2 μετά.