[kapetang]

Καλημέρα στην παρέα

Θα πρότεινα την ακόλουθη απλοποίηση και γενίκευση στον κώδικα του Σπύρου:

Sub test()
    Dim i As Long, lastrow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastrow
        Cells(i, 2) = Format(Cells(i, 1), "'000000")
        Cells(i, 4) = Cells(i, 1) & Cells(i, 2) & Cells(i, 3)
    Next i
End Sub

Φιλικά/Γιώργος