Spostamento dati nella prima colonna

Hai un problema con Excel?

Nuova discussione

Spostamento dati nella prima colonna
di paolo (utente non iscritto) data: 18/04/2014 18:43:08
Ciao a tutti.

Sto lavorando con fogli excel molto grandi.
Ho un foglio che va da A1 a IV1711

Avrei necessita di prendere i dati presenti in tutte le celle e spostarli nella colonna A

Come posso fare senza dover fare centinaia di volte copia incolla?

Grazie

PAolo
di Mister_x (utente non iscritto) data: 18/04/2014 20:35:47
ciao

se ho ben capito tu vorresti prendere la colonna B e copiarla in A la C in B , D in C ecc. ecc.
se e' questo che intendi basta fare una sola operazione
seleziona tutta la colonna A , questo vuol dire fare col mause un clik sulla A in alto ,poi tasto destro del mause si apre una finesta, fai elimina e il gioco e' fatto

ciao
di paolo (utente non iscritto) data: 19/04/2014 10:56:23
No,
avrei bisogni di prendere i dati nella colonna B e metterli nella A sotto a quelli già esistenti, poi prendere quelli nella C e metterli nella a sotto a quelli della B, poi prendere quelli della D e metterli nella A sotto quelli della C.

Quindi prendere tutti i dati presenti nelle tabella e metterli incolonnati nella colonna A

Grazie
di mabolsie (utente non iscritto) data: 19/04/2014 11:43:13
Ciao Paolo
ammesso che ti bastino le celle nella colonna A per contenere tutti i dati, per spostare i dati la colonna di destinazione non deve essere inclusa nell'intervallo di origine.
Ciao Max

di Mister_x (utente non iscritto) data: 19/04/2014 13:52:20
ciao

da mettere nel foglio della tabella

ciao

Sub copiaB_IV()
Dim B_IV As Range, biv As Variant
Dim Nrighe As Long
Dim i As Long
Range("A1712:A1000000").ClearContents
Nrighe = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To 256
Set B_IV = Range(Cells(1, i), Cells(Cells(Rows.Count, i).End(xlUp).Row, i))
 For Each biv In B_IV
  Nrighe = Nrighe + 1
  Cells(Nrighe, 1) = biv
 Next
Next i
Set B_IV = Nothing
End Sub

di Zer0Kelvin data: 19/04/2014 13:53:58
Ciao.
Supponendo ceh i tuoi dati si trovano in un'area rettangolare contigua e che il foglio non contenga altri dati oltre a quelli che devi spostare, puoi usare questa macro:

Option Explicit

Public Sub SpostaInA()
Dim c As Long, r As Long, Altezza As Long
   With Sheets("Foglio1").UsedRange '<===se necessario cambia il nome del foglio
      Altezza = .Rows.Count
      r = Altezza + 1
      For c = 2 To .Columns.Count
         .Columns(c).Copy .Cells(r, 1)
         .Columns(c).Clear
         r = r + Altezza
      Next c
   End With
End Sub

di Zer0Kelvin data: 19/04/2014 13:57:09
PS: Naturalmente le prove falle su UNA COPIA del file!!!

Vuoi Approfondire?