Помогите, пожалуйста, найти ошибку. Написала макрос на заполнение таблицы данными из другого файла. Проблема в том, что при следующем заполнении происходит замена уже имеющихся данных. А надо что б новые данные добавились ниже.
Код |
---|
Sub zzzzz()
Dim Arr(1000, 40)
MsgBox "Укажите путь к сбыту"
FilePath1 = Application.GetOpenFilename()
MsgBox "Укажите путь к заполняемому файлу"
FilePath2 = Application.GetOpenFilename()
Workbooks.Open Filename:=FilePath1, UpdateLinks:=0
Range("A65536").Select
Selection.End(xlUp).Select
Rowsend1 = ActiveSheet.Cells.Row
For i = 2 To 1000
For j = 1 To 35
Arr(i, j) = ActiveSheet.Cells(i, j).Value
Next
Next
ActiveWindow.Close (False)
Workbooks.Open Filename:=FilePath2, UpdateLinks:=0
Worksheets("вся техника").Activate
Range("A65536").Select
Selection.End(xlUp).Select
Rowsend2 = ActiveSheet.Cells.Row + 1
For i = 2 To 1000
ActiveSheet.Cells(Rowsend2, 3).Value = Arr(i, 1)
ActiveSheet.Cells(Rowsend2, 20).Value = Arr(i, 23)
ActiveSheet.Cells(Rowsend2, 4).Value = Arr(i, 2)
ActiveSheet.Cells(Rowsend2, 6).Value = Arr(i, 10)
ActiveSheet.Cells(Rowsend2, 7).Value = Arr(i, 9)
ActiveSheet.Cells(Rowsend2, 19).Value = Arr(i, 22)
ActiveSheet.Cells(Rowsend2, 21).Value = Arr(i, 11)
ActiveSheet.Cells(Rowsend2, 23).Value = Arr(i, 26)
Rowsend2 = Rowsend2 + 1
Next
End Sub |