Добрый вечер. Снова надеюсь на Вашу помощь. Есть файл, в котором немалое количество листов. Мне нужно, чтобы, начиная с ячейки А8 и до строки "Всего с НДС" копировались все листы друг за другом вниз на новый лист. На сайте поискал, но мне ничего не подошло. Дело в том, что в этом диапазоне (от А8 до "Всего с НДС") количество необходимых строк для копирования на листах всегда разное, и я не могу задать какой-то определенный интервал для копирования.
Добрый вечер. Снова надеюсь на Вашу помощь. Есть файл, в котором немалое количество листов. Мне нужно, чтобы, начиная с ячейки А8 и до строки "Всего с НДС" копировались все листы друг за другом вниз на новый лист. На сайте поискал, но мне ничего не подошло. Дело в том, что в этом диапазоне (от А8 до "Всего с НДС") количество необходимых строк для копирования на листах всегда разное, и я не могу задать какой-то определенный интервал для копирования.Leojse
Sub t() j = 1 With ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1)) For i = 2 To ThisWorkbook.Worksheets.Count With ThisWorkbook.Worksheets(i) Set r = .[a:a].Find(what:="ВСЕГО с НДС", lookat:=xlWhole) If Not r Is Nothing Then .Range(.[a8], r).EntireRow.Copy End With If Not r Is Nothing Then .Range(.Cells(j, 1), .Cells(r.Row + j - 7, 1)).EntireRow.PasteSpecial j = j + r.Row - 7 End If Next End With End Sub
[/vba]
[vba]
Код
Sub t() j = 1 With ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1)) For i = 2 To ThisWorkbook.Worksheets.Count With ThisWorkbook.Worksheets(i) Set r = .[a:a].Find(what:="ВСЕГО с НДС", lookat:=xlWhole) If Not r Is Nothing Then .Range(.[a8], r).EntireRow.Copy End With If Not r Is Nothing Then .Range(.Cells(j, 1), .Cells(r.Row + j - 7, 1)).EntireRow.PasteSpecial j = j + r.Row - 7 End If Next End With End Sub
ikki, Спасибо Вам большое за труды! Но возник вопросик.... С первого и со второго листа не копируются строчки "Всего с НДС", а с третьего листа копируется строчка "Потери", которую копировать не нужно. Можно это как-то поправить?
ikki, Спасибо Вам большое за труды! Но возник вопросик.... С первого и со второго листа не копируются строчки "Всего с НДС", а с третьего листа копируется строчка "Потери", которую копировать не нужно. Можно это как-то поправить?Leojse
Снова возник вопрос. Хотел макрос вставить в обычный модуль листа личной книги макросов и повесить этот макрос на кнопку. Но так макрос не работает, он работает только, находясь в модуле самого фала. Подскажите, есть ли возможность поправить это, чтобы макрос срабатывал из личной книги макросов?
Снова возник вопрос. Хотел макрос вставить в обычный модуль листа личной книги макросов и повесить этот макрос на кнопку. Но так макрос не работает, он работает только, находясь в модуле самого фала. Подскажите, есть ли возможность поправить это, чтобы макрос срабатывал из личной книги макросов?Leojse
Добрый вечер. Вопрос противоречит теме, но все же спрошу.... Подскажите, а можно ли добавить как бы опцию выбора книг, с которых нужно сделать копирование?
Добрый вечер. Вопрос противоречит теме, но все же спрошу.... Подскажите, а можно ли добавить как бы опцию выбора книг, с которых нужно сделать копирование?Leojse
Сообщение отредактировал Leojse - Воскресенье, 22.12.2013, 22:59