Блог

При попытке использовать функцию сопоставления я получаю сообщение об ошибке компиляции

вспомогательный элемент или функция не определены

 Option Explicit
Public Sub Test()
    Dim A, B, Addrs As String
    B = Cells(1, 2)
    A = Match(B, ActiveSheet.Columns(1), 0)
    
End Sub
  

Вы не можете использовать функции рабочего листа непосредственно для VBA . Используйте WorksheetFunction свойство объекта приложения, чтобы вернуть WorksheetFunction объект. Прочитайте эту статью из Microsoft Docs, чтобы узнать больше…

 Public Sub Test()
    Dim A, B, Addrs As String
    B = Cells(1, 2)
    A = Application.WorksheetFunction.Match(B, ActiveSheet.Columns(1), 0)
    MsgBox A
End Sub