|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.05.2008, 10:29 | #1 |
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Удаление символа в ячейке
Добрый день!!! и с праздниками (прошедшими) Вас
У меня есть такой вот макрос: Sub De() Dim i As Integer Dim s As Range ActiveSheet.Range("A1").Select m1: Set s = ActiveSheet.Range("A1:E3000").Find( What:="не ответили", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If s Is Nothing Then Exit Sub i = s.Row Rows((i) & ":" & (i)).Delete GoTo m1 End Sub он удаляет всю строку если в любой из ячеек диапазона есть "не ответили", на что нужно заменить строчку Rows((i) & ":" & (i)).Delete чтобы он удалял только слова "не ответили" и больше ни чего не трогал? Зарание огромное Вам спасибо!!! |
05.05.2008, 13:33 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
То есть Вам нужно из всех ячеек указанного диапазона удалить фрагмент?
Тогда, например, так: Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 05.05.2008 в 13:39. |
05.05.2008, 14:02 | #3 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Как будто бы можно и покороче
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск и удаление символа в строке | Karl_Karlovi4 | Общие вопросы Delphi | 14 | 26.10.2011 18:04 |
удвоение символа | Aleksander | Помощь студентам | 13 | 13.02.2011 12:16 |
Удаление символа в строке | Fantom | Общие вопросы Delphi | 2 | 23.06.2008 16:03 |
удаление символа окончания строки | Xozer | SQL, базы данных | 1 | 07.02.2008 12:19 |
последНИЕ 3 символа... | PAVEL315 | Общие вопросы Delphi | 6 | 23.02.2007 11:20 |