Domanda:
macro x excel?
Vincenzo i
2015-04-14 05:24:28 UTC
Come faccio a far copiare le celle compilate della colonna a1 del foglio1 nella colonna a1 del foglio2, eliminando quelle vuote?
Grazie
Tre risposte:
?
2015-04-19 23:30:13 UTC
In un modulo del VBA riporta la seguente routine:



Sub copia()

Dim ws1 As Worksheet, ws2 As Worksheet

Dim ur As Integer, i As Integer, r As Integer



Set ws1 = Sheets("Foglio1") 'Foglio con i dati

Set ws2 = Sheets("Foglio2") 'Foglio di destinazione



'individuo l'ultima cella occupata della colonna A (1) del foglio dati

ur = ws1.Cells(Rows.Count, 1).End(xlUp).Row



For i = 1 To ur

If ws1.Cells(i, "A") <> "" Then

r = r + 1

ws1.Cells(i, "A").Copy ws2.Cells(r, "A")

End If

Next

End Sub



Ci sono vari sistemi per copiare i dati, nel tuo caso ho cercato di rendere il codice abbastanza comprensibile: ovviamente dovrai nominare correttamente i due fogli come indicato nella routine
Vincenzo i
2015-04-14 07:25:39 UTC
Scusa così intendi con il tasto fine giù, ho provato ma niente....
?
2015-04-14 06:30:53 UTC
se hai Excel 2007 apri la scheda sviluppo (se non ce l'hai fai clic sul pulsante di office in alto a sinistra, su impostazioni di Excel e su impostazioni generali spunta la casella mostra scheda sviluppo nella barra multifunzione) e fai registra macro

(mettiamo ad esempio che nel foglio 1 nella colonna a io abbia in A1 a in A2 b A3 e A4 vuoti in A5 c e in A6 d) quindi selezioni A1 e premi schift fine e la freccia in giù(in questo modo la selezione va fino all'ultima cella piena) su questa selezione fai copia e la incolli nella cella a1 del foglio 2, poi selezioni la a1 sempre del foglio2 e premi fine giù (così va sempre all'ultima) e premi giù di nuovo (così va alla prima vuota) poi vai nel foglio 1 selezioni a1 premi fine giù e fine giù (per andare alla seconda serie dopo le celle vuote) adesso fai schift fine giù e incolli la selezione nel foglio 2 dove eri arrivato prima (nel mio esempio in a3) e poi fai interrompi registrazione


ⓘ
Questo contenuto è stato originariamente pubblicato su Y! Answers, un sito di domande e risposte chiuso nel 2021.
Loading...