Привет!
Пишу макрос, в котором формула с помощью ВПР по ID из первого файла находит значение во втором файле (базе), пишет его в первый файл и преобразовывает его в значение.
Макрос считает мои 80 500+ строк около 20 минут

Если руками делать, т.е. вставить формулу в первую ячейку, клацнуть по черному кубику в правом углу, то весь столбец считается за 5 минут + макросом преобразовываю формулы в значения.
Подскажите, может я не так макрос пишу:
Код |
---|
Function FillColum2()
Dim formula As String
Dim counter As Long
counter = 3
Debug.Print ("Время начала " & Now)
Range("K32:K80401").Select
For Each cell In Selection
formula = "=ВПР('[Файл_1.xlsb]ID'!A" & counter & ";'[Файл_2.xlsb]База'!$A$3:$AE$80500;13;ЛОЖЬ)"
cell.FormulaLocal = formula
cell.formula = cell.Value
counter = counter + 1
Next cell
Debug.Print ("Время окончания " & Now)
End Function
|