Excel VBA質問箱 IV

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

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


23597 / 76732 ←次へ | 前へ→

【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

ご教示ください。

1 hits

【58501】A列を走査し、特定の場所に行を挿入する 初心者 08/10/28(火) 15:31 質問
【58504】Re:A列を走査し、特定の場所に行を挿入する ひげくま 08/10/28(火) 15:53 発言
【58507】Re:A列を走査し、特定の場所に行を挿入する 初心者 08/10/28(火) 16:18 お礼
【58505】Re:A列を走査し、特定の場所に行を挿入する Jaka 08/10/28(火) 15:58 発言
【58506】Re:A列を走査し、特定の場所に行を挿入する 初心者 08/10/28(火) 16:15 お礼

23597 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free