Помогите решить задачку на VBA в экселе

[NightX]

HELP! Нужно написать программу слияния нескольких экселевских файлов в один большой. Я код вроде написал, но заполняется она не полностью.
Вот Код
Public Sub Слияние()
Dim sht As Sheets, wrks
'слияние
n = Worksheets("ПереченьКафедр").Range("A5:A7").CurrentRegion.Rows.Count
k = 5
For i = 3 To n
A = Worksheets("ПереченьКафедр").Cells(i, 2)
B = "C:\Documents and Settings\Симонов Павел\Рабочий стол\РГР\" + A
Set wrks = Workbooks.Open(B)
For j = 5 To 72
Workbooks("Кафедра.xls").Worksheets("ДоктораЮРиЭк").Cells(k, j) = Workbooks(A).Worksheets("ДоктораЮРиЭк").Cells(6, j)
Next j
wrks.Close
k = k + 1
Next i
End Sub
Файл кафедра-в него надо слить файлы из адреса C:\Documents and Settings\Симонов Павел\Рабочий стол\РГР\ ДоктораЮРиЭк-этто рабочий лист в который надо залить.В листе "Перечнь кафедр" находятся названия файлов которые над слить.
Посмотрите код, и если че исправьте пжлст...

[Falsehood]

но заполняется она не полностью

кто такая она, и что значит, неполностью заполняется?

[NightX]

но заполняется она не полностью

кто такая она, и что значит, неполностью заполняется?

Она этоТаблица в которую надо слить 3 маленьких таблиц.
Неполностью то есть по одной строке из каждой маленькой таблицы заполняется в большую. А надо чтобы все строки(их там всего 3)

[Falsehood]

а.. точно. 6-ая...
цикл

Код:

For j = 5 To 72
Workbooks("Кафедра.xls").Worksheets("ДоктораЮРиЭк").Cells(k, j) = Workbooks(A).Worksheets("ДоктораЮРиЭк").Cells(6, j)
Next j

надо вложить в еще один цикл по всем строкам листа "ДоктораЮРиЭк" книги А

[NightX]

В смысле? Нужно написать для каждй строки свой цикл?
Можешь примерно накатать как это будет выглядеть?

[Falsehood]

Код:

for l = 6 to <сколько строк в маленькой таблице>
   For j = 5 To 72
      Workbooks("Кафедра.xls").Worksheets("ДоктораЮРиЭк").Cells(k, j) = Workbooks(A).Worksheets("ДоктораЮРиЭк").Cells(l, j)
   Next j
   k = k + 1
next l

[NightX]

То есть вся пога выглядит так:

Код:

Public Sub Слияние()
Dim sht As Sheets, wrks
'слияние
n = Worksheets("ПереченьКафедр").Range("A5:A7").CurrentRegion.Rows.Count
k = 5
For i = 6 To 3
A = Worksheets("ПереченьКафедр").Cells(i, 2)
B = "C:\Documents and Settings\Симонов Павел\Рабочий стол\РГР\" + A
Set wrks = Workbooks.Open(B)
For j = 5 To 72
      Workbooks("Кафедра.xls").Worksheets("ДоктораЮРиЭк").Cells(k, j) = Workbooks(A).Worksheets("ДоктораЮРиЭк").Cells(i, j)
   Next j
   k = k + 1
Next i
End Sub

Или нет?

[Falsehood]

NightX, нет! у тебя должно быть три цикла:
- по стокам листа "ПереченьКафедр" : for i = 3 to n
    - по строкам на листе "ДоктораЮРиЭк" каждой открытой книги, имя которой ты хранишь в переменной А : for l = 6 to <сколько там строк>
        - по ячейкам этой каждой строки : for j = 5 to 72
            ...
        next j
    next l
next i

в VBA нормальный отладчик. запусти свой макрос из первого поста в нем и посмотри как он работает пошагово. сразу все понятно станет.