Excel - 在字符串中查找第一个不为 0 的字符

Question

My cell A1 will have a string in it such as 02020. I need a formula that will check this string and return the value of the first character that is not equal to 0. So in the above example it should return 2.

Thanks for any help.

Answer 1

The only important issue is that a leading zero may be the first character in a string of characters, or it may simply be the result of formatting a numeric value with leading zeros. The solution should cover both cases.

Consider this User Defined Function:

Public Function DropTheZeros(r As Range) As Variant
    Dim s As String, i As Long

    s = r(1).Text
    For i = 1 To Len(s)
        DropTheZeros = Mid(s, i, 1)
        If DropTheZeros <> "0" Then Exit Function
    Next i
    DropTheZeros = ""
End Function

This should work even if the leading zeros are an artifice of formatting.

Or even:

Public Function DropTheZeros2(r As Range) As Variant
    DropTheZeros2 = Left(Replace(r(1).Text, "0", ""), 1)
End Function

Or even without VBA:

=LEFT(SUBSTITUTE(TEXT(A1,"@"),"0",""),1)