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

Вход

Регистрация

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

 

= Мир MS Excel/Объединить числа из столбца в одну ячейку. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Объединить числа из столбца в одну ячейку.
vladimiry Дата: Четверг, 17.11.2022, 20:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - vladimiry
Дата добавления - 17.11.2022 в 20:08
bigorq Дата: Четверг, 17.11.2022, 20:39 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
Добрый.
Офис 2010?
 
Ответить
СообщениеДобрый.
Офис 2010?

Автор - bigorq
Дата добавления - 17.11.2022 в 20:39
vladimiry Дата: Четверг, 17.11.2022, 20:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

2010
bigorq, 2016
 
Ответить
Сообщениеbigorq, 2016

Автор - vladimiry
Дата добавления - 17.11.2022 в 20:42
bigorq Дата: Четверг, 17.11.2022, 20:46 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
есть в нем ОБЪЕДИНИТЬ() ?
 
Ответить
Сообщениеесть в нем ОБЪЕДИНИТЬ() ?

Автор - bigorq
Дата добавления - 17.11.2022 в 20:46
vladimiry Дата: Четверг, 17.11.2022, 20:53 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

2010
bigorq, в списке нет.
 
Ответить
Сообщениеbigorq, в списке нет.

Автор - vladimiry
Дата добавления - 17.11.2022 в 20:53
bigorq Дата: Четверг, 17.11.2022, 20:54 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
Печально, тогда, наверное, только макросом
 
Ответить
СообщениеПечально, тогда, наверное, только макросом

Автор - bigorq
Дата добавления - 17.11.2022 в 20:54
vladimiry Дата: Четверг, 17.11.2022, 20:55 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

2010
bigorq, ясно, спасибо.
 
Ответить
Сообщениеbigorq, ясно, спасибо.

Автор - vladimiry
Дата добавления - 17.11.2022 в 20:55
bigorq Дата: Четверг, 17.11.2022, 21:08 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
Вариант "из того что было..." в столбце B
Код
=B1&", "&A2
в B1 значение А1
протянуть вниз до последней ячейки
К сообщению приложен файл: row2cell.xlsx (6.2 Kb)


Сообщение отредактировал bigorq - Четверг, 17.11.2022, 21:15
 
Ответить
СообщениеВариант "из того что было..." в столбце B
Код
=B1&", "&A2
в B1 значение А1
протянуть вниз до последней ячейки

Автор - bigorq
Дата добавления - 17.11.2022 в 21:08
vladimiry Дата: Четверг, 17.11.2022, 21:29 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

2010
bigorq, Спасибо, возможно макросом получится.
 
Ответить
Сообщениеbigorq, Спасибо, возможно макросом получится.

Автор - vladimiry
Дата добавления - 17.11.2022 в 21:29
Gustav Дата: Пятница, 18.11.2022, 01:47 | Сообщение № 10
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Есть возможность немного "попрограммировать без программирования", а именно исполнить одну единственную инструкцию VBA, выполняющую поставленную задачу - заполнение ячейки C1 значениями из диапазона A1:A1000 через запятую. Для этого:

1. Переходим в Окно отладки Редактора VBA - находясь в Excel на рабочем листе, жмём последовательно комбинации Alt+F11 и далее Ctrl+G.

2. Оказавшись в Окне отладки ("Immediate"), набираем (копируем отсюда) ОДНУ ИЗ следующих строк кода - любую, какая больше нравится (можно последовательно проверить все):
[vba]
Код
Range("C1") = Join(WorksheetFunction.Transpose(Range("A1:A1000")), ",")
[/vba]или
[vba]
Код
[C1] = Join(WorksheetFunction.Transpose([A1:A1000]), ",")
[/vba]или
[vba]
Код
[C1] = Join([TRANSPOSE(A1:A1000)], ",")
[/vba]или такое экзотическое использование метода Application.Evaluate - с двух сторон от оператора присваивания:
[vba]
Код
Evaluate("C1") = Join(Evaluate("TRANSPOSE(A1:A1000)"), ",")
[/vba]
3. Жмём Enter, предварительно ткнув мышкой в любое место скопированной строки, после чего идём проверять содержимое ячейки C1.

Если раньше совсем не приходилось программировать, то - "С почином вас, Глеб Егорович!" (с) ;)


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Пятница, 18.11.2022, 02:12
 
Ответить
СообщениеЕсть возможность немного "попрограммировать без программирования", а именно исполнить одну единственную инструкцию VBA, выполняющую поставленную задачу - заполнение ячейки C1 значениями из диапазона A1:A1000 через запятую. Для этого:

1. Переходим в Окно отладки Редактора VBA - находясь в Excel на рабочем листе, жмём последовательно комбинации Alt+F11 и далее Ctrl+G.

2. Оказавшись в Окне отладки ("Immediate"), набираем (копируем отсюда) ОДНУ ИЗ следующих строк кода - любую, какая больше нравится (можно последовательно проверить все):
[vba]
Код
Range("C1") = Join(WorksheetFunction.Transpose(Range("A1:A1000")), ",")
[/vba]или
[vba]
Код
[C1] = Join(WorksheetFunction.Transpose([A1:A1000]), ",")
[/vba]или
[vba]
Код
[C1] = Join([TRANSPOSE(A1:A1000)], ",")
[/vba]или такое экзотическое использование метода Application.Evaluate - с двух сторон от оператора присваивания:
[vba]
Код
Evaluate("C1") = Join(Evaluate("TRANSPOSE(A1:A1000)"), ",")
[/vba]
3. Жмём Enter, предварительно ткнув мышкой в любое место скопированной строки, после чего идём проверять содержимое ячейки C1.

Если раньше совсем не приходилось программировать, то - "С почином вас, Глеб Егорович!" (с) ;)

Автор - Gustav
Дата добавления - 18.11.2022 в 01:47
vladimiry Дата: Пятница, 18.11.2022, 05:32 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

2010
Gustav, Спасибо!
 
Ответить
СообщениеGustav, Спасибо!

Автор - vladimiry
Дата добавления - 18.11.2022 в 05:32
Serge_007 Дата: Пятница, 18.11.2022, 09:18 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСредствами Excel, без программирования: Как быстро собрать в одну строку большой диапазон из столбца

Автор - Serge_007
Дата добавления - 18.11.2022 в 09:18
  • Страница 1 из 1
  • 1
Поиск:

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