формулы в значения с авто-фильтром

[Jim]

всем привет!

как можно перевести данные расчитанные по формуле в значение, при этом не снимая фильтра.

пример во вложении.

если это можно с помощью макроса то было бы замечательно.

[Wasilic]

как можно перевести данные расчитанные по формуле в значение, при этом не снимая фильтра.

если это можно с помощью макроса то было бы замечательно.

Так наверное!

Код Выделить Развернуть

Sub zzz()
    For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
        Cells(i, 4) = Cells(i, 4).Value
    Next
End Sub

[Jim]

а как сделать чтобы можно было выбирать в каком столбце переводить формулы в значения? т.е. чтобы не ссылалось конкретно на столбец D

[Wasilic]

Так будет обработан столбец, на котором стоит курсор.

Код Выделить Развернуть

Sub zzz()
  KL = Selection.Column
  For i = 2 To Cells(Rows.Count, KL).End(xlUp).Row
      Cells(i, KL) = Cells(i, KL).Value
  Next
End Sub