Vlookup関数で行と列を両方Loopで回したい

質問

エクセル2010です。
Vlookup関数を使って、下記のようなコードを作りました。
行のLoopはできたのですが、列がわからなくて
1列ごと、50列まで書きました。
列のLoopはどうすればいいのでしょうか？
よろしくお願いいたします。
Sub 毎月集計()
Dim i As Byte
Dim 範囲 As Range
Dim myV As Variant

Sheets("実績").Select
Set 範囲 = Worksheets("2月").Range("B7:AZ20")

For i = Application.InputBox("開始行を半角で入力してください。", Default:=123, Type:=1) To Application.InputBox( _
"最終行を半角で入力してください。", Default:=123, Type:=1)

myV = Application.VLookup(Range("B" & i).Value, 範囲, 2, False)
If IsError(myV) Then　　　　　　　　　　　　　　　
Range("C" & i).Value = "0"　　　　　　　　
Else
Range("C" & i).Value = myV
End If
myV = Application.VLookup(Range("B" & i).Value, 範囲, 3, False)
If IsError(myV) Then
Range("D" & i).Value = "0"
Else
Range("D" & i).Value = myV
End If
以下省略
Next i

End Sub

回答No.2

root8110 · ベストアンサー

検索対象はB列固定みたいなのでVLookupのRangeはRangeのままでいいです。
ちょっと説明の仕方が悪かったですね。

For j = 2 To 51
For i = i_start To i_end
myV = Application.VLookup(Range("B" & i).Value, 範囲, j, False)
If IsError(myV) Then
Cells(i, j + 1).Value = 0
Else
Cells(i, j + 1).Value = myV
End If
Next i
Next j

でも、改めて処理内容をみてみると、C列以降は同じ行をコピーしてるだけなのでこっちの方がシンプルです。

For i = i_start To i_end
Set myV = Worksheets("2月").Range("B7:B20").Find(Range("B" & i))
If myV Is Nothing Then
Range("C" & i).Resize(1, 50) = 0
Else
myV.Offset(0, 1).Resize(1, 50).Copy Range("C" & i)
End If
Next i

お礼

root8110さん、ありがとうございました。
両方、希望通りに動きました。速度も速いです！
Range("B" & i)も、検索の列が動かないようにということですね。
やっとわかりました。
ありがとうございました。

回答No.1

root8110

Cells(i,j)で、i行j列のセルが参照できます。
列のjも数字で、例えばRange("B1")はCells(1,2)、Range("C4")はCells(4,3)です。

Range("B"&i)のところをCells(i,j)に置き換えて、

For j=j_start To j_end
For i=i_start To i_end
・・・Cells(i,j)・・・
Next i
Next j

こんな感じでどうでしょうか。

補足

root8110さん、ありがとうございます。
いろいろ考えたのですが
myV = Application.VLookup(Cells(i, j + 1).Value, 範囲, j, False)
If IsError(myV) Then
Cells(i, j + 1).Value = "0"
Else
Cells(i, j + 1).Value = myV
End If

全部”0”表示になってしまいます。
どこが違うのでしょうか？
申し訳ございません、よろしくお願いいたします。