Добрый день, уважаемые форумчане!
В столбцах с D по H находится некоторое количество значений. При этом первая строка это заголовок, а в целевом диапазоне встречаются нечисловые значения.
Функция отрабатывает при условии, что в диапазоне все значения числовые.
Необходимо изменить ее таким образом чтобы выполнялось следующее: если ячейка содержит "<0.2", заменить значение на 0.1, иначе если ячейка содержит "-", очистить ячейку, иначе если ошибка (поскольку текст нельзя округлить), значение не менять (чтобы остались заголовки, иначе округлить результат до 2 знаков после запятой.
Не смог это условие прописать в цикле vba для всего диапазона, пример файла со значениями прилагаю.
Пожалуйста помогите с реализацией.
В столбцах с D по H находится некоторое количество значений. При этом первая строка это заголовок, а в целевом диапазоне встречаются нечисловые значения.
Код |
---|
Range("D:H").SpecialCells(xlCellTypeConstants).Select Set D_Range = Application.Selection For Each myCell In D_Range myCell.Value = Application.WorksheetFunction.round(myCell.Value, 2) Next |
Необходимо изменить ее таким образом чтобы выполнялось следующее: если ячейка содержит "<0.2", заменить значение на 0.1, иначе если ячейка содержит "-", очистить ячейку, иначе если ошибка (поскольку текст нельзя округлить), значение не менять (чтобы остались заголовки, иначе округлить результат до 2 знаков после запятой.
Код |
---|
=ЕСЛИ(СЧЁТЕСЛИ(RC[-1];"*<0.2*");0.1;ЕСЛИ(СЧЁТЕСЛИ(RC[-1];"*-*");"";ЕСЛИОШИБКА(ОКРУГЛ(RC[-1];2);RC[-1]))) |
Пожалуйста помогите с реализацией.