Слияние текстов с разных листов на один

Дата: Суббота, 10.05.2014, 18:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Имеется книга на 100 листов. На каждом листе в ячейке (допустим, В10) занесена Фамилия И.О. Надо сложить листы так, чтобы в сводном листе фамилии тоже в ячейке В10 были через запятую. Пробовал через СЦЕПИТЬ, но там надо для каждого листа вводить ссылку- замучаешься. Можно ли как для чисел через ":"? Т.е. Указать только первый и последний лист. Помогите!!!

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

Дата: Суббота, 10.05.2014, 19:17 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Бильбо, 10.05.2014 в 18:40, в сообщении № 1

Можно ли как для чисел через ":"?

Средствами Excel - нельзя. Надо привлекать VBA

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 10.05.2014, 19:27 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Я не силен в Excel. Что такое VBA? Какой выход из ситуации? Просто мне надо объединить заявки на обучение медсестер. Они поступают в стандартной форме в виде таблицы. Порядка 100 заявок. В них фамилии слушателей. Я их копирую в одну книгу (одна заявка - один лист). В итоге все надо вывести на один (предположим последний) лист.

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

Дата: Суббота, 10.05.2014, 19:34 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Бильбо, 10.05.2014 в 19:27, в сообщении № 3

Что такое VBA?

Язык программирования. В Гугле набрать "Что такое VBA" сил не хватает?

Цитата Бильбо, 10.05.2014 в 19:27, в сообщении № 3

Какой выход из ситуации?

Читайте правила форума

Цитата Бильбо, 10.05.2014 в 19:27, в сообщении № 3

копирую в одну книгу (одна заявка - один лист

Надо все данные располагать на одном листе. Тогда легко средствами Excel решить Вашу задачу

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 11.05.2014, 13:28 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Для Boroda. Прикладываю файл Заявки. В сводном листе все написано.

К сообщению приложен файл: 7338668.xlsx (21.0 Kb)

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

_Boroda_

Дата: Воскресенье, 11.05.2014, 14:08 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16800

Репутация: 6558 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
Макросы надо разрешить.

К сообщению приложен файл: 7338668_1.xlsm (29.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Воскресенье, 11.05.2014, 14:28 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Вариант:[vba]

Код

Option Explicit

Sub Bilbo()
Dim ws As Worksheet
Dim Val As String
Static Counter As Long
      For Each ws In ThisWorkbook.Worksheets
      Val = ws.Range("c4").Offset(Counter + 1).Value + ", " + Val
      Next ws
          Worksheets("Сводный").Range("c4").Offset(Counter + 1).Value = Val
              Counter = Counter + 1
      If Counter > 4 Then
      Counter = 0
      ElseIf Counter > 4 Then
      Exit Sub
      Else
      Call Bilbo
      End If
End Sub

[/vba]

К сообщению приложен файл: Bilbo.rar (15.3 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 11.05.2014, 14:30 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

О, Великий! Именно так. Но если я добавляю еще лист с заявкой, то в сводном у меня данные не изменяются. Или в самих заявках надо будет менять одну или несколько фамилий. Этот пример был на 4 заявки, а их бывает до 100. Я не пойму. (Я старый больной хоббит...)

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

Дата: Воскресенье, 11.05.2014, 14:31 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Прошу прощения! Кажется я разобрался! После добавления новой заявки надо просто щелкнуть по строке формул в сводном листе. Происходит обновление!!! Поковыряюсь и если что-то не так, позвольте обратиться? Спасибо!!!

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

Дата: Воскресенье, 11.05.2014, 14:34 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Бильбо, 11.05.2014 в 14:30, в сообщении № 9

если я добавляю еще лист с заявкой, то в сводном у меня данные не изменяются

Поправил:[vba]

Код

Sub Bilbo()
Dim ws As Worksheet
Dim Val As String
Static Counter As Long
Dim CountSheets As Long
CountSheets = ThisWorkbook.Worksheets.Count - 1
      For Each ws In ThisWorkbook.Worksheets
      Val = ws.Range("c4").Offset(Counter + 1).Value + ", " + Val
      Next ws
          Worksheets("Сводный").Range("c4").Offset(Counter + 1).Value = Val
              Counter = Counter + 1
      If Counter > CountSheets Then
      Counter = 0
      ElseIf Counter > CountSheets Then
      Exit Sub
      Else
      Call Bilbo
      End If
End Sub

[/vba]

К сообщению приложен файл: Bilbo_2.rar (15.2 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 11.05.2014, 14:40 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо и Serge 007 и Boroda!!! Оба Ваших файла работают (а как же иначе?). Опробую на работе. Есле все будет ОК, тему можно будет закрыть?

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."