Conversione di un certo intervallo di colonne dal testo al formato numerico con VBA

Question

Viene inviato un foglio di calcolo ogni settimana, e per vari motivi fuori dal mio controllo alcune colonne escono come testo memorizzato come numeri anziché come numeri. Ho bisogno di convertirli in numeri per cose che succedono con loro più avanti nel codice.

li sto convertendo ai numeri, al momento in questo modo:

Dim rng As Range 

For Each rng In Range("A:D").Columns 
    rng.TextToColumns 
Next rng 

Esiste un migliore (vale a dire più efficiente) modo di fare questo?

Ho giocato con NumberFormat e non sembra funzionare.

Grazie in anticipo (e mi scuso se ho perso una soluzione già qui - ho fatto una ricerca e non l'ho trovato).

Answer 1

Excel:

• copia una cella vuota
• Selezionare l'intervallo in cui è necessario cambiare il formato
• Select PasteSpecial, e sotto Operation selezionare Add

---

VBA

(cambiate Sheet1 Di conseguenza, assumendo che A100000 è vuota):

Sheet1.Range("A100000").Copy 
Sheet1.UsedRange.PasteSpecial , xlPasteSpecialOperationAdd 

Se si posiziona il sopra in caso Workbook_Open, eseguirà la conversione automaticamente ogni volta che si apre la cartella di lavoro.

Con questo metodo, le formule vengono mantenute.

---

Spero che questo aiuti!

Answer 2

Da questo sito http://www.access-programmers.co.uk/forums/showthread.php?t=219316 Ho avuto questa idea:

Range("D1:D400") = Range("D1:D400").Value 

e funziona perfettamente!

Answer 3

questo è più facile:

With Selection 
    .NumberFormat = "0" 
    .Value = .Value 
End With