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

Не буду долго рассказывать как я боролся с PLEX и google знаниям. Просто прошу помощи. Пример прилагается.

Заранее спасибо!
...
Рейтинг: 0 / 0
21.10.2011, 12:42
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492236
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Barrik,

 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Sub www()
    Dim i&
    With Worksheets.Add
        .Move after:=Sheets(Sheets.Count)
        Worksheets( 2 ).[a1].EntireRow.Copy .[a1]
        For i =  2  To ThisWorkbook.Worksheets.Count -  1 
            Worksheets(i).UsedRange.Offset( 1 ).Columns("I").SpecialCells( 2 ,  1 ).EntireRow.Copy .[a65536].End(xlUp).Offset( 1 )
        Next
        .Move
    End With
End Sub
...
Рейтинг: 0 / 0
21.10.2011, 13:17
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492265
Barrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barrik
Гость
kuklp,

Спасибо за макрос. но есть нюанс:

В вашем примере он работает отлично, но при переносе макроса в другой файл при выполнении макроса происходить создание нового листа и действия не выполняются. Просто создается новый лист. Копи&паст макроса не помогает
...
Рейтинг: 0 / 0
21.10.2011, 13:31
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492293
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Barrik,
а я при чем? Я не экстрасенс. Что дали, на том и сделал:-)
...
Рейтинг: 0 / 0
21.10.2011, 13:41
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492318
Barrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barrik
Гость
kuklp,

Не могу отправить полный файл, так как он в сжатом виде занимает больше 150 KB. Как мне можно Вам его доставить?)
...
Рейтинг: 0 / 0
21.10.2011, 13:54
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492557
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Barrik, kuklp@mail.ru
...
Рейтинг: 0 / 0
21.10.2011, 15:49
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492563
Barrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barrik
Гость
kuklp,

Отправил!
...
Рейтинг: 0 / 0
21.10.2011, 15:52
| Ответить | Цитировать | Написать  
Копирование строк по диапазону значений в столбце
    #37492643
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Barrik,

 
Отправил.
...
Рейтинг: 0 / 0
21.10.2011, 16:19
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование строк по диапазону значений в столбце
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37492151&tid=2176372]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 133ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 209ms
total:  421ms
созд. / загр.: 421ms
x
x
Закрыть


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