В книгу1 на Лист3 ежедневно собирается база данных, количество строк всегда разное, но не больше 16000. Нужно в конце дня копировать данные в книгу сбор на Лист3 в конец, там они накапливаются.
Написала макрос но он не хочет работать, не могу понять почему?? Спасибо за помощь, ответ не смогла найти, т.к. похожие темы открывались пустые.
Написала макрос но он не хочет работать, не могу понять почему?? Спасибо за помощь, ответ не смогла найти, т.к. похожие темы открывались пустые.
| Код |
|---|
Windows("Книга.xlsx".Activate
Sheets("Лист3".Select
Rows("2:16000".Select
Selection.Copy
Windows("сбор.xlsx".Activate
Sheets("Лист3".Select
Cells(Rows.Count, "A".End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True |
