list - VBA - 変数のシート 1 の範囲をチェックし、変数の出現ごとにシート 2 にリストを作成します。

Question

私がしたいのは、シート 2 でコンボボックス 1.value として定義した変数のシート 1、列 3 をチェックすることです。

sheet2のsheet1にcombobox1の値が2つのオフセット値とともに見つかるたびに、マクロをリストする必要があります。

私は完全に迷子になり、スタックオーバーフローでこれに似たものを見つけることができません.

      Sub make_list()
Dim grower As String
Dim r As Range
grower = Sheets("Grower Reporting").ComboBox1.Value

Set r = Sheets("Grower Rejection Data").Range("E:E").Find(grower, Range("e1"), _
LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
i = 1
If Not r Is Nothing Then
    firstAddress = r.Address
    Do
        'Add cell references to a list on sheet1 column E.
        Sheets("Sheet1").Cells(i, 5).Value = Sheets("Grower Rejection Data").Cells(r.Row, 3).Address
        'Add any additional offset values here
        i = i + 1
        Set r = Sheets("Grower Rejection Data").Range("e:e").FindNext(r)
    Loop While Not r Is Nothing And r.Address <> firstAddress
End If
End Sub

私がやろうとしているのは、シート「Grower Rejection Data」の列 e で「grower」変数が何回出現するかを確認し、セル h31 から始まるシート「Grower Reporting」に各出現をリストすることです。私が試みていることを少し明確にするのに役立つことを願っています。