Добавление апострофа перед определенным числом

Question

Я пытаюсь добавить апостроф в начале чисел в столбце, только если число в столбце начинается с «0». В столбце содержится множество разных чисел, однако для чисел, которые не начинаются с нуля, я не хочу добавлять апостроф.

Sub RANGE
    For Each Cell in Range ("E:E")

    If cell.value= starts with a 0 then Cell.value = " ' "

Sub Addapostrophe()
    For Each cell In Selection
        cell.Value = "'" & cell.Value
    Next cell
End Sub

Answer 1

Это будет работать ...

Sub Addapostrophe()

    Dim rng As Range
    Set rng = Range("E:E")

    For Each cell In rng
        If Left(cell.Value, 1) = 0 Then
            cell.Value = "'" & cell.Value
        End If
    Next

End Sub