|
Модераторы: mihanik |
|
Rezident |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 11.2.2016 Репутация: нет Всего: нет |
Добрый день!
Есть список компаний, их адреса и коды компаний в трех столбцах соответственно. Нужно коды компаний из третьего столбца записать в одну ячейку через запятую(например А16). Получается записать только в строку, а если в одну ячейку, то она заменяется каждый раз и оставляет только последнее значение. Как это можно сделать? Код макроса: Sub Test() Dim st As String For i = 2 To 21 st = Sheets("Лист1").Cells(i, 3).Value Sheets("Лист1").Cells(16, i - 1) = st & "," 'Sheets("Лист1").Cells(17, 1) = st & "," Next i End Sub |
|||
|
||||
Akina |
|
||||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 25 Всего: 453 |
В common-модуле пишешь функцию конкатенации значений:
В ячейке назначения пишешь формулу
где C1:C100 - диапазон с нужными тебе кодами. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
||||
|
|||||
Правила форума "Программирование, связанное с MS Office" | |
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |