Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/удалить из строки первый заданный символ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
удалить из строки первый заданный символ
studenttmb Дата: Пятница, 19.11.2021, 17:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Добрый день! Подскажите, как можно с помощью макроса в конкретном диапазоне ячеек (диапазон уже выделен к примеру) произвести удаление только первого определенного символа с левой стороны строки (к примеру если это цифра 7, то удаляем, а если другие, то оставляем без изменений)?
 
Ответить
СообщениеДобрый день! Подскажите, как можно с помощью макроса в конкретном диапазоне ячеек (диапазон уже выделен к примеру) произвести удаление только первого определенного символа с левой стороны строки (к примеру если это цифра 7, то удаляем, а если другие, то оставляем без изменений)?

Автор - studenttmb
Дата добавления - 19.11.2021 в 17:15
TD_MElec Дата: Пятница, 19.11.2021, 20:50 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Dim c as Range
Dim str as String
for each c in selection
str = c.value
If left(str,1) = 7 then
c.value = right(str, len(str)-1)
end if
next
[/vba]
Но если вы вместо цифры захотите убрать, допустим букву а, тогда надо написать = "a", т.е. взят ь в кавычки


Сообщение отредактировал TD_MElec - Пятница, 19.11.2021, 21:04
 
Ответить
Сообщение[vba]
Код
Dim c as Range
Dim str as String
for each c in selection
str = c.value
If left(str,1) = 7 then
c.value = right(str, len(str)-1)
end if
next
[/vba]
Но если вы вместо цифры захотите убрать, допустим букву а, тогда надо написать = "a", т.е. взят ь в кавычки

Автор - TD_MElec
Дата добавления - 19.11.2021 в 20:50
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!