数字の文字列の先頭にゼロを削除するVBA

Question

数字の列があり、数値がゼロで始まる場合は列の各セルから先行ゼロを削除する必要があります。

Answer 1

てみてください、

with worksheets("Sheet1") 
    with .columns(1) 
     .numberformat = "General" 
     .texttocolumns destination:=.cells(1), _ 
         datatype:=xlFixedWidth, fieldinfo:=Array(0, 1) 
    end with 
end with 

Answer 2

番号に変換すると、あなたは、このUDFが機能するための実行可能な解決策ではない場合：

Function StripLeadingZeros(MyString As String) 
Dim X As Long 
For X = 1 To Len(MyString) 
    If Left(MyString, 1) = "0" Then 
     MyString = Right(MyString, Len(MyString) - 1) 
    Else 
     Exit For 
    End If 
Next 
StripLeadingZeros = MyString 
End Function 

Answer 3

私はあなたを介して反復処理する方法を見つけ出すことができると確信してい各セルでは、以下のコード例でそのことを実証するつもりはありません。これはトリックを行います。 A4を処理する必要がある各セルに置き換えます。

Dim My_Number As String 
Dim i As Integer 
My_Number = Range("A4") 
For i = 1 To Len(My_Number) - 1 
    If InStr(1, My_Number, "0") = 1 Then 
     My_Number = Right(My_Number, Len(My_Number) - 1) 
    Else 
     Range("A4") = My_Number 
     Exit For 
    End If 
Next 

Instrは、文字列の最初の位置でゼロを探しています。もし見つかった場合、ゼロを見つけると、次の行は最初の文字列以外のすべての文字列（ゼロ）をセルに書き込みます。