Excel VBA: как добавить записи из одного листа в последний ряд другого листа - PullRequest
Новая
       31

Excel VBA: как добавить записи из одного листа в последний ряд другого листа

0 голосов
/ 06 апреля 2019

У меня есть код, и он несколько работает.Он копирует рабочий лист из рабочей книги в массив рабочих книг, а затем корректно вставляет данные в основную рабочую книгу / рабочий лист.Когда он копирует и вставляет другой лист в эту главную рабочую книгу / рабочий лист, он находит последнюю строку и вставляет ее правильно.Однако, когда он переходит к следующей книге и листу в массиве, он хорошо копирует лист, но не вставляет его, начиная с последней пустой строки.Да, я знаю, что это просто, но не туда добраться. 

If IsArray(FileArray) Then
   For i = LBound(FileArray) To UBound(FileArray)
      Set myBook = Workbooks.Open(FileArray(i))
      Sheets("Sheet1").Select
      Rows("1:4").Select
      Selection.Delete Shift:=xlUp
      For Each mySheet In myBook.Worksheets         
        mySheet.Range("A1").CurrentRegion.Copy
        Basebook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 
        0).PasteSpecial Paste:=xlPasteValues
      Next mySheet
      myBook.Close
   Next i
...