Konvertieren eines bestimmten Bereichs von Spalten von Text in Zahlenformat mit VBA

Ich bekomme wöchentlich eine Tabelle, und aus verschiedenen Gründen außerhalb meiner Kontrolle einige Spalten kommen als Text als Zahlen statt als Zahlen gespeichert. Ich muss sie für Zahlen, die später im Code passieren, in Zahlen umwandeln.Konvertieren eines bestimmten Bereichs von Spalten von Text in Zahlenformat mit VBA

ich sich Zahlen im Moment bin Umwandlung von diesem zu tun:

Dim rng As Range 

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

Gibt es eine bessere (das heißt effiziente) Art und Weise, dies zu tun?

Ich spielte mit NumberFormat herum und es schien nicht zu funktionieren.

Vielen Dank im Voraus (und Entschuldigung, wenn ich eine Lösung schon hier verpasst habe - ich habe eine Suche und habe es nicht gefunden).

Quelle

2013-08-22 EndlessLoop

ich so tun würde: rng.Value = rng.Value. Es sollte den Text in Zahlen konvertieren. Nur ein kleiner Fehler, wenn Sie irgendeine Formel in dem Bereich haben, würde es die Formel auch in einfachen Wert konvertieren. Es gibt jedoch eine einfache Problemumgehung für dieses Problem. Aber das sollte es tun. – Vikas

Beachten Sie, dass die @Vikas-Methode nicht mit allen Gebietsschemas funktioniert, abhängig von ihrem jeweiligen Dezimaltrennzeichen. Wenn Sie beispielsweise im deutschen Gebietsschema den Wert ".Value = .Value" auf einen Bereich anwenden, werden nur die Ganzzahlen in Zahlen konvertiert. Das ist ein Bereich mit dem Textinhalt: 1 | 2 | 0,5 wird * 1 * | * 2 * | ** 0,5 ** wobei die kursiven Teile in Zahlen umgewandelt werden, der fett gedruckte Teil jedoch immer noch nur aus Text besteht. –

Excel:

Kopieren eine leere Zelle
Wählen Sie den Bereich, in dem Sie benötigen das Format
Select PasteSpecial, zu ändern und unter Operation wählen Add

VBA

(Sheet1 Dementsprechend ändern, vorausgesetzt, dass A100000 leer ist):

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

Wenn Sie die oben in das Workbook_Open Ereignis platzieren, wird es die Umwandlung automatisch jedes Mal, wenn Sie die Arbeitsmappe öffnen, auszuführen.

Mit dieser Methode bleiben Formeln erhalten.

Ich hoffe, dass hilft!

Quelle

2013-08-22 09:37:28 Ioannis

Vikas und Loynis: großartige Techniken für diese Situation - danke. Ich habe beide Vorschläge getestet und sie funktionieren sehr gut für meine Bedürfnisse. – EndlessLoop

Der große Vorteil dieser Technik ist, dass die leeren Zellen leer bleiben. –

Von dieser Website http://www.access-programmers.co.uk/forums/showthread.php?t=219316 Ich habe diese Idee:

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

Und es funktioniert perfekt!

Quelle

2014-04-04 07:53:32 Helfenstein

Es ist dasselbe wie [@Vikas] (http://stackoverflow.com/users/723914/vikas) Vorschlag in den Kommentaren unter der Frage: 'rng.Value = rng.Value'. Dies funktioniert jedoch nicht für mich, während 'TextToColumns' und' PasteSpecial' funktionieren. – ZygD

Das ist einfacher:

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

Quelle

2015-04-16 09:26:00 DeepikaShinde

Konvertieren eines bestimmten Bereichs von Spalten von Text in Zahlenformat mit VBA

Antwort

Verwandte Themen