2016-04-13 9 views
0

Excelで最初のゼロを次のコードから削除したいのですが、ゼロは同じパターンを持たないという問題があります。これを達成するために私は何ができますか?前Excelの最初のゼロを削除する

コード: 450D 320A 107B 23B

任意のアイデア: 0000450D 00320A 0000107B 023B

私は、コードはこのようになりたいですか? ありがとう!

答えて

1

あなたはVBAを使用して満足している場合は、新しいモジュールにして、シートに以下のコードを挿入するには、単に文字を循環してから先行ゼロを除去します=ReplaceZeros(A1)

Public Function ReplaceZeros(varVal As String) 

varLeading = True 

For i = 1 To Len(varVal) 

    If Mid(varVal, i, 1) = "0" Then 

     If varLeading = False Then 

      varOutput = varOutput & Mid(varVal, i, 1) 

     End If 

    ElseIf Mid(varVal, i, 1) = " " Then 

     varLeading = True 
     varOutput = varOutput & Mid(varVal, i, 1) 

    Else 

     varLeading = False 
     varOutput = varOutput & Mid(varVal, i, 1) 

    End If 

Next 

ReplaceZeros = varOutput 

End Function 

このような関数を使用します文字列の先頭、または以下のスペース

2

はこれを試してみてください:

=MID(A1,FIND(LEFT(SUBSTITUTE(A1,0,"")),A1),255) 
関連する問題