ошибку For i = 6 To c2value + 4 Worksheets("Результат расчета").Cells(c1value + 4, i).formula = "=" & Worksheets("Модуль распределения").Name & "'!" & Worksheets("Модуль распределения").Cells(8, i + 2).Address & "/SUM(" & Worksheets("Результат расчета").Cells(4, i).Address & ":" & Worksheets("Результат расчета").Cells(c1value + 3, i).Address & ")"
Next i?
Лучше такое в файле представлять. Так очень трудно читать и в Watch не заглянуть, чтобы понять где именно косяк.
Обсуждают сегодня