マクロで複数の条件を満たしたときに指定したセルに値を入力する方法を教えてください。

データ表の条件を満たした行の記録のセルに"発行済"と入力させるにはどうすれば良いでしょうか、わかる方教えて下さい。
宜しくお願い致します。

データ表
月度　　　　　　型番　　　　　サイズ　　　　記録
7月度 　　　　　　a　　　　　　　1
8月度　　　　　　 b　　　　　　　2
8月度　　　　　　 c　　　　　　　3
9月度　　　　　　 d　　　　　　　4


条件
月度　　　　　　型番　　　　　サイズ　　　　　
8月度　　　　　　b　　　　　　　2

No.3 回答者： ppp2122 回答日時： 2020/11/28 23:45

For i = 2 To 10

最終行の取得は自分で考えましょう

この回答へのお礼

自分で書いたものは、1行づつ条件に合うか比較していたため、長文になるとともに、使いにくい物となってしまいました。今回、教えてもらい、簡潔且つ使いやすくなります。
有難うございました。

お礼日時：2020/11/29 08:40

No.2 回答者： ppp2122 回答日時： 2020/11/28 23:44

Sub サーチ()

Dim i As Long
Dim 比較元 As String
Dim 比較先 As String

比較元 = Cells(1, 6).Value & Cells(1, 7).Value & Cells(1, 8).Value

For i = 2 To 10

比較先 = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
If 比較元 = 比較先 Then
Cells(i, 4).Value = "発行済"
End If

Next i

End Sub

No.1 回答者： ppp2122 回答日時： 2020/11/28 23:34

まず　自分で考えたコードを提示すべき　！