Помогите, плз, с макросом (VBA Excel)

sawylya

Есть столбец с числами.
Нужно преобразовать его в столбец с теми же числами, взятыми по модулю.
То, что сам написал, не работает:

Num_Last_Row = Columns("C").End(xlDown).Row
For i = 1 To Num_Last_Row
Cells(i, 3).Formula = "=ABS(Cells(i, 3).value)"
Next i


:(

lana-ro

у меня вот так работает
Num_Last_Row = Columns("A").End(xlDown).Row
For i = 1 To Num_Last_Row
Cells(i, 2).FormulaR1C1 = "=ABS(RC[-1])"
Next i
....
я тебе помог... а ты помоги мне :grin:

a7137928

Ужас какой.
Зачем вставлять в ячейки формулу? Не то, чтобы проще, но гораздо естественнее написать
cells(i,3).value = abs(cells(i,3).value)

sawylya

пасиб)
Оставить комментарий
Имя или ник:
Комментарий: