Копирование значения в другой столбец при определенном условии

[stasbz]

Помогите. Есть необходимость в макросе:
Вся операции происходит в одной строке.
Если в столбце А есть ячейка содержащая значение "#", то значение из ячейки в столбце D копируется в ячейку в столбце E.
Пример:
A D E
1 34
# 45 45
23 34
# 76 76

[EducatedFool]

Макрос-то совсем простой:

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If InStr(1, cell.Text, "#") > 0 Then cell(1, 5) = cell(1, 4)
    Next cell
End Sub

Только скажите - а чем Вас не устраивают формулы?