[jose]

Αμέτρητες ευχαριστίες.....

Δυστηχώς η Forthnet είχε μιά πολύωρη διακοπή
και γι'αυτο η καθυστερημένη απάντηση.

Να βάλω και εγώ κάτι που μπορεί να χρησιμεύσει σε κάποιον
( ισως οι Αδμινίστορες την θεωρήσουν χρήσιμη και την
τοποθετήσουν σε ανάλογο Θέμα )

Εστω
Α1 = 5
Β1 = - ( παύλα )
C1 = 9

Με την =CONCATENATE(A1;B1;C1) στην στήλη Ε και στο Ε1 παίρνουμε το 5-9

με την παρακάτω , στις στήλες G και Η κάνουμε Split το 5-9 , σε 5 και 9

( δεν ξέρω αν υπάρχει και άλλος τρόπος , αυτήν είχα βρεί στο διαδύκτιο και ήταν
πολυ πρακτική )

Sub Split_paula()

 Dim firstName As String
    Dim lastName As String
    Dim n As Integer
    Dim rowNum As Integer
    Dim colNum As Integer
    rowNum = 1
    colNum = 5
    
    While Cells(rowNum, colNum).Value <> ""
        n = InStr(1, Cells(rowNum, colNum).Value, "-")
        lastName = Left(Cells(rowNum, colNum).Value, n - 1)
        firstName = Right(Cells(rowNum, colNum).Value, Len(Cells(rowNum, colNum).Value) - n - 0)
        Cells(rowNum, colNum + 2).Value = lastName
        Cells(rowNum, colNum + 3).Value = firstName
        rowNum = rowNum + 1
    Wend

End Sub

και πάλι σας ευχαριστώ