質問: VBA(Excel 2003)に関する質問です。
回答: これでいいですかね? /*************************************************************/ Sub test() '行番号取得 Dim Row As Long '行番号取得 Row = Cells(Rows.Count, 1).End(xlUp).Row If Row = "1" Then Row = Row + 1 End If '一番下の行から上を消去 Rows(2 & ":" & Row).Select Selection.Delete Shift:=xlUp 'セルA2に対し今日の日付を入力 Range("A2").Value = Month(Date) & "月" & day(Date) & "日" End Sub /*************************************************************/