ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос в XLS: данные из всех листов перенести в новый
8 сообщений из 8, страница 1 из 1
макрос в XLS: данные из всех листов перенести в новый
    #38287232
объединатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объединатор
Гость
В одной книге полсотни листов, имена этих листов - неизвестны (задаются разными ... буквально от уличного фонаря). Нужно в этом же файле макросом создать новый лист с каким-нибудь уникальным именем (например "00000-00000" - до такого имени мои искушённые работой зверята точно не додумаются), выделить и перенести в этот лист данные из всех листов, после чего (желательно) удалить листы-источники, оставив лишь один сборный: "00000-00000".


В листах-источниках, если что, данные предельно просты: в них таблички по 15-20 колонок и с парой-тройкой тысячей строк.
...
Рейтинг: 0 / 0
05.06.2013, 18:07
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287240
объединатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объединатор
Гость
"выделить и перенести" - имелось ввиду действие по порядку: первый лист > скопировать в "00000-00000", второй лист > скопировать в "00000-00000" > и т.д. до последнего существующего листа. Такое вообще в Excel можно сделать макросом, нет?
...
Рейтинг: 0 / 0
05.06.2013, 18:11
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287259
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
объединатор,

Как собрать данные с нескольких листов или книг?
...
Рейтинг: 0 / 0
05.06.2013, 18:22
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287299
объединатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объединатор
Гость
Спасибо за посильную помощь, но я не в состоянии переделать предложенный мне вариант под свои нужды. Интерактивный вариант - это хорошо, но не в моём случае :(
У меня типичный клинический случай: мне нужно, чтобы всё делалось в классический "один клик".
...
Рейтинг: 0 / 0
05.06.2013, 18:39
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287306
объединатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объединатор
Гость
На форуме программеров нашлось то, что нужно:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub pp()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim shItog As Worksheet
Dim iL As Long, iL2 As Long
Set shItog = Sheets("лист1") 'итоговый лист
For Each sh In Worksheets
If sh.Name <> shItog.Name Then
iL = sh.Cells(Rows.Count, 1).End(xlUp).Row
iL2 = shItog.Cells(Rows.Count, 1).End(xlUp).Row + 2
sh.Range(sh.Cells(1, 1), sh.Cells(iL, 10)).Copy shItog.Cells(iL2, 1)
End If
Next sh
Application.ScreenUpdating = True
End Sub



Осталось единственное - грохнуть всё, что не имеет отношения к (" лист1 "). Т.е. все остальные листы.
...
Рейтинг: 0 / 0
05.06.2013, 18:46
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287364
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
объединаторОсталось единственное - грохнуть всё, что не имеет отношения к (" лист1 "). Т.е. все остальные листы.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub DelSheetsExcept(shKeepName As String)
    Dim sh As Object, aSh(), i&
    If Worksheets.Count < 2 Then Exit Sub
    ReDim aSh(Worksheets.Count - 2)
    i = 0
    For Each sh In Worksheets
        If sh.Name <> shKeepName Then
            aSh(i) = sh.Name
            i = i + 1
        End If
    Next
    Application.DisplayAlerts = False
    Sheets(aSh).Delete
    Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
05.06.2013, 19:32
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287719
объединатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объединатор
Гость
Спасибо большое!

Последняя просьба: скажите, можно ли создать лист в книге с заданным именем?
...
Рейтинг: 0 / 0
06.06.2013, 07:14
| Ответить | Цитировать | Написать  
макрос в XLS: данные из всех листов перенести в новый
    #38287754
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
нет, но никто не мешает сразу его переименовать
Код: vbnet
1.
2.
Set sh = Worksheets.Add
sh.Name = "уух"
...
Рейтинг: 0 / 0
06.06.2013, 08:55
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос в XLS: данные из всех листов перенести в новый
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2174757]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 11ms
get first new msg:
 8ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 312ms
total:  445ms
созд. / загр.: 445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]