【エクセルVBA】9.07E+09　などとでる値のエクセルに0を追加し、文字列としたい。

以下のコードを標準モジュールに貼り付けて、adjust_telno サブルーチンを実行してください。

Function is_blank_cell(c)
    is_blank_cell = IsEmpty(c) Or c.Value = ""
End Function

Sub adjust_telno()
    ' 「電話」列を探す
    telno_col = -1
    last_col = Cells(1, Columns.Count).End(xlToLeft).Column
    For c = 1 To last_col
        If Cells(1, c).Value = "電話" Then
            telno_col = c
            Exit For
        End If
    Next

    If telno_col = -1 Then
        MsgBox "「電話」列がありません"
        Exit Sub
    End If

    ' 書式を文字列にする
    Cells(1, telno_col).EntireColumn.NumberFormatLocal = "@"

    ' 一応、最後に値が入っている行を
    last_row = Cells(Rows.Count, telno_col).End(xlUp).Row

    ' 電話番号を処理
    For r = 2 To last_row
        If Not is_blank_cell(Cells(r, telno_col)) Then
            v = Cells(r, telno_col).Value
            If v = 0 Then
                Cells(r, telno_col).Value = "00-0000-0000"
            ElseIf Left(v, 1) <> "0" Then
                Cells(r, telno_col).Value = "0" & v
            End If
        Else
            ' 空白セルがふたつ続いたら処理を止める
            If is_blank_cell(Cells(r + 1, telno_col)) Then
                Exit For
            End If
        End If
    Next
    
End Sub