SCマクロ Sub 指定範囲をクリア() Selection.ClearEnd SubSub 最終行へ() Cells(Rows.Count, Selection.Column).End(xlUp).SelectEnd Sub マクロ集 '最終行の取得Sub 最終行()Cells(Rows.Count, 1).End(xlUp).RowEnd Sub 'メッセージボックスMsgBox "おはよ…