A100 A101の解決方法

質問者が納得A1 は日付入力10/6 A2 =$A$1+INT((ROW(A1))/100) A1：A2選択→右クリック→セルの書式設定→表示形式→ユーザー定義の種類に ｙｙｙｙｍｍｄｄ と入力→ＯＫ A2の式を下方向コピー 後は A1 の値変更で・・月をまたいでも 20111031 の次は20111101 追記 chiquilin_siteさん あなたの式出来ませんよ・・・

質問者が納得標準モジュールとして記述。エラー処理はしていません。 Sub test() Application.Goto Range("A:A").Find(Date), True ActiveWindow.SmallScroll Down:=-4 End Sub

質問者が納得Ｃ１ =OFFSET($A$1,INT(COLUMN(B1)/2)*50+ROW()-1,0) D1 =OFFSET($B$1,INT(COLUMN(B1)/2)*50+ROW()-1,0) このセル選択右方向コピーさらに下方向50行目でコピー しかしＥｘｃｅｌ2003では6400行まで・・ すこし応用しないと また印刷範囲も手動で設定