Sub ForNext01() Dim i As Integer Range("C18").Value = 0 For i = 3 To 17 'C3~17へ繰り返す If Cells(i, "C").Value <> "" Then Range("C18").Value = Range("C18").Value + Cells(i, "C").Value 'セルが空白でなかったら、セルC18に合計を表示 End If Next End Sub