Excel'de ilk sıfırları sil

Question

Excel'de aşağıdaki kodlardan ilk sıfırları kaldırmak istiyorum, sorun sıfırların aynı desene sahip olmamasıdır. Bunu başarmak için ne yapabilirim?

kodları önce: 0000450D 00320A 0000107B 023B

Ben kodları bu gibi olmak istiyorum: 450D 320A 107B 23B

Herhangi bir fikir? Teşekkürler!

Answer 1

VBA kullanmak memnunsanız, yeni bir modüle ve sayfaya aşağıdaki kodu eklemek yeterlidir karakterler aracılığıyla döngüsü ve önde gelen sıfır kaldıracaktır =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 

Bu gibi işlevini kullanın dizesinin başlangıç ​​veya aşağıdaki bir boşluk

Answer 2

bu deneyin:

=MID(A1,FIND(LEFT(SUBSTITUTE(A1,0,"")),A1),255)