VBA VLookUpが動作しない

Question

こんにちは、私はVBAでVLookUp関数を使用しようとしています。 それは、私はあなたが私

を助けることができると思います

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 2017年9月13日

と呼ばれるシートからデータを取得しようとしている 「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