Sub sisomaki()
Dim siso
Dim nomi
Dim kanpyo
Dim gyo
For gyo = 4 To 33
If Range("C" & gyo).Value = "しそ巻き無料" Then
siso = siso + 1
ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
nomi = nomi + 1
ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
kanpyo = kanpyo + 1
End If
Next
Range("F4").Value = siso
Range("F5").Value = nomi
Range("F6").Value = kanpyo
End Sub
仲村 修治さんの投稿
(投稿ID: 1658)
ゲストさんのコメント
(コメントID: 2929)
単純なノウハウの積み重ねですね。