VBA, das Ende der Zeichenfolge Parse, fügen benutzerdefinierte Zeichenfolge beenden

Question

Sagen, ich habe einen Weg: Stapel/Over/Flow.Ok

Ich möchte diese ausgewählte Zelle Betrag nach unten X Mal kopieren, sondern auch auf die parsen "." oder was auch immer der Charakter ist. und füge meine eigene Anpassung an das Ende hinzu. So Ergebnis enden:

Stapel/Over/Fluss addonwhateveriwant.csv

Ich habe versucht, die Makro-Recorder, aber es scheint spezifisch für die Zelle zu sein, und was ich will, um die Nachricht gestalten.

Answer 1

Angenommen, es gibt nur ein "." (oder was auch immer Ihr Charakter sein mag) in Ihrer Quellzeichenfolge, instr() und ein Array könnte die einfachste Lösung sein. Etwas in diese Richtung:

myarray(0)="-addonwhateveriwant.csv" 
myarray(1)="-addonwhateveryouwant.csv" 
myarray(2)="-addonwhatevereverybodywants.csv" 
myarray(...)=... 
parsedString=left("Stack/Over/Flow.Ok",instr("Stack/Over/Flow.Ok",".") 
For i=lbound(myarray) to ubound(myarray) 
    activesheet.cells(i,1)=parsedString & myarray(i) 
next i 

und extra cool sein, könnten Sie ersetzen "Stack/Over/Flow.Ok" mit so etwas wie Bereich ("a1") Wert oder "-addonwhatevereverybodywants.csv" mit einer Reichweite. ("c3"). Wert. Auf diese Weise kann Ihr Code auch das nächste Mal funktionieren, wenn Sie diese Aufgabe ausführen müssen.

Der Makrorekorder gibt Ihnen nur gerade genug Informationen, um Ihnen ein Schlüsselwort zu geben, nach dem Sie im Internet suchen können. Viel Glück