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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для поиска и замены первой буквы в ячейке (Макросы/Sub)
Макрос для поиска и замены первой буквы в ячейке
Enreprice12 Дата: Вторник, 08.12.2015, 16:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Есть столбец "А" из 6,5 тыс артикулов, например "B3895/1", "23588/8", "HMT8786" и тп. Очень ищу макрос, который найдет среди них ячейки, содержащие букву "B" - она всегда стоит стоит на первом месте и заменить ее на цифру "2" на этой же строке в столбце "B". А ячейки, содержащие на первом месте любую цифру типа "23588/8" заменялись на "1" на этой же строке в столбце "B". Также есть ячейки, содержащие "HMT", например "HMT8786" они должны меняться на цифру 4 по такому же принципу.
Заранее очень благодарен за помощь!
К сообщению приложен файл: 2294097.xlsx (11.0 Kb)


Сообщение отредактировал Enreprice12 - Вторник, 08.12.2015, 16:57
 
Ответить
СообщениеДобрый день! Есть столбец "А" из 6,5 тыс артикулов, например "B3895/1", "23588/8", "HMT8786" и тп. Очень ищу макрос, который найдет среди них ячейки, содержащие букву "B" - она всегда стоит стоит на первом месте и заменить ее на цифру "2" на этой же строке в столбце "B". А ячейки, содержащие на первом месте любую цифру типа "23588/8" заменялись на "1" на этой же строке в столбце "B". Также есть ячейки, содержащие "HMT", например "HMT8786" они должны меняться на цифру 4 по такому же принципу.
Заранее очень благодарен за помощь!
Автор - Enreprice12
Дата добавления - 08.12.2015 в 16:56
Pelena Дата: Вторник, 08.12.2015, 17:03 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте. Обязательно макрос? Формула не подойдёт?
Код
=ЕСЛИ(ЛЕВСИМВ(A2)="B";2;ЕСЛИ(ЛЕВСИМВ(A2;3)="HMT";3;1))
К сообщению приложен файл: 2196664.xlsx (12.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте. Обязательно макрос? Формула не подойдёт?
Код
=ЕСЛИ(ЛЕВСИМВ(A2)="B";2;ЕСЛИ(ЛЕВСИМВ(A2;3)="HMT";3;1))
Автор - Pelena
Дата добавления - 08.12.2015 в 17:03
Enreprice12 Дата: Вторник, 08.12.2015, 17:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромное! Два часа думал как это сделать))
 
Ответить
СообщениеСпасибо огромное! Два часа думал как это сделать))
Автор - Enreprice12
Дата добавления - 08.12.2015 в 17:11
_Boroda_ Дата: Вторник, 08.12.2015, 21:09 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще вариант
Код
=--ТЕКСТ(КОДСИМВ(A2)-66;"4;1;2")
К сообщению приложен файл: 2294097_1.xlsx (12.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
Код
=--ТЕКСТ(КОДСИМВ(A2)-66;"4;1;2")
Автор - _Boroda_
Дата добавления - 08.12.2015 в 21:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для поиска и замены первой буквы в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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