Макрос чтобы во всех ячейках столбца удалить последний символ

[alex0070]

Excel 2003. Стоит задача: во всех ячейках столбца необходимо удалить последний символ. Выделяю верхнюю ячейку и записываю макрос: F2 (переход к правке в строке формул), затем END (перевод курсора в конец строки) , BACKSPAСE (Удалить символ) ENTER (принять и перейти к след. ячейке), остановить запись макроса. Результат работы – в обрабатываемую ячейку поставит содержимое ячейки, на которой записывался макрос (в данном случае первой), вместо того, чтобы обработать содержимое выделенной ячейки.
Получилось так:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 14.10.2011 (S)
'
' Сочетание клавиш: Ctrl+e
'
ActiveCell.FormulaR1C1 = "Cодержимое верхней ячейк"
Range("E2").Select
End Sub

Активной ячейке нужно не присваивать текст, а явно указать нажатие ентера, а нажатие BACKSPAСE вообще проигнорировано. Как победить?

[IgorGO]

sub DelLastChar
  dim r as long, v as string
  for r = 1 to cells(rows.count, activecell.column).end(xlup).row
    v = cstr(cells(r, activecell.column).value)
    if v <> "" then cells(r, activecell.column).value = left(v, len(v)-1)
  next
end sub

перед запуском макроса активной должна быть любая ячейка редактируемого столбца

[kuklp]

Вариант без цикла:

Sub www()
Dim r$
r = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column).End(xlUp)).Address
Range(r) = Evaluate("IF(" & r & "="""","""",LEFT(" & r & ",LEN(" & r & ")-1))")
End Sub

перед запуском макроса активной должна быть любая ячейка редактируемого столбца

[vikttur]

Вариант без макроса

=ПСТР(A1;1;ДЛСТР(A1)-1)
=ЛЕВСИМВ(A1;ДЛСТР(A1)-1)

Заменить на значения, подставить вместо исходного столбца.

[alex0070]

Спасибо IgorGO, kuklp и vikttur за Ваши решения, сейчас попробую эти варианты