Vlookup

[CWD]

Добрый день, попытался реализовать аналог ВПР, но с автоматическим открытием файла. Почему это так медленно работает? Простой ВПР который вручную займет 10-30 секунд, в VBA работает аж 120-130 секунд. Как это можно ускорить? Спасибо.

Function vp()
t = Timer
Dim i As Long
i = 1
Dim wb As Workbook
Set wb = Workbooks.Open("F:/File1.xls")
Do While Not (IsEmpty(Workbooks("File2.xls").Sheets(1).Cells(i, 1)))
On Error Resume Next
Workbooks("File2.xls").Sheets(1).Cells(i, 2) = WorksheetFunction.VLookup(Workbooks("File2.xls").Sheets(1).Cells(i, 1), wb.Sheets(1).Range("A1:CB50000"), 80, False)
i = i + 1
Loop
wb.Close
MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Function

[EducatedFool]

Ускорить можно, только полностью переписав код
(вы выбрали самый медленный способ из всех возможных)

были бы примеры файлов, - глядишь, кто-нибудь и подкинул бы готовый код.
Думаю, время обработки реально сократить до 2-3 секунд


Кстати, можете попробовать мою надстройку, - аналог ВПР:
http://excelvba.ru/programmes/Lookup
Интересно узнать, за какое время она справится с задачей

[CWD]

ВПР надо делать к File2 из File1, необходимые значения находятся в File1 колонка CB или номер 80. Буду признателен если подскажите как сделать быстрее.

[RAN.]

Подгонять под ваши файлы желания нет

Sub Мяу()
[b1:b7].FormulaR1C1 = "=VLOOKUP(RC[16383],[Книга1.xlsx]Лист1!R1C1:R7C2,2,0)"
[b1:b7].Value = [b1:b7].Value
End Sub

[CWD]

Сообщение от RAN.

Подгонять под ваши файлы желания нет

Sub Мяу()
[b1:b7].FormulaR1C1 = "=VLOOKUP(RC[16383],[Книга1.xlsx]Лист1!R1C1:R7C2,2,0)"
[b1:b7].Value = [b1:b7].Value
End Sub

Здравствуйте. Реализовал ваш вариант

Function vp()
t = Timer
Dim i As Long
i = 1
Dim wb As Workbook
Set wb = Workbooks.Open("F:/File1.xls")

Workbooks("File2.xls").Sheets(1).Range("B:B").FormulaR1C1 = "=VLOOKUP(RC[-1],[File1.xls]Лист1!R1C1:R40000C80,80,0)"
Workbooks("File2.xls").Worksheets(1).Range("B:B") = Workbooks("File2.xls").Worksheets(1).Range("B:B").Value

wb.Close
MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Function

Время составило около 200 секунд, против 120-130 секунд выше изложенного варианта, что есть хуже на 50%. Спасибо.

[Hugo121]

Ну так конечно - у себя может всего десяток ячеек формулой забили, а тут аж целиком столбец!
Вы сперва определите диапазон, затем конкретно его и заполните.

[RAN.]

Провел эксперимент

Sub qq()
Dim t!
Dim wb As Workbook
t = Timer
ThisWorkbook.Sheets(1).Range("B1:B40000").FormulaR1C1 = "=VLOOKUP(RC[-1],[Книга3.xlsx]Лист1!R1C1:R40000C80,80,0)"
ThisWorkbook.Worksheets(1).Range("B1:B40000").Value = ThisWorkbook.Worksheets(1).Range("B1:B40000").Value
Debug.Print "t1:  "; Format(Timer - t, "0.0000")
ThisWorkbook.Worksheets(1).Range("B1:B40000").Clear
t = Timer

Set wb = Workbooks.Open("D:\a\Книга3.xlsx")
Debug.Print "t2:  "; Format(Timer - t, "0.0000")
t = Timer

ThisWorkbook.Sheets(1).Range("B1:B40000").FormulaR1C1 = "=VLOOKUP(RC[-1],[Книга3.xlsx]Лист1!R1C1:R40000C80,80,0)"
ThisWorkbook.Worksheets(1).Range("B1:B40000").Value = ThisWorkbook.Worksheets(1).Range("B1:B40000").Value
Debug.Print "t3:  "; Format(Timer - t, "0.0000")
'ThisWorkbook.Worksheets(1).Range("B1:B40000").Clear
wb.Close
End Sub

t1: 28,5469
t2: 0,5938
t3: 12,4531

Но почему, когда без явного открытия книги тянет, время чуть не втрое больше?

[IgorGO]

чтобы посмотреть данные - файл все равно открыть надо, и если это не далает явно программист, то делают какие-то внутренние процессы ексель, и уже какая разница какие...
когда эмпирическим путем установлено, как быстрее.

[Hugo121]

Я не понял - а откуда ВПР() в первом варианте берёт данные? Если такая книга не открыта - следует запрос файла, может поэтому время больше - Вы медленно мышом шевелили? ?)

[RAN.]

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