エラーVLOOKUP

Question

を使用している間、私は、彼らが同じIDを持っている場合、私はlastweekのすべての詳細を取得したいと思い、シートの両方の列Bを比較したい2枚、理性とLastweek

を持っています理由シートの第33〜50欄のシート。

私は出力を得ることができます、問題は、例えばです。私の最後の週の欄の34欄にデータがあれば、それは理由票の33欄に入力されています。

私はこれをどのように克服することができます誰かが助けることができます。

Sub lookupUpdate() 
Dim BWlRow As Long, CWlRow As Long, i As Long 
Dim sformula As String 
Dim wsBW As Worksheet, wsCW As Worksheet 
Set wsBW = Sheets("Reason"): Set wsCW = Sheets("Lastweek") 
BWlRow = wsBW.Cells(wsBW.Rows.count, "A").End(xlUp).Row 
CWlRow = wsCW.Cells(wsCW.Rows.count, "A").End(xlUp).Row 
For i = 33 To 50 '~~> Col AD to AU 
sformula = "=IF(IFERROR(VLOOKUP($B2,Lastweek!$B$2:$AZ" & _ 
CWlRow & _ 
"," & _ 
i & _ 
",FALSE),""0"")=0,"" "",IFERROR(VLOOKUP($B2,Lastweek!$B$2:$AZ" & _ 
CWlRow & _ 
"," & _ 
i & _ 
",FALSE),""""))" 
With wsBW 
With .Range(.Cells(2, i), .Cells(BWlRow, i)) 
.Formula = sformula 
.Value = .Value 
End With 
End With 
Next i 
End Sub 

Answer 1

列番号33の例を使用すると、VlookupはLastWeekシートのセルB2から始まる範囲を探しています。この範囲の33番目の列はシートの列AHになります。数式を出力するときは、Reasonシートのi列に出力しています。私は33で、これは列AGです。列AH（列番号34、またはi + 1）に出力する場合。あなたの代わりにA2のB2に基づいてでVLOOKUPを使用して検索している領域は、あなたがVLOOKUPに与えられた列オフセットから1を減算する必要があるので

With .Range(.Cells(2, i + 1), .Cells(BWlRow, i + 1)) 

Answer 2

：あなたは、単にこの行を変更することにより、これを行うことができます。

「はじめに」セクションの最初の例を参照してください。列D（Part Price）のデータを検索しても、オフセットは3です。

https://support.office.com/en-us/article/VLOOKUP-function-0bbc8083-26fe-4963-8ab8-93a18ad188a1