VBAで質問です。

画像

その他の回答(2件)

0

前回答者ineさんと理屈は同じですが、このような書き方もあるとの紹介です。 Sub ボタン3_Click() Cells(3, 4).Value = "" For n0 = 2 To 1000 If Cells(n0, 1).Value = "" Then Exit For ElseIf Cells(n0, 1).Value = Cells(3, 3).Value Then Cells(3, 4).Value = Cells(3, 4).Value + 1 End If Next End Sub