Verwenden VBA zum Einfügen von Zelle, wenn bestimmte Text/Zeichen

-3

Ich habe ein Blatt mit 1500 Zeilen und Spalten von A bis EZ, jede Zelle enthält die Daten sind sehr unterschiedlich.Verwenden VBA zum Einfügen von Zelle, wenn bestimmte Text/Zeichen

Ich möchte VBA verwenden, um jede Zelle zu finden, die das Zeichen "/" hat und was, wenn gefunden "/" wird den Buchstaben "cm:" vor dem Inhalt der Zelle hinzufügen.

Beispiel:
Zellinhalt "Zigaretten/Marlboro" bis "cm: Zigaretten/Marlboro" oder
Zellinhalt "oral b/Zahnpasta/Zahnbürste" wird "cm: oral b/Zahnpasta/Zahnbürste"

Jede Hilfe wird sehr geschätzt
Vielen Dank im Voraus

Quelle

2017-02-12 senget

Willkommen bei Stackoverflow. Bitte beachten Sie, dass dies kein kostenloser Code-Schreibservice ist. Dennoch sind wir bestrebt, anderen Programmierern (und Aspiranten) dabei zu helfen, ihren eigenen Code zu schreiben. Bitte lesen Sie die Hilfethemen zu [Wie stelle ich eine gute Frage] (http://stackoverflow.com/help/how-to-ask). Sie können auch [die Tour] (http://stackoverflow.com/tour) nehmen und dabei ein Abzeichen erwerben. Danach aktualisieren Sie bitte Ihre Frage mit dem VBA-Code, den Sie bisher geschrieben haben, um die Aufgabe (n) zu erfüllen, die Sie erreichen möchten. – Ralph

Wie wäre:

Sub marine() 
    Dim r As Range 
    For Each r In Range("A1:EZ1500") 
     If InStr(1, r.Value, "/") > 0 Then 
      r.Value = "cm:" & r.Value 
     End If 
    Next r 
End Sub

Quelle

2017-02-12 18:48:05

Ich brauchte eine Weile, um herauszufinden, warum das Unterprogramm "Marine" genannt wurde, aber die Antwort kam schließlich aus den Tiefen meines Unterbewusstseins. – YowE3K

danke Sir, der Code ist gut gelaufen. Entschuldigung, aber meine Frage ist weniger vollständig, aber wenn die Zelle in Übereinstimmung ist (hatte cm) ignoriert werden, wenn es cm hat – senget

Verwenden VBA zum Einfügen von Zelle, wenn bestimmte Text/Zeichen

Antwort

Verwandte Themen