|
▼ひげくま さん:
>こんにちは。
>
>> 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 としていたので、たどりつけませんでした。
説明不足で申し訳ないです。
ご指摘ありがとうございます。
|
|