Сборка слов из разных столбцов в один
Nata82v
Дата: Понедельник, 22.12.2014, 19:08 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Добрый день! Есть ли решение собрать все слова из разных столбцов в один? Пример во вложении.
Добрый день! Есть ли решение собрать все слова из разных столбцов в один? Пример во вложении. Nata82v
К сообщению приложен файл:
___.xlsx
(10.3 Kb)
Сообщение отредактировал Nata82v - Понедельник, 22.12.2014, 19:15
Ответить
Сообщение Добрый день! Есть ли решение собрать все слова из разных столбцов в один? Пример во вложении. Автор - Nata82v Дата добавления - 22.12.2014 в 19:08
TimSha
Дата: Понедельник, 22.12.2014, 19:11 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация:
94
±
Замечаний:
0% ±
Excel 2013 Pro +
не влазит, видно - пухленький больно. Аль не того формату... См. функции =СЦЕПИТЬ() или соединять через &, как вариант.
не влазит, видно - пухленький больно. Аль не того формату... См. функции =СЦЕПИТЬ() или соединять через &, как вариант. TimSha
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
Сообщение отредактировал TimSha - Понедельник, 22.12.2014, 19:12
Ответить
Сообщение не влазит, видно - пухленький больно. Аль не того формату... См. функции =СЦЕПИТЬ() или соединять через &, как вариант. Автор - TimSha Дата добавления - 22.12.2014 в 19:11
Nata82v
Дата: Понедельник, 22.12.2014, 19:17 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Вложение прикрепила!
Ответить
Сообщение Вложение прикрепила! Автор - Nata82v Дата добавления - 22.12.2014 в 19:17
JayBhagavan
Дата: Понедельник, 22.12.2014, 22:05 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация:
27
±
Замечаний:
0% ±
Excel 2010
Задание ближе к ветке ВБА/макросы, имхо.
[vba]
Код
Sub jjj() Application.ScreenUpdating = False Set range_data = UsedRange With range_data: Set range_res_start = [A1].Offset(, .Columns.Count + 1): End With i = 0 For Each cell In range_data If Len(cell.Value) Then cell.Copy Destination:=range_res_start.Offset(i) i = i + 1 End If Next cell range_res_start.EntireColumn.AutoFit Set range_data = Nothing Set range_res_start = Nothing Set cell = Nothing Set i = Nothing On Error Resume Next Application.Speech.Speak ("Work done!") End Sub
[/vba]
Пробуйте.
Задание ближе к ветке ВБА/макросы, имхо.
[vba]
Код
Sub jjj() Application.ScreenUpdating = False Set range_data = UsedRange With range_data: Set range_res_start = [A1].Offset(, .Columns.Count + 1): End With i = 0 For Each cell In range_data If Len(cell.Value) Then cell.Copy Destination:=range_res_start.Offset(i) i = i + 1 End If Next cell range_res_start.EntireColumn.AutoFit Set range_data = Nothing Set range_res_start = Nothing Set cell = Nothing Set i = Nothing On Error Resume Next Application.Speech.Speak ("Work done!") End Sub
[/vba]
Пробуйте. JayBhagavan
Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
Ответить
Сообщение Задание ближе к ветке ВБА/макросы, имхо.
[vba]
Код
Sub jjj() Application.ScreenUpdating = False Set range_data = UsedRange With range_data: Set range_res_start = [A1].Offset(, .Columns.Count + 1): End With i = 0 For Each cell In range_data If Len(cell.Value) Then cell.Copy Destination:=range_res_start.Offset(i) i = i + 1 End If Next cell range_res_start.EntireColumn.AutoFit Set range_data = Nothing Set range_res_start = Nothing Set cell = Nothing Set i = Nothing On Error Resume Next Application.Speech.Speak ("Work done!") End Sub
[/vba]
Пробуйте. Автор - JayBhagavan Дата добавления - 22.12.2014 в 22:05
Nata82v
Дата: Вторник, 23.12.2014, 10:30 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
JayBhagavan, спасибо огромное! Чудесно!
JayBhagavan, спасибо огромное! Чудесно! Nata82v
Ответить
Сообщение JayBhagavan, спасибо огромное! Чудесно! Автор - Nata82v Дата добавления - 23.12.2014 в 10:30
Richman
Дата: Среда, 24.12.2014, 23:05 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 346
Репутация:
54
±
Замечаний:
0% ±
Excel 2007
Nata82v , Вот здесь я поднимал вопрос по обработке поисковых запросов. Может будет интересно. Pelena предложила отличный вариант
Nata82v , Вот здесь я поднимал вопрос по обработке поисковых запросов. Может будет интересно. Pelena предложила отличный вариантRichman
С Уважением, Richman
Ответить
Сообщение Nata82v , Вот здесь я поднимал вопрос по обработке поисковых запросов. Может будет интересно. Pelena предложила отличный вариантАвтор - Richman Дата добавления - 24.12.2014 в 23:05
Nata82v
Дата: Четверг, 25.12.2014, 12:55 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Richman, спасибо, изучаю))
Ответить
Сообщение Richman, спасибо, изучаю)) Автор - Nata82v Дата добавления - 25.12.2014 в 12:55
_Boroda_
Дата: Четверг, 25.12.2014, 13:49 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16913
Репутация:
6617
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Вариант формулой Код
=ИНДЕКС(A$1:E$11;ОСТАТ(СТРОКА(H1)+ЧСТРОК(A1:A11)-1;ЧСТРОК(A1:A11))+1;ОТБР((СТРОКА(H1)-1)/ЧСТРОК(A1:A11))+1)&""
Вариант формулой Код
=ИНДЕКС(A$1:E$11;ОСТАТ(СТРОКА(H1)+ЧСТРОК(A1:A11)-1;ЧСТРОК(A1:A11))+1;ОТБР((СТРОКА(H1)-1)/ЧСТРОК(A1:A11))+1)&""
_Boroda_
К сообщению приложен файл:
45_1.xlsx
(11.6 Kb)
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Вариант формулой Код
=ИНДЕКС(A$1:E$11;ОСТАТ(СТРОКА(H1)+ЧСТРОК(A1:A11)-1;ЧСТРОК(A1:A11))+1;ОТБР((СТРОКА(H1)-1)/ЧСТРОК(A1:A11))+1)&""
Автор - _Boroda_ Дата добавления - 25.12.2014 в 13:49