Всем доброе утро. В общем, имеется файл с таблицей значений (15000 строк, 160 столбцов). Мне нужно перенести эту таблицу в другой файл на 1 лист в таком же порядке. Я понимаю, что задача не сложная, но сделать это пока что не удается. Получилось только копировать по столбцу. Может ли мне кто-нибудь подсказать, как это реализовать? Спасибо заранее.

Sub Макрос1()
Dim a, b As Workbook
Dim i, j, k As Integer
Set a = ThisWorkbook
Set b = Workbooks.Open("C:\БАЗА.xls")
For i = 2 To b.Sheets(7).Range("A2").SpecialCells(xlLastCell).Row
a.Sheets(1).Cells(i, 1).Value = b.Sheets(7).Cells(i, 1).Value
a.Sheets(1).Range("A2:DE10").Value = b.Sheets(7).Range("A2:DE10").Value
Next i
End Sub

ЗЫ: можно ли, выделенные красным цифры, задать через цикл?

У меня просто файлов 7 таких будет, хотелось бы все автоматизировать, потому что столбцы бывают перепутанными,а каждый раз искать все это очень напряжно.

Ну типа того :) Ну серьезно :)

b.Sheets(7).Range("A2:DB"+CStr(i)"").Copy _
Destination:=a.Sheets(1).Range("A2")

Вот что придумал, но ругается на эту строчку... в чем проблема?

Всем спасибо, надо было просто поставить + :) "+CStr(i)+"

AkinaСтроки не складывают (+), а конкатенируют (&)...

Что-то не совсем понял...

Возможно. Просто с плюсами все работает.

Спасибо. Я запомню.