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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка значений ячейки в разные места текста - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка значений ячейки в разные места текста (Формулы/Formulas)
Вставка значений ячейки в разные места текста
spite Дата: Вторник, 26.01.2016, 20:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день! Прошу помочь с написанием макроса (думаю без него не решить проблему).

Есть:

1. Значения в 4 столбцах
2. 114 разных текстов в столбце E

Что нужно:

В каждом тексте указано (например, "keyword from A column" - фраза из столбца А) в каком месте должно стоять значение из определенного столбца в строке в которой находится текст. Например, мы имеем в 3ей строке текст и в нем должны вставляться в определенных местах значения из столбца А3, B3, С3, D3. Соответственно, если текст находится в строке 65, то значения должны браться из А65, B65, С65, D65. Как автоматизировать данный процесс?

Пример прикрепил к теме.
К сообщению приложен файл: keyword_insert.xlsx(28Kb)
 
Ответить
СообщениеДобрый день! Прошу помочь с написанием макроса (думаю без него не решить проблему).

Есть:

1. Значения в 4 столбцах
2. 114 разных текстов в столбце E

Что нужно:

В каждом тексте указано (например, "keyword from A column" - фраза из столбца А) в каком месте должно стоять значение из определенного столбца в строке в которой находится текст. Например, мы имеем в 3ей строке текст и в нем должны вставляться в определенных местах значения из столбца А3, B3, С3, D3. Соответственно, если текст находится в строке 65, то значения должны браться из А65, B65, С65, D65. Как автоматизировать данный процесс?

Пример прикрепил к теме.

Автор - spite
Дата добавления - 26.01.2016 в 20:52
mathiax90 Дата: Среда, 27.01.2016, 06:01 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 173
Репутация: 20 ±
Замечаний: 20% ±

Excel 2007
1. Макрос:
[vba]
Код

Sub replaceValue()
Dim awb As Workbook
Dim aws As Worksheet
Set awb = ActiveWorkbook
Set aws = ActiveSheet
For i = 2 To 3
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from A column", aws.Cells(i, 1), 1, 1)
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from B column", aws.Cells(i, 2), 1, 1)
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from C column", aws.Cells(i, 3), 1, 1)
Next i
End Sub
[/vba]

2. Информация по функции
тыц
Если хотите заменить все появления findstr, то count=-1 (default)

3. Пример в приложении. Измените i в цикле и протестируйте на 4 строке.
К сообщению приложен файл: keyword_insert.xlsm(35Kb)


webmoney: R242692021885
ЯД:410013877261817


Сообщение отредактировал mathiax90 - Среда, 27.01.2016, 06:02
 
Ответить
Сообщение1. Макрос:
[vba]
Код

Sub replaceValue()
Dim awb As Workbook
Dim aws As Worksheet
Set awb = ActiveWorkbook
Set aws = ActiveSheet
For i = 2 To 3
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from A column", aws.Cells(i, 1), 1, 1)
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from B column", aws.Cells(i, 2), 1, 1)
    aws.Cells(i, 5).Value = Replace(aws.Cells(i, 5).Value, "keyword from C column", aws.Cells(i, 3), 1, 1)
Next i
End Sub
[/vba]

2. Информация по функции
тыц
Если хотите заменить все появления findstr, то count=-1 (default)

3. Пример в приложении. Измените i в цикле и протестируйте на 4 строке.

Автор - mathiax90
Дата добавления - 27.01.2016 в 06:01
Pelena Дата: Среда, 27.01.2016, 06:30 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11483
Репутация: 2554 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Вариант формулой
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(Лист2!E2;"keyword from A column";Лист2!A2);"keyword from B column";Лист2!B2);"keyword from C column";Лист2!C2);"keyword from D column";Лист2!D2)
К сообщению приложен файл: 8141913.xlsx(29Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВариант формулой
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(Лист2!E2;"keyword from A column";Лист2!A2);"keyword from B column";Лист2!B2);"keyword from C column";Лист2!C2);"keyword from D column";Лист2!D2)

Автор - Pelena
Дата добавления - 27.01.2016 в 06:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка значений ячейки в разные места текста (Формулы/Formulas)
Страница 1 из 11
Поиск:

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