2017-02-22 9 views
0

Excelで検索置換機能とvbaコードを使用しています。私は "/ 15"のようなすべての文字列を ".15"で置き換えたいが、 "/ 15"の後ろに他の文字がない場合に限りたい。私の必要性のためのオペレータはありますか?オペレータの後に文字がない

たとえば、すべての "/ 15"を置き換えると、この文字列の後に他の文字が続く場合は、この文字列も置き換えられます。

10/15/15 - > 10.15.15

しかし、私が欲しいのは

10/15/15です - あなたが定期的に使用することができます> 10/15.15

乾杯

+0

あなたは、例えば、入力文字列を追加することができますしてください、またはXX/XX/XXを見て、完全な入力文字列のですか? –

答えて

0

表現、それについてのネット上のものの富。

VBAのようなものであれば、a2の本当の必要はなく、a1の最後を手に入れることができますが、地元のウィンドウの配列の違いを表示するだけです。

Function test(strInput As String) 

Dim a1() As String 
Dim a2() As String 

a1 = Split(strInput, "/") 
a2 = a1 

ReDim Preserve a2(UBound(a1) - 1) 

test = Join(a2, "/") & "." & a1(UBound(a1)) 

End Function 

か、それは私はあなたが文字列の途中で「/ 15」を置き換える避けるために、右このための関数を使うべきだと思う式

=SUBSTITUTE(A1,"/",".",(LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))))

+0

これは文字列の中央にもスラッシュを置き換えます。 – z32a7ul

0

を使用して行うことができます。 Excelの式

Public Function ReplaceRight(strInput As String) As String 
    If Right(strInput, 3) = "/15" Then 
     ReplaceRight = Left(strInput, Len(strInput) - 3) & ".15" 
    Else 
     ReplaceRight = strInput 
    End If 
End Function 

=IF(RIGHT(F215,3)="/15",LEFT(F215,LEN(F215)-3)&".15",F215) 
関連する問題