[ΔΗΜΗΤΡΙΟΣ]

Τάσο καλημέρα!
Το πρόβλημα το έχω λύσει με λίγες κινήσεις (Προφανώς είναι εύκολο)
έγραψα έναν κώδικα με το mod 1 δεν λειτουργεί Ο κώδικας είναι:
Sub Geor()
For i = 1 To 20
reg = Range("A" & i).Value
If reg Mod 1 = reg Then
k = k + 1
Range("B" & k).Value = Range("A" & i).Value
End If
Next i
End Sub

Σου απαντώ στις διευκρινήσεις που μου ζήτησες.
Τα δεδομένα έχουν κεφαλίδα;Οχι.
Πρόκειται για αύξουσα ή φθίνουσα ταξινόμηση;Καλό θα έίναι.
Πρόκειται να ταξινομηθεί ολόκληρη η στήλη ή μόνο τμήμα της;Ολόκληρη η στήλη.
Πρέπει να ταξινομηθούν τυχόν στήλες που υπάρχουν δίπλα στην στήλη προς ταξινόμηση;Οχι