=ARRAYFORMULA(IF(LEN(B:B), B:B * 2, ""))=ARRAYFORMULA(IF(ROW(A1:A10)<=10, A1:A10, ""))

=AND($B2<>"",$C2="未完了")

Sub 最終列までカウント() '最終列の変数 Dim 最終列 As Long '行数の変数 Dim 行数 As Long '最終行は、B列の2行目から最終行まで For 行数 = 2 To Cells(Rows.Count, 2).End(xlUp).Row '最終列番号を取得 最終列 = Cells(行数, Columns.Count).End(xlToLef…