[excel] E' possibile sostituire 50 valori in corrispettivi valori messi in tot righe?

[freetom]

Cerco di spiegarmi meglio...

ho un file con 30.000 righe
costituite da numeri (da 1 a 50)
intervallati da virgola...

importandoli in excel vorrei poter sostituire in automatico
a tutti questi 50 numeri sparsi nelle 30.000 righe qualsiasi corrispettivo valore
immesso in altrettanti 50 campi... (celle)

E' possibile? Sei si come?

Ovviamente... vorrei evitare di dover copiare i relativi valori delle 50 celle modificabili
nei corrispettivi valori nelle 30.000 righe

[nicola75ss]

Ancora non hai sbancato il superenalotto?
Come punto di partenza cos'hai, un file csv?

Se è così importa i valori usando una cella per ogni singolo valore. In questo modo è facile fare la sostituzione. Supponiamo che importi i dati nel foglio 1.

Nel foglio 2 metterai incolonnati i valori da cercare e nella colonna adiacente i valori con cui andranno sostituiti.

Con una semplice macro del genere lanciata dal foglio su cui devi agire risolvi.

Sub sostituisci_tutto()
    For Each cella In Sheets(2).Range("i4:i7")
        Cells.Replace What:=cella.Value, Replacement:=cella.Offset(0, 1), LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next cella
End Sub

Nel mio esempio il range i4:i7 del foglio 2 contiene i valori da cercare mentre i valori da sostituire sono in j4:j7 (cui ti riferirai tramite offset(0,1) ).

[freetom]

Grazie!

Per sdebitarmi provo a darti una stella che mi aspetterei in base ai calcoli... entro 3 colpi max
30 o 87

good luck e grazie ancora

[freetom]

Originariamente inviato da nicola75ss
Ancora non hai sbancato il superenalotto?
Come punto di partenza cos'hai, un file csv?

Se è così importa i valori usando una cella per ogni singolo valore. In questo modo è facile fare la sostituzione. Supponiamo che importi i dati nel foglio 1.

Nel foglio 2 metterai incolonnati i valori da cercare e nella colonna adiacente i valori con cui andranno sostituiti.

Con una semplice macro del genere lanciata dal foglio su cui devi agire risolvi.

Sub sostituisci_tutto()
    For Each cella In Sheets(2).Range("i4:i7")
        Cells.Replace What:=cella.Value, Replacement:=cella.Offset(0, 1), LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next cella
End Sub

Nel mio esempio il range i4:i7 del foglio 2 contiene i valori da cercare mentre i valori da sostituire sono in j4:j7 (cui ti riferirai tramite offset(0,1) ).

Secondo te è possibile trasformarlo affinche funzioni in CALC di OPENOFFICE?
Grazie infinite

[nicola75ss]

Aggiungi prima della sub questa riga

option vbasupport 1

e incrocia le dita sperando che la digerisca.

[freetom]

Originariamente inviato da nicola75ss
Aggiungi prima della sub questa riga

option vbasupport 1

e incrocia le dita sperando che la digerisca.

Da dove si entra per vedere e all'occorrenza modificare il codice macro in openoffice 3.0?

RIGRAZIE!

[nicola75ss]

strumenti -> macro -> organizza macro -> openoffice.org basic
Da lì gestisci tutto.

[freetom]

Originariamente inviato da nicola75ss
strumenti -> macro -> organizza macro -> openoffice.org basic
Da lì gestisci tutto.

fatto...

ma...

purtroppo...

non l'ha digerito...

[nicola75ss]

Provata giusto per scrupolo e pienamente compatibile con l'aggiunta della riga che ti ho consigliato. Ricontrolla bene ciò che hai fatto.

[freetom]

Ti sei segnato la stellina + probabile...?

GRAZIEEE