Sub 加算対象セル() '行の変数宣言 Dim 行 As Long '行を31行目からループ処理 For 行 = 31 To 2 Step -1 '4列目の最後の稼働日 If Cells(行, 4) = "稼働日" Then '6列目の合計には、対象の6列目＋E34の合計 Cells(行, 6) = Cells(行, 6) + Range("E35") '対…

Sub 最終行の右下を取得() '最終行が0以上の場合には、一旦枠外に転記する '目的のセルの変数宣言 Dim 目的のセル As Range '取得するセルは日付セルの最終行の1段下の右4列目 Set 目的のセル = Cells(Rows.Count, 2).End(xlUp).Offset(1, 4) '0以上の数字の…