Добрый день! Помогите, пожалуйста с оптимизировать код, интересует та часть которая переносит данные на лист «EXIT». Структура всей системы такова есть файл управления, когда его запускаешь он начинает открывать все мелкие файлы и обновлять, после обновления в каждом файле начинает заполняться лист «EXIT»… проблема заключается в том, что заполнение листа «EXIT» занимает около 10 мин., это происходит только тогда когда эти маленькие файлы открываются через файл управление, а если каждый файл по отдельности открывать то лист заполняется быстро! Подскажите пожалуйста как ускорить этот процесс, пример файла с кодом прилагаю!
Вот код:
Option Explicit
Private Sub Workbook_Open()
Dim i As Integer
Dim d As Date
Dim s As Long
Dim f As String
Dim m As String
Dim k As String
Sheets("Оборудование ИТ").Select
If [h7] <> Date Then
Range(Cells(9, 8), Cells(9, 101 - Date + [h7])).Value = _
Range(Cells(9, 8 + Date - [h7]), Cells(9, 101)).Value
Range(Cells(9, 101 - Date + [h7] + 1), Cells(9, 101)).ClearContents
[h7] = Date
End If
Sheets("EXIT").Select
Selection.ClearContents
'перенос данных на лист EXIT
Sheets("Оборудование ИТ").Select
For i = 8 To 98
With Sheets(1)
f = .Cells(1, 4)
m = .Cells(2, 4)
k = .Cells(3, 4)
End With
With Sheets(2)
d = .Cells(7, i)
s = .Cells(9, i)
End With
Sheets("EXIT").Activate
Cells(i - 6, 2) = d
Cells(i - 6, 4) = s
Cells(i - 6, 1) = "БДДС"
Cells(i - 6, 3) = m
Cells(i - 6, 5) = k
Cells(i - 6, 6) = f
Next
End Sub
