VBA

Question

とExcelで特定の文字を置き換え、私はVBAで次のコードを持っている： Vba code

私は私の行でこれらの値を検索し、交換したいと思います。 たとえば、最初の2文字の場合は36から+36に置き換えますが、それは機能していないだけです。途中の文字が置き換えられます。

Answer 1

よく、最初のあなたは06〜36と36 36に変更、私はあなたが何をしているか知っている願っています。さらに、T列にテキスト値があり、最初の2文字が36の場合にのみ36から36に変更したい場合は、次のようにしてください：

If Left(Range("T" & i), 2) = "36" Then Range("T" & i) = "+36" & Right(Range("T" & i), Len(Range("T" & i)) - 2) 

Answer 2

これは、Replace機能だけでは実行できません。 docsから

：

は交換してください（文字列1が、見つける、交換、[開始、[カウント、[比較]]]）多くの置換がどうあるべきか

パラメータcount指定し、どのように文字列を置き換えて効果的にする必要があります。

代わりに、このようなもので行く：

If InStr(Range("T" & i), "36") = 1 Then 
    Range("T" & 1) = Replace(Range("T" & 1), "36", "+36") 
End If