Excel VBA: Suchen und Löschen mehrerer Werte aus Strings in einer Spalte

Question

Hintergrund: Ich muss eine CSV-Datei meines Kontoauszugs für die Verwendung in einem Online-Finanzberichterstattungstool bereinigen.

Die Transaktionen sind in den folgenden Formaten (Spalten durch Kommas getrennt):

0901XX 892XXXXX, 24/12/2010, CARD PAYMENT TO MICKEY MOUSE29.90 GBP ON 22-12-2010, -29.9 

Das Problem, das ich habe ist, dass die Informationen in der thrid Spalte wegen der Einbeziehung des Transaktionsbetrages alle einzigartig sind und Datum - "ZAHLUNG DER KARTE AN MICKEY MAUS * 29,90 GBP ON 22-12-2010 *". Folglich muss ich alle über 200 Transaktionen einzeln kategorisieren, was meinem psychischen Wohlbefinden nicht förderlich ist.

Die beste Lösung, die ich mir vorstellen kann, besteht darin, alle Zahlen aus dieser Spalte zu entfernen und alle redundanten Begriffe ("GBP ON", ".", "-") mit einem Nullwert zu finden und zu ersetzen. Ich bin mir nicht sicher, wie ich das zusammenstellen soll.

Jede Hilfe würde sehr geschätzt werden.

Answer 1

Die folgenden können Ihnen helfen. Ich mache die folgenden Annahmen:

1. Sie Ihre Online-Bankdaten in einem CSV-Format bekommen zunächst
2. Ihre dritte Spalte ist immer die Form TextDescription+Amount+Currency+Date
3. In der CSV-Datei, die dritte Spalte Spalte C in der Arbeitsmappe wird

folgenden Schritte aus:

1. öffnen CSV-Datei
2. öffnen VBE-Editor von ALT + F11
3. Select Insert drücken> Modul aus Symbolleiste

4. In Modul fügen Sie den folgenden Code, Platz Cursor irgendwo im Code, und dann drücken Sie `F5'

   Sub CleanTransaction() 
   Dim rng As Range, cl As Range 
   Dim lastRow As Long, iChar As Long 
   lastRow = Range("C1").End(xlDown).Row 
   Set rng = Range("C1:C" & lastRow) 
   
   
   For Each cl In rng 
       For iChar = 1 To Len(cl) 
        If IsNumeric((VBA.Mid$(cl, iChar, 1))) Then 
         cl = VBA.Trim$(VBA.Left$(cl, iChar - 1)) 
        End If 
       Next iChar 
   Next cl  
   End Sub 
   

Dies sollte für jedes Element in der Spalte C folgendes tun:

CARD PAYMENT TO MICKEY MOUSE29.90 GBP ON 22-12-2010 

... wird ...

CARD PAYMENT TO MICKEY MOUSE 

Beachten Sie, dass der Code funktioniert, indem das erste Vorkommen einer Zahl in der Beschreibung suchen und danach alles Strippen. Dies setzt voraus, dass das erste Auftreten einer Nummer immer den Preis bezeichnet. Wenn der Zahlungsempfänger eine Nummer im Namen hätte, würde der Code z.B. ZAHLUNG DER KARTE AN PHONES4U