Блог

Следующий макрос использует функцию VLookup между двумя книгами. Обе книги содержат таблицы. Цель состоит в том, чтобы book1 обновил значения из book2

Потеря данных (ячейки, имеющие значения в книге 1, столбец 7 удаляется) происходит всякий раз, когда значение поиска отсутствует в книге 2. Что приводит к моему вопросу: как предотвратить это удаление?

 Sub Update()
Dim lookFor As Range
Dim srchRange As Range

Dim book1 As Workbook
Dim book2 As Workbook

Dim book2Name As String
book2Name = "table2.xlsm"

Dim book2NamePath As String
book2NamePath = ThisWorkbook.Path amp; "" amp; book2Name

Set book1 = ThisWorkbook

If IsOpen(book2Name) = False Then Workbooks.Open (book2NamePath)
Set book2 = Workbooks(book2Name)

Set lookFor = book1.Sheets(1).Range("a23:a100")
Set srchRange = book2.Sheets(1).Range("b:f")

lookFor.Offset(0, 7).Value = Application.VLookup(lookFor, srchRange, 2, False)

End Sub
  

Проверьте возвращаемое значение и обновите, только если есть что возвращать.

 Dim val as Variant

Set lookFor = book1.Sheets(1).Range("a23:a100")
Set srchRange = book2.Sheets(1).Range("b:f")

val = Application.VLookup(lookFor.Cells(1), srchRange, 2, False)

If Not IsError(val) Then
    lookFor.Offset(0, 7).Value = val
End If
  

Вы можете протестировать возврат к варианту с помощью Application.VLookup или приложение.Совпадение. Это должно быть возвращено к варианту, и это не работает с WorksheetFunction.VLookup или worksheetфункция.Совпадение.