Zeilen analysieren und ein Delimiter oder Token bedingt löschen

Question

mein Hintergrund ist in C/C++ ... Ich bin immer noch ziemlich neu in VBA, also bitte verzeih mir. Ich ziehe Breitenangaben in eine Excel-Tabelle aus einer Datenbank, aber ich bekomme eine unerwünschte Dezimalzahl. Unten ist ein Fragment, das ich aus der Tabelle kopiert habe.

Beispiel ungültiger Daten (Einfügen eine Dezimalzahl nach der Minute-Wert, ich will nicht):

• 38'5.'48.189
• 38'5.'48.023
• 38' 5.'48.023
• 38'5.'48.023

Beispiel einige gültige Daten:

• 38'10'51.881
• 38'10'51.881
• 38'10'51.881
• 38'10'52.000
• 38'10'52.000
• 38'10'52.000

Wie kann ich Zeile für Zeile durchgehen und alle löschen, die ich nicht will? Beachten Sie, dass ich die tatsächlichen Dezimalstellen der Sekundenwerte beibehalten möchte. Diese Daten werden in Spalte K meiner Tabelle gespeichert.

Edit: Ich weiß, dass ich in eine .csv konvertieren kann und ich weiß, wie man ein Programm in C++ schreibt, das dies tun wird, aber ein VBA-Skript wäre der Einfachheit halber großartig. Vielen Dank!

Answer 1

Treffen Sie Ihre Wahl :)

ich, dass die Daten in Spalte gehe davon aus A

Paste diese in Zelle B1

Mit einer Excel-Formel ist und es abschreiben.

=REPLACE(A9,FIND(".'",A9,1),2,"'") 

VBA

ersetzen Sheet1 mit dem entsprechenden Blatt.

Sheets("Sheet1").Replace What:=".'", Replacement:="'", LookAt:=xlPart, _ 
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

HTH

Sid