Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23603 / 76738

←次へ　｜　前へ→


	【58501】A列を走査し、特定の場所に行を挿入する

初心者 - 08/10/28(火) 15:31 -


	引用なし

	パスワード

いつもお世話になっております。

題名の通りなのですが、A列には2008/07/26～2008/10/30にまでが上から下に昇順で並んでいます。

【例】
A1=2008/07/26
A2=2008/07/26
A3=2008/07/26
A4=2008/07/26
A5=2008/07/27
A6=2008/07/27
A7=2008/07/28
A8=2008/07/28
・
・
・
・
A20000=2008/10/30

■連続で同じ日付が何行入ってるかはランダムになります。
■上セルと下セルとで日付が違った場合にその間に行を挿入したいのです。

dim LastR as Long
dim R as Long

　LastR = Worksheets(1).Range("A65536").End(xlUp).Row
　　　　For R = 1 To LastR
　　　　　ここからがわからないです。
　　　　　　　　
　　　　Next

ご教示ください。

0 hits

▼

【58501】A列を走査し、特定の場所に行を挿入する 初心者 08/10/28(火) 15:31

≪