Использование функции @SiddharthRout ... First;Поместите Function
как модуль в вашу рабочую книгу.На вкладке Разработчики выберите Insert_Module
, Скопируйте и вставьте функцию.Во-вторых,Сохраните приведенную ниже подпрограмму в окне Project в папке ThisWorkbook
...
Sub ShowFormulValues()
Dim lRow As Long
lRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Range("B1:B" & lRow).Formula = "=ConvertToValues(A1)"
End Sub
Run ShowFormulValues
, и формула Сида предоставит нужную вам информацию.