Массово преобразовать в числа весь лист.

[Евгений Таб]

Добрый день!

Прошу помощи в поиске макроса, который при работе все ошибки
(ячейки с зеленой отметкой слева сверху), массово преобразовывались в числа. Интересует весь лист(все данные).

Я считаю есть более продуктивный метод чем умножать все ячейки с ошибками на единицу для того чтобы потом успешно "CBЭПЭЭРИТЬ"

Спасибо!

[Евгений Таб]

PS: Про методы тескт по слолбцам и т д. знаком. Тут нужен исключительно код который нужно запускать ручками.

[SAS888]

Попробуйте так:

Sub qq()
    Dim arr()
    With ActiveSheet.UsedRange
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub

[Евгений Таб]

Сообщение от SAS888

Попробуйте так:

Sub qq()
    Dim arr()
    With ActiveSheet.UsedRange
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub

Класс! Спасибо!