PCメモ

Excelを中心とした業務改善の記録

2021-05-01から1日間の記事一覧

Do Loopステートメント(繰り返し処理)

指定した条件で処理を繰り返す A列の2行目以下の数字を合計する。 While条件(条件が正しい間) Sub test2() Dim i As Long Dim c As Long i = 2 '空白ではない間処理を続ける Do While Cells(i, 1) <> "" c = c + Cells(i, 1) i = i + 1 Loop MsgBox c End …