Sub ÌàêðîñÄëÿÈçãîòîâëåíèÿÏðîãíîçàÏîÑïèñêó()
Dim A(), i
For i = 1 To 21
Sheets("Ïðîãíîç Äëÿ Èëüè").Select
Worksheets("Ïðîãíîç Äëÿ Èëüè").Cells(1, 1) = i
'If Application.Wait(Now + TimeValue("0:00:01")) Then
'End If
A = Worksheets("Ïðîãíîç Äëÿ Èëüè").Range(Cells(85, 1), Cells(85, 14)).Value
Sheets("Ðåçóëüòàò ïðîãíîçà").Select
Worksheets("Ðåçóëüòàò ïðîãíîçà").Range(Cells(i + 1, 1), Cells(i + 1, 14)) = A
Next
End Sub
Ой, кодировка не проходит... Посмотрите как в этом файлике слелано:
Все предельно просто и в тоже время с большими возможностями для настройки и пересчета.