Question

セルを検索して、値をシート順番に書き出したい。

Dim i, j As Byte
For i = 1 To Sheets(4).Range(”a1”).End(xlDown).Row
If Sheets(4).Cells(i, 1).Value = Sheets(3).Range(”F1”).Value Then
  j = j + 1
  Sheets(3).Cells(j, 16).Value = Sheets(4).Cells(i, 1).Offset(0, 1).Value
End If
Next

これを連続でF1～F500まで処理したいです。
書き出しも+1～500です。

Answer 1

For文をネストしてやればF1～F500までのデータをすべて書き出すことが
できます。下のアドレスで示した例を参考にしてください。
 ２つほど気になったことがあります。
 １行目　Byte型ですが，これだと255までしか対応できません。Integer
型かLong型を使う方が普通です。
 5行目　Sheets(3).Cells(j, 16).Value　ですが”F1”の値に対応する
データが縦に並んでしまいます。多分　Cells(16,ｊ）の間違いではない
かと思います。