Собрать формулу подстановки значений / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Собрать формулу подстановки значений

3 сообщений из 3, страница 1 из 1

Собрать формулу подстановки значений

#39656619

Anton Klyauzov

Гость

привет
есть таблица

1)внутренний код товара; 2)артикул производителя; 3)артикулы аналогов; 4) найденные внутренние коды
код1; арт1; арт2,арт3; код2,код3
код2; арт2; арт1; код1
код3; арт3; арт2,арт1; код2, код1

3й столбец артикулы аналогов - это перечисление подходящих значений из второго столбца
задача - сделать подстановку кодов вместо артикулов
значения третьего столбца нужно заменить на подходящие значения из первого и вставить всё это в четвертый.

можно такую формулу собрать, или только скриптом?

...

Рейтинг:

0 / 0

06.06.2018, 15:51

| Ответить | Цитировать | Написать

Собрать формулу подстановки значений

#39656642

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Файл в студию. На одном листе (это же Excel?) исходные данные, на втором - желаемый результат на этих данных.

Anton Klyauzovможно такую формулу собрать, или только скриптом?
Если в 3-м столбце строго 2 параметра - можно и формулами (причём с доп. столбцами - намного проще). Даже если, скажем, "не более 4" - всё равно можно. Если не ограничено - увы, только VBA.

...

Рейтинг:

0 / 0

06.06.2018, 16:19

| Ответить | Цитировать | Написать

Собрать формулу подстановки значений

#39656649

Anton Klyauzov

Гость

Akina,
не ограничено, увы.

написал сам я в общем:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Sub replacer()

Dim ReplaceValue, SearchValue, LineNum

For LineNum = 1 To Rows.Count

SearchValue = Cells(LineNum, 4).Value
ReplaceValue = Cells(LineNum, 1).Value

Cells.Replace What:=SearchValue, Replacement:=ReplaceValue, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
Next


End Sub

...

Рейтинг:

0 / 0

06.06.2018, 16:23

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Собрать формулу подстановки значений

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=39656642&tid=2172314]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	29ms
get topic data:	12ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	17ms

total:	142ms