Помогите, пожалуйста, разобраться.
Есть 2 книги, одна исходник - переменная Homebook, итоговая книга- переменная Finalbook
Макрос написала, чтобы из рэнджа в исходнике (2 диапазона), копировались и вставлялись данные в 7 и 9 столбец итоговой книги.
Все работает, но вставляет криво:
1) не убирает пропущенные пустые ячейки из диапазоне из исходника
2) в 9 столбец вставляет со сдвигом относительно 7, а должно быть на одинаковом уровне
Помогите, пожалуйста, что поправить надо?
Я новичок, учусь сама по инету. Искала причину, но не могу врубиться, где подкорректировать
Есть 2 книги, одна исходник - переменная Homebook, итоговая книга- переменная Finalbook
Макрос написала, чтобы из рэнджа в исходнике (2 диапазона), копировались и вставлялись данные в 7 и 9 столбец итоговой книги.
Все работает, но вставляет криво:
1) не убирает пропущенные пустые ячейки из диапазоне из исходника
2) в 9 столбец вставляет со сдвигом относительно 7, а должно быть на одинаковом уровне
Код |
---|
Sub Копирование() Dim HomeBook As Workbook Dim FinalBook As Workbook Set HomeBook = ActiveWorkbook Set FinalBook = Workbooks.Open("F:\4-Личные папки\Петрищева\База.xlsx") HomeBook.Worksheets("Итоговый отчет по выезду").Range("B13:B20").Copy Sheets("Единая база проблематики РФ").Cells(Sheets("Единая база проблематики РФ").Cells.SpecialCells(xlCellTypeLastCell).Cells(0, 1).Row, 7).PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone HomeBook.Worksheets("Итоговый отчет по выезду").Range("B25:B33").Copy Sheets("Единая база проблематики РФ").Cells(Sheets("Единая база проблематики РФ").Cells.SpecialCells(xlCellTypeLastCell).Cells(0, 1).Row, 9).PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone End Sub |
Помогите, пожалуйста, что поправить надо?
Я новичок, учусь сама по инету. Искала причину, но не могу врубиться, где подкорректировать