Объединить числа из столбца в одну ячейку.
vladimiry
Дата: Четверг, 17.11.2022, 20:08 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
2010
Добрый вечер! Подскажите пожалуйста, как грамотно заполнить одну ячейку числами из столбца через запятую.
Добрый вечер! Подскажите пожалуйста, как грамотно заполнить одну ячейку числами из столбца через запятую. vladimiry
Ответить
Сообщение Добрый вечер! Подскажите пожалуйста, как грамотно заполнить одну ячейку числами из столбца через запятую. Автор - 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
Ответить
Сообщение есть в нем ОБЪЕДИНИТЬ() ? Автор - 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
Ответить
Сообщение Печально, тогда, наверное, только макросом Автор - 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 значение А1 протянуть вниз до последней ячейки
Вариант "из того что было..." в столбце B в B1 значение А1 протянуть вниз до последней ячейки bigorq
Сообщение отредактировал bigorq - Четверг, 17.11.2022, 21:15
Ответить
Сообщение Вариант "из того что было..." в столбце B в B1 значение А1 протянуть вниз до последней ячейки Автор - bigorq Дата добавления - 17.11.2022 в 21:08
vladimiry
Дата: Четверг, 17.11.2022, 21:29 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
2010
bigorq, Спасибо, возможно макросом получится.
bigorq, Спасибо, возможно макросом получится. vladimiry
Ответить
Сообщение 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. Если раньше совсем не приходилось программировать, то - "С почином вас, Глеб Егорович!" (с)
Есть возможность немного "попрограммировать без программирования", а именно исполнить одну единственную инструкцию 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
МОИ: Ник , 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
Ответить