VBA VLookUp이 작동하지 않습니다.

Question

안녕하세요. VBA에서 VLookUp 함수를 사용하려고합니다. 그것은 오류와 함께 제공, 내가 희망 2017년 9월 13일

Sub VLookUp() 

Dim i As Integer 

Dim k As Integer 

For i = 1 To 10 

ThisWorksheet.Cells(1 + i, 11) = WorksheetFunction.VLookUp(Cells(1 + i, 2), Worksheets("13.09.2017").Range("B2:K11"), 10, False) 

Next 

End Sub 

enter image description here 라는 시트에서 데이터를 가져하려고 "는 worksheetFunction 클래스의 VLOOKUP 속성을 가져올 수 없습니다"당신은 내게

을 도울 수

Answer 1

ThisWorksheet은 VBA 개체 라이브러리의 일부가 아닙니다. 당신의 코드가 처음에 중단됩니다 ThisWorksheet 문제 옆에

Sub VLookUp() 

    Dim i As Integer 
    Dim k As Integer 

    With ThisWorkbook.ActiveSheet 
     For i = 1 To 10 
      .Cells(1 + i, 11) = WorksheetFunction.VLookUp(.Cells(1 + i, 2), _ 
       Worksheets("13.09.2017").Range("B2:K11"), 10, False) 
     Next 
    End with 

End Sub 

Answer 2

: 당신은 아마이 말은 ActiveSheet (이것은 adviseable 아니라, 작동)를 사용하려는 경우, 그것을 수행하는 방법이다 ThisWorksbook

필요 vlookup이 범위에서 값을 찾지 못하는 인스턴스. 이 코드 만 실행하면 오류가 발생하지 않도록 On Error Resume Next 문을 추가하십시오.

Sub VLookUp() 

    Dim i As Integer 
    Dim k As Integer 
    On Error Resume Next 
    With ActiveSheet 
    For i = 1 To 10 
     .Cells(1 + i, 11) = WorksheetFunction.VLookUp(.Cells(1 + i, 2), _ 
      Worksheets("13.09.2017").Range("B2:K11"), 10, False) 
    Next 
    End With 
End Sub