2016-03-31 20 views
-1

に終止符を追加私はパスを持っていると言う:スタック/オーバー/ Flow.OkVBA、文字列の最後を解析は、カスタム文字列

私は倍のX量ダウン、この選択したセルをコピーするだけでなく、に解析します'。'または文字が何であっても。私の独自のカスタマイズを最後に追加してください。だから、結果を終わらせる:

スタック/オーバー/フローaddonwhateveriwant.csv

私はマクロの記録を試みたが、細胞に特有と私はへのメッセージをカスタマイズしたいためであると思われます。

+1

あなたはVBAソリューションまたは数式をお探しですか?あなたは正確に何をしようとしていますか?すべてのセルで 'Stack/Over/Flow'を実行しますが、' .Ok'は違いますか? Stack =/Over/flow - ##& 'B1'にあるテキストはどれでも... – BruceWayne

+0

' Replace(pathHere、 ".Ok "、" addonwhateveriwant.csv ")' –

+0

@ブルースウェイン、はいブルース、それは私が考えなかった素晴らしい作品です。したがって、元のパスを解析する、=右/左? (A1、LEN(A1)、 - 3)を使用して.okを取り出し、&B1を使用してカスタムのものに置き換えます。 – Jonathan

答えて

1

"。"が1つしかないと仮定すると、ソース文字列にinstr()という文字列(またはあなたのキャラクターが何であれ)があり、配列が一番簡単な解決策かもしれません。これらの線に沿って何か:。

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 

、余分なクールに、あなたは範囲で値または「-addonwhatevereverybodywants.csv」範囲(「A1」)のようなもので、「スタック/オーバー/ Flow.Ok」を置き換えることができます( "c3")。値。そうすれば、次回にこの作業を実行しなければならないときにコードが機能するようになります。

マクロレコーダーは、インターネットを検索するためのキーワードを与えるだけの十分な情報を提供します。幸運