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

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

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

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

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

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

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

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

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

Объединение ячеек
Добрый день, формучане) Помогите пожалуйста с макросом. Нужно объединить ячейки...

11
kalbasiatka
396 / 248 / 76
Регистрация: 27.10.2012
Сообщений: 832
30.08.2014, 23:20 #2
Файл-пример будьте добры, интересует не содержание, а структура.
0
Alex77755
10696 / 3271 / 543
Регистрация: 13.02.2009
Сообщений: 9,647
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
1408 / 543 / 185
Регистрация: 09.06.2011
Сообщений: 1,163
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
2755 / 1687 / 497
Регистрация: 02.11.2012
Сообщений: 4,207
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
2755 / 1687 / 497
Регистрация: 02.11.2012
Сообщений: 4,207
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
126 / 103 / 21
Регистрация: 23.06.2015
Сообщений: 323
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
Привет! Вот еще темы с решениями:

Объединение ячеек
Добрый день. Возник вопрос, как объединить ячейки в GoogleDocs, с переносом...

Замена содержимого ячеек
Всем привет. Текущий текст в ячейках в формате: ИП Фамилия Имя Отчество...

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

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


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

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

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