Konwertowanie określonego zakresu kolumn z tekstu na format liczbowy za pomocą VBA

Question

Co tydzień otrzymuję arkusz kalkulacyjny, a z różnych przyczyn pozostających poza moją kontrolą niektóre kolumny wychodzą jako tekst zapisany jako liczby, a nie liczby. Muszę przekonwertować je na liczby dla rzeczy, które zdarzają się z nimi później w kodzie.

jestem przekształcając je do liczb w tej chwili w ten sposób:

Dim rng As Range 

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

Czy istnieje lepszy (czyli bardziej wydajne) sposób to zrobić?

Grałem z NumberFormat i wydawało się, że nie działa.

Z góry dziękuję (i przepraszam, jeśli opuściłem rozwiązanie już tutaj - przeszukałem go i nie znalazłem).

Answer 1

Excel:

• Kopiowanie pusta komórka
• Wybierz zakres, w którym trzeba zmienić format
• Wybierz PasteSpecial i pod Operation wybrać Add

---

VBA

(zmiana Sheet1 związku z tym, przy założeniu, że A100000 jest pusta):

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

Jeśli umieścić wyżej w przypadku Workbook_Open będzie wykonać konwersję automatycznie przy każdym otwarciu skoroszytu.

Przy użyciu tej metody formuły są zachowywane.

---

Mam nadzieję, że to pomoże!

Answer 2

Od tej strony http://www.access-programmers.co.uk/forums/showthread.php?t=219316 Mam ten pomysł:

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

i działa idealnie!

Answer 3

Jest to łatwiejsze:

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