Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Office Excel

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 23, средняя оценка - 4.70
Onepint
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 8
#1

Объединение содержимого нескольких ячеек - MS Excel

30.08.2014, 18:03. Просмотров 3737. Ответов 11
Метки нет (Все метки)

Здравствуйте! Задача такая: объединить содержимое нескольких ячеек через запятую без пробела. Ячеек будет больше тысячи, через СЦЕПИТЬ будет очень долго и мучительно это сделать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.08.2014, 18:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Объединение содержимого нескольких ячеек (MS Excel):

Объединение содержимого ячеек в одну при нескольких условиях - MS Excel
Доброго времени суток, Уважаемые. Подскажите, пожалуйста, как с помощью формулы решить задачу по объединеию содержимого ячеек в одну при...

Объединение содержимого меняющихся ячеек - MS Excel
Привет! Подскажите, пожалуйста, можно ли с помощью формулы решить следующую задачу. Есть колонка с изменяющимися значениями вида ...

Объединение содержимого ячеек в одну строку - MS Excel
Доброго времени дня, подскажите пожалуйста как объединить в одну строчку данные из разных строк и колонок в одну, если совпадает начало....

Объединение строк При условии одинаковых ячеек с сохранением содержимого в строках - MS Excel
Имеется таблица со значениями, некоторые значения в первом столбце совпадают Нужно объединить совпадающие значения в одну строку с...

Заполнение значением одной из нескольких ячеек в зависимости от переменной в одной из ячеек - MS Excel
Добрый день. Помогите плз разобраться. 1. В ячейке А1 может быть значение от 1 до 8 включительно. 2. В зависимости от значения...

Объединение ячеек - MS Excel
Добрый день, формучане) Помогите пожалуйста с макросом. Нужно объединить ячейки в сформировавшемся файле на листе "Заказ"в колонке"Склад и...

11
kalbasiatka
396 / 248 / 76
Регистрация: 27.10.2012
Сообщений: 832
30.08.2014, 23:20 #2
Файл-пример будьте добры, интересует не содержание, а структура.
0
Alex77755
10613 / 3215 / 528
Регистрация: 13.02.2009
Сообщений: 9,451
31.08.2014, 11:43 #3
Макросом по нему! Макросом!
0
Onepint
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 8
31.08.2014, 15:24  [ТС] #4
Вот пример
0
Вложения
Тип файла: xlsx пример.xlsx (8.8 Кб, 121 просмотров)
Step_UA
1377 / 512 / 159
Регистрация: 09.06.2011
Сообщений: 1,104
31.08.2014, 17:04 #5
Результат в ячейке D1 из столбца A, для ячейки D1 установите текстовый формат:
Visual Basic
1
[d1] = Join(WorksheetFunction.Transpose(Range([a1], Cells(Rows.Count, 1).End(xlUp))), ",")
... помните об ограничении количества символов в ячейке
0
Onepint
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 8
31.08.2014, 17:15  [ТС] #6
я ничего не понял.. вопрос был про объединение содержимого в одну ячейку. Скиньте файл, может разберусь
0
Vlad999
2683 / 1616 / 471
Регистрация: 02.11.2012
Сообщений: 4,017
31.08.2014, 18:10 #7
может в таком виде понятней будет.
Visual Basic
1
2
3
4
Sub Макрос1()
Range("D2").NumberFormat = "@"
[d2] = Join(WorksheetFunction.Transpose(Range([a2], Cells(Rows.Count, 1).End(xlUp))), ",")
End Sub
0
Вложения
Тип файла: xls трансп.xls (35.5 Кб, 111 просмотров)
Onepint
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 8
01.09.2014, 15:03  [ТС] #8
Большое спасибо!
0
kolosunin
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 2
27.04.2016, 16:11 #9
Товарищи!
Прошу помощь ! Как доработать данный макрос (что выше в примере) чтобы удаляло одинаковые значения? Прилагаю файл с данными где есть повторяющиеся значения.

Спасибо
0
Вложения
Тип файла: xls list.xls (39.5 Кб, 8 просмотров)
Vlad999
2683 / 1616 / 471
Регистрация: 02.11.2012
Сообщений: 4,017
27.04.2016, 16:32 #10
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub vvv()
Dim ms(), sd As Object, m
ms = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
Set sd = CreateObject("Scripting.Dictionary")
   For Each m In ms
     If m <> "" Then sd.Item(CStr(m)) = ""
   Next
Range("D2").NumberFormat = "@"
[D2] = Join(sd.keys, ",")
End Sub
1
kolosunin
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 2
27.04.2016, 16:38 #11
Спасибо БРО!
0
Svsh2015
122 / 99 / 20
Регистрация: 23.06.2015
Сообщений: 310
27.04.2016, 23:35 #12
добрый вечер,еще варианты макросов,кнопка uuu2 для #9 и кнопка uuu1 для #1

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub uuu2()
Dim z, i&, m&, t$: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z)
    If Not IsEmpty(z(i, 1)) Then
         If .exists(z(i, 1)) = False Then
         m = m + 1: .Item(z(i, 1)) = m:  z(m, 1) = z(i, 1):   t = t & "," & z(m, 1)
         End If
    End If
   Next
   Range("D2").NumberFormat = "@": Range("D2") = Mid(t, 2)
   End With
End Sub
Visual Basic
1
2
3
4
5
6
7
Sub uuu1()
 Dim z, i&, t$: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    For i = 1 To UBound(z)
         t = t & "," & z(i, 1)
    Next
   Range("D2").NumberFormat = "@": Range("D2") = Mid(t, 2)
End Sub
0
Вложения
Тип файла: xls example_28_04_2016_cbr_unic.xls (43.0 Кб, 12 просмотров)
27.04.2016, 23:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2016, 23:35
Привет! Вот еще темы с ответами:

Объединение ячеек (Merge) - MS Excel
День добрый. Помогите пожалуйста оптимизировать док... Есть список (по количеству строк всегда разный) В нем несколько столбцов, в...

Объединение ячеек в таблице - MS Excel
Нужен совет по объединению ячеек в таблице, как лучше сделать... Есть пример. первые три строки с одной и той же цифрой, необходимо их...

Стиль на объединение ячеек - MS Excel
как распространить стиль объединения ячеек на всю таблицу? например, есть таблица, в которой вначале три первые колонки объединены, а...

Объединение ячеек в таблице - MS Excel
Искал похожую тему - не нашел. Собственно вопрос: как объединить ячейки, которые были отформатированны как таблица? Во вложенном...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.