Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per estrarre numeri da cella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro per estrarre numeri da cella

Postdi Statix » 16/10/21 21:33

Salve a tutti, come sempre ogni tanto capita qualche problemino,
ho un range("C9:C300") in ogni cella ci sono 20 numeri di lunghezza variabile
vorrei con una macro estrarre i 20 numeri di ogni cella nel range( "L9:AE300")
Codice: Seleziona tutto
 2 7 10 16 21 22 34 36 42 54 62 63 64 69 70 71 73 77 79 81
8 13 14 17 23 24 29 31 38 39 46 50 56 61 66 70 77 80 83 88
8 21 26 31 33 37 39 45 51 52 57 66 69 75 76 80 81 85 88 90
12 14 20 28 33 45 48 54 63 64 65 67 72 73 75 77 79 80 84 90


http://www.filedropper.com/test2_15
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Macro per estrarre numeri da cella

Postdi Anthony47 » 17/10/21 08:57

Te la cavi con una macro autoregistrata:
-avvia la registrazione
-seleziona C9
-estendi la selezione verso il basso
-avvia l'operazione Testo-in-Colonna
-scegli Delimitato /Spazio
-nello step 3 di 3 scegli Destinazione = L9
-Completa

A me ha registrato questo codice:
Codice: Seleziona tutto
Sub Macro2()
'
    Range("C9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("L9"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1)), TrailingMinusNumbers:=True
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17870
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per estrarre numeri da cella

Postdi Statix » 17/10/21 10:47

Ciao Anthony,
ho provato la macro, quando la eseguo ,esce questa finestra di convalida

Immagine

se premo ok va bene, se premo annulla mi da questo errore

Immagine


è possibile non visualizzare questa finestra per la convalida.
grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro per estrarre numeri da cella

Postdi Anthony47 » 17/10/21 11:22

Puoi azzerare l'area di destinazione prima di procedere; es
Codice: Seleziona tutto
Range("L:AE").ClearContents       'Pulisci l'area di output
    Range("C9").Select
    Range(Selection, Selection.End(xlDown)).Select
' etc etc


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17870
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per estrarre numeri da cella

Postdi Statix » 17/10/21 11:31

già fatto e uguale non cambia niente,
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro per estrarre numeri da cella

Postdi Anthony47 » 17/10/21 17:59

Alora Range("L:AE").Clear (invece che Range("L:AE").ClearContents)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17870
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per estrarre numeri da cella

Postdi Statix » 17/10/21 19:08

Ciao Anthony,
tutto ok, funziona
con Clear mi ha cancellato solo i bordi è colori delle celle
del range L:AE
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Macro per estrarre numeri da cella":


Chi c’è in linea

Visitano il forum: raimea e 33 ospiti