Я пытаюсь использовать индекс и матч в VBA

Question

Я очень новичок в vba, и я приношу свои извинения за ошибки (многие), которые я сделал в коде ниже. Я получаю сообщение об ошибке, когда устанавливаю переменные x и y, но также при попытке запустить комбинацию индексов и совпадений. Любая помощь приветствуется!

Public Sub indexandmatch() 

Dim x As Range 
Dim y As Range 
Dim mycells As Range 
Dim p As Variant 

'workbooks(1) is the master workbook where I am trying to get the information from the other reports to be entered in to 

Application.Workbooks(1).Activate 

x = Application.Workbooks(2).Worksheets(1).Range("H:H") 
y = Application.Workbooks(2).Worksheets(1).Range("I:I") 

'range v is where I would like the values to be entered in the master 

For Each mycells In Range("V:V")  
    p = Application.WorksheetFunction.Index(x, Application.WorksheetFunction.Match(mycells.Offset(0, -11).Value, y), 0) 
    mycells = p.Value 
Next 

End Sub 

Answer 1

вы должны Set любых переменный объект, а range из них являются

затем использовать Application объект функцию, Обертывание возможной ошибки как возвращаемое значение, так что вы можете проверить его с IsError() функции и перейти соответственно

, наконец, избегать Select/Activate образец и использование в полном объеме ссылки на источники

Public Sub indexandmatch() 
    Dim x As Range 
    Dim y As Range 
    Dim mycells As Range 
    Dim p As Variant 

    'workbooks(1) is the master workbook where I am trying to get the information from the other reports to be entered in to 

    Set x = Workbooks(2).Worksheets(1).Range("H:H") 
    Set y = Workbooks(2).Worksheets(1).Range("I:I") 

    'range v is where I would like the values to be entered in the master 

    For Each mycells In Workbooks(1).Worksheets("myMasterWorksheetName").Range("V:V") '<--| use fully qualified (up to worksheet and workbook) range reference. (change "myMasterWorksheetName" to you actual master workbook relevant worksheet name 
     p = Application.Match(mycells.Offset(0, -11).Value, y) 
     If Not IsError(p) Then 
      p = WorksheetFunction.Index(x, p, 0) 
      If Not IsError(p) Then mycells = p 
     End If 
    Next 
End Sub