Excel - Αντιγραφή στοιχείων πολλών κελιών

[Highlander]

Έστω ότι έχουμε το παρακάτω Excel.

 

Κωδικός-------Περιγραφή

001------------Ειδος1

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους1

002------------Είδος2

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους2

003------------Είδος3

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους3

 

Με ποιο εύκολο τρόπο θα μπορούσα να αντιγράψω το κελί Α2 στο Α3, το κελί Α4 στο Α5 κ.ο.κ.

 

Μία άλλη εναλλακτική (αν μπορεί να γίνει) να συγχωνευθεί η γραμμή 3 στη γραμμή 2, η γραμμή 5 στη γραμμή 4 κ.ο.κ.

 

Ευχαριστώ εκ' των προτέρων για τη βοήθεια.

[bobidis]

Έστω ότι έχουμε το παρακάτω Excel.

 

Κωδικός-------Περιγραφή

001------------Ειδος1

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους1

002------------Είδος2

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους2

003------------Είδος3

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους3

 

Με ποιο εύκολο τρόπο θα μπορούσα να αντιγράψω το κελί Α2 στο Α3, το κελί Α4 στο Α5 κ.ο.κ.

 

Μία άλλη εναλλακτική (αν μπορεί να γίνει) να συγχωνευθεί η γραμμή 3 στη γραμμή 2, η γραμμή 5 στη γραμμή 4 κ.ο.κ.

 

Ευχαριστώ εκ' των προτέρων για τη βοήθεια.

 

Δεν σε καταλαβαίνω. Εννοείς αντιγραφή μεμονωμένου κελλιού σε άλλο ή αντιγραφή πολλών, συγχρόνως;

[jtsc21]

Έστω ότι έχουμε το παρακάτω Excel.

 

Κωδικός-------Περιγραφή

001------------Ειδος1

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους1

002------------Είδος2

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους2

003------------Είδος3

ΚΕΝΟ----------ΧαρακτηριστικόΕιδους3

 

Με ποιο εύκολο τρόπο θα μπορούσα να αντιγράψω το κελί Α2 στο Α3, το κελί Α4 στο Α5 κ.ο.κ.

 

Μία άλλη εναλλακτική (αν μπορεί να γίνει) να συγχωνευθεί η γραμμή 3 στη γραμμή 2, η γραμμή 5 στη γραμμή 4 κ.ο.κ.

 

Ευχαριστώ εκ' των προτέρων για τη βοήθεια.

 

Αν καταλαβα καλα θες να εχεις

Κωδικός-------Περιγραφή

001------------Ειδος1

001----------ΧαρακτηριστικόΕιδους1

002------------Είδος2

002----------ΧαρακτηριστικόΕιδους2

003------------Είδος3

003----------ΧαρακτηριστικόΕιδους3

 

για να το κανεις αυτο πχ στο κελι Α2 πηγαινεις στο κελι Α1 και βαζεις τον δεικτη του ποντικιου στην κατω δεξια γωνια του κελιου Α1 ωστε να εμφανιστει ο σταυρος.επειτα κανεις αριστερο κλικ και το σερνεις μεχρι το αποκατω κουτακι.

 

τωρα για τη συγχωνευση που λες μπορεις να γραψεις την 3 στην 2 και απλα στην στηλη Β να μεγαλωσεις το διαστημα βαζοντας το δεικτη του ποντικιου στην αριστερη γραμμη του κουτιου Β μεχρι να εμφανιστει ο σταυρος και τραβοντας το μεχρι εκει που θες

[Highlander]

Ευχαριστώ για τις απαντήσεις, αλλά μάλλον δεν ήμουν κατανοητός.

Γνωρίζω τις διαδικασίες, αλλά θέλω με κάποια Macro ή κάποιο VBA script να το κάνω γιατί μιλάμε για πάνω από 1000 εγγραφές.

[bobidis]

Ευχαριστώ για τις απαντήσεις, αλλά μάλλον δεν ήμουν κατανοητός.

Γνωρίζω τις διαδικασίες, αλλά θέλω με κάποια Macro ή κάποιο VBA script να το κάνω γιατί μιλάμε για πάνω από 1000 εγγραφές.

Άρα θες μαζικές μεταφορές. Γίνεται; Ας μας πει κάποιος να μάθουμε και 'μεις.

[MastroGiannis]

Δοκίμασε τις παρακάτω διαδικασίες φίλε Highlander και κράτα όποια σου κάνει.

 

>Sub FillFirstBlank()
   'Συμπληρώνει το πρώτο κελί κάθε κενής περιοχής της στήλης Α
   'με τα περιεχόμενα του αμέσως προηγούμενου κελιού.
   Dim rngArea As Range
   For Each rngArea In Range("A:A").SpecialCells(xlCellTypeBlanks).Areas
       rngArea(1) = rngArea(1).Offset(-1)
   Next rngArea
End Sub

Sub FillAllBlanks()
  'Συμπληρώνει όλα τα κελιά κάθε κενής περιοχής της στήλης Α
  'με τα περιεχόμενα του κελιού που προηγείται της περιοχής.
   Dim rngArea As Range
   For Each rngArea In Range("A:A").SpecialCells(xlCellTypeBlanks).Areas
       rngArea.Cells = rngArea(1).Offset(-1)
   Next rngArea
End Sub

 

Ελπίζω να γνωρίζεις πως να τις εισάγεις στο αρχείο σου και πως να τις εκτελέσεις.

[Highlander]

Ευχαριστώ.

Το έκανα λίγο manual, πήρα δλδ copy/paste την επόμενη γραμμή και την έκανα paste στην επάνω.

Ευχαριστώ για τον κόπο σου, θα το έχω υπόψιν.