・コーディングが長くなると見辛いので次の行に改行したいときはSpace+_ (アンダースコア)を使用します。 Worksheets("集計").Range("C3").Value = _ Worksheets("集計").Range("C3").Value + 1 ・逆に短い文を1行に書くときは:(コロン)で繋ぎます。 例 a=0: b=0 : c=0 ・おまけ コメント文は'または Remで始めます。