Функция Excel VBA vlookup с ошибкой времени выполнения

Я использую функцию vlookup, чтобы найти общие строковые значения из столбца A рабочего листа1 в столбец рабочего листа2, запускаемый кнопкой.

Я столкнулся с ошибкой 1004 времени выполнения с «Не удалось получить свойство VLookup класса WorksheetFunction».

Dim Sh1 As Worksheet, Sh2 As Worksheet Dim RefRange As range Dim index1 As Integer, index2 As Integer, sheet1_last_count As Integer, sheet2_last_count As Integer work_week = ww_text.Text lip_score = score_text.Text With ThisWorkbook Set Sh1 = .Sheets("Sheet1") Set Sh2 = .Sheets("Sheet2") End With sheet1_score = WorksheetFunction.Sum(Worksheets("Sheet1").range("A1:A5")) sheet1_last_count = Sh1.range("A" & Rows.Count).End(xlUp).Row sheet2_last_count = Sh2.range("A" & Rows.Count).End(xlUp).Row RowCount = Sh1.range("A1").CurrentRegion.Rows.Count Set RefRange = Sh2.range(Sh2.Cells(1, 1), Sh2.Cells(sheet2_last_count, 1)) 

Я рассчитываю последнюю строку для диапазона, необходимого для поиска. Ниже приведены условия

 If work_week <> "" Then If lip_score = "" Then score_text.Text = sheet1_score For index1 = 1 To sheet1_last_count final_val = Application.WorksheetFunction.VLookup(Sh1.Cells(index1, 1).Value, RefRange, 1, False) On Error GoTo catchErrorMsg If final_val <> "" Then Sh1.Cells(index1, 3).Value = "success" Sh1.Cells(index1, 4).Value = index1 Sh1.Cells(index1, 5).Value = final_val ElseIf final_val = "" Then Sh1.Cells(index1, 3).Value = "none " Sh1.Cells(index1, 4).Value = index1 End If Next index1 End If End If 

Сообщение об ошибке также не работает.

 'Error Messages catchErrorMsg: If Err.Number = 1004 Then MsgBox "No match using VLOOKUP." ElseIf work_week = "" Then MsgBox "Please enter Work Week number." End If End Sub 

Interesting Posts

Как выбрать вручную, где нужно вставить значение / изображение

Ошибка подключения OLEDB 1004

Как происходит закрытие приложений Windows Forms и процессов excel.exe (возможно, через сборщик мусора)?

Как клонировать лист excel из одной книги в другую книгу с использованием Apache POI и Java?

Как переименовать таблицу доступа с помощью VBA из Excel?

Excel VBA, выбирая цвет диаграммы, основанный на сравнении значений серии

Сервлет читает только первые две строки из файла Excel

Копирование столбцов из массива в другой рабочий лист

Как объединить несколько файлов excel

(uiautomator) apache poi lib находится в пути к классам, но «ошибка: пакет org.apache.poi.hssf.usermodel не существует» происходит

Сравнение двух столбцов с идентификатором

Чтобы добавить изображение в excelsheet в iphone

Ошибка выполнения VBS / VBA

VBA Excel динамически отображает добавленные результаты

Переменные внутри формул с кавычками

Давайте будем гением компьютера.