Excel Function or VBA Code to remove leading ZERO ?

[Maverick27]

Attn Excel Gurus.

Anyone care to share Excel Function or VBA Code to remove all leading 'ZERO' (0's) from Col. cell(s) of data ?

See example below:

https://ibb.co/feGSAb

Col D: Input Data
Col E: Output Data

Thanks in Advance

 

[Maverick27]

Image link below:

https://ibb.co/feGSAb

 

[steve the fish]

Heres some VBA:

Dim sh As Worksheet, lr As Long

Set sh = Sheets("Sheet1")
lr = sh.Range("D" & Rows.Count).End(xlUp).Row

With sh.Range("E1:E" & lr)
    .NumberFormat = "General"
    .Value = sh.Range("D1:D" & lr).Value
End With

Or if you want to do it cell by cell you can simply add zero to the cell in D1. For example in E1:

=D1+0