Подскажите, пожалуйста, что добавить в код, чтобы скопировать целиком все данные из одного листа одной книги на лист другой книги, сохранив форматирование. Строк может быть любое количество, столбцов не больше диапазона "A:Z".
На новый лист нужно вставить лист целиком, чтобы все прежние данные затерлись. Своего рода аналог ctrl+a, ctrl+c в копируемом листе, ctrl+a, ctrl+v на листе куда вставляем.
По коду вроде все копирует, но если старых строк на втором листе больше, старые данные остаются после вставки.
На новый лист нужно вставить лист целиком, чтобы все прежние данные затерлись. Своего рода аналог ctrl+a, ctrl+c в копируемом листе, ctrl+a, ctrl+v на листе куда вставляем.
По коду вроде все копирует, но если старых строк на втором листе больше, старые данные остаются после вставки.
Код |
---|
Sub копироватьвставить() Dim wb1 As Workbook, wb3 As Workbook Set wb1 = Workbooks("книга1.xlsx") Set wb3 = Workbooks("книга2.xlsm") wb1.Sheets("Лист1").Rows("2:2").AutoFilter wb1.Sheets("Лист1").Range("A:Z").AutoFilter Field:=4, Criteria1:="=", Operator:=xlOr, Criteria2:="заголовок" wb1.Sheets("Лист1").Range("A:Z").AutoFilter Field:=3, Criteria1:="<>", Operator:=xlOr, Criteria2:="заголовок" wb1.Sheets("Лист1").Cells.CurrentRegion.Copy wb3.Sheets("Лист1").Cells.PasteSpecial xlPasteValues wb3.Sheets("Лист1").Cells.PasteSpecial Paste:=xlPasteFormats End Sub |