Excel VBA質問箱 IV

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

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


23591 / 76732 ←次へ | 前へ→

【58507】Re:A列を走査し、特定の場所に行を挿入する
お礼  初心者  - 08/10/28(火) 16:18 -

引用なし
パスワード
   ▼ひげくま さん:
>こんにちは。
>
>>     For R = 1 To LastR
>>      ここからがわからないです。
>>         
>>     Next
>
>ということですが、そこはそれぞれの行での処理内容を書く、というのは解っているんですよね?
>
>そして、その処理内容とは、
>
>> ■上セルと下セルとで日付が違った場合にその間に行を挿入したいのです。
>
>なんですよね?
>
>それをそのまま書くだけなんですけど、どこがどう解らないのでしょうか?
>Forループを使おうとしているくらいなのに、この処理内容がまったく解らない、というのはちょっと不思議です。


Option Explicit


Sub Inserting1()
  Dim R As Long
  Dim LastR As Long
  
Application.ScreenUpdating = False
  
  LastR = Range("A65536").End(xlUp).Row
  
    For R = LastR To 2 Step -1 ←※
      If Cells(R, 1).Value <> Cells(R + 1, 1).Value Then
       Rows(R + 1).Insert
      End If
    Next
    
Application.ScreenUpdating = True

End Sub

※For R = 2 To LastR としていたので、たどりつけませんでした。
 説明不足で申し訳ないです。

ご指摘ありがとうございます。
3 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 お礼

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