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

Posted by Chas under Basic, Пост-обзор

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)

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как сделать, чтобы значение предлагалось ввести пользователю?
• Как макросом брать данные с word документов в excel?
• Разделить файл на несколько частей с помощью макроса в excel
• Как определить путь к файлу (текущую папку) в excel?
• Как сделать, чтобы заполненные ячейки в excel считались с условием?
• Как скопировать с одного столбца через одну строку в другой столбец данные
• Создание выпадающего списка средствами VBA
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Как вернуть из функции 2 и более аргумента в VBA?