Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Собрать формулу подстановки значений / 3 сообщений из 3, страница 1 из 1
06.06.2018, 15:51
    #39656619
Anton Klyauzov
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, 16:19
    #39656642
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Собрать формулу подстановки значений
Файл в студию. На одном листе (это же Excel?) исходные данные, на втором - желаемый результат на этих данных.

Anton Klyauzovможно такую формулу собрать, или только скриптом?
Если в 3-м столбце строго 2 параметра - можно и формулами (причём с доп. столбцами - намного проще). Даже если, скажем, "не более 4" - всё равно можно. Если не ограничено - увы, только VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2018, 16:23
    #39656649
Anton Klyauzov
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Собрать формулу подстановки значений / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]