' выделите нужный диапазон ячеек и запустите макрос
Sub NumFromText()
Dim icell As Range
Selection.NumberFormat = "General"
 For Each icell In Selection
  icell.Formula = icell.Formula
 Next icell
End Sub

' выделите нужный диапазон ячеек и запустите макрос
Sub NumFromText()
Dim icell As Range
Selection.NumberFormat = "General"
 For Each icell In Selection
  icell.Formula = icell.Formula
 Next icell
End Sub

Sub NumFromText()
Dim icell As Range
Range("A1:С5").NumberFormat = "General"
 For Each icell In Range("A1:С5")
  icell.Formula = icell.Formula
 Next icell
End Sub

Function LastCell(ws As Worksheet) As Range
  Dim LastRow&, LastCol%

  On Error Resume Next
  With ws
  ' Find the last real row
    LastRow& = .Cells.Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByRows).Row
  ' Find the last real column
    LastCol% = .Cells.Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByColumns).Column
  End With

  Set LastCell = ws.Cells(LastRow&, LastCol%)
   
End Function

Sub NumFromText()
Dim icell As Range, LCell As Range, sh As Worksheet
Set sh = ActiveSheet
Set LCell = LastCell(sh)
Range("A1", LCell).NumberFormat = "General"
 For Each icell In Range("A1", LCell)
  icell.Formula = icell.Formula
 Next icell
End Sub

Sub NumFromText()
Dim icell As Range, LCell As Range, sh As Worksheet, letCol as string
Set sh = ActiveSheet
' буква столбца в котором искать последнюю строку
letCol = "A"
Set LCell = sh.Range(letCol & rows.count).Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByRows)
Range("A1", LCell).NumberFormat = "General"
 For Each icell In Range("A1", LCell)
  icell.Formula = icell.Formula
 Next icell
End Sub