日付データで計算し、土、日分の２行追加する方法

質問

excel2010

日付データで計算し、土、日の２行を追加するマクロを作成しました。
途中は、正しく２行追加されます。
しかしながら、最終行が月曜日だけだと、最終行（月曜日）と最終行－１（金曜日）の間に
２行追加されません。
作成したマクロのどこが悪いのかを教えていただきたく。

構成は次の通り
Ａ列に日付のデータがＡ４セルから貼り付けられています。
Ａ３セルは、題目で日付という文字列があります。
Ａ列には、最初土、日の日付（行）がありません。
土、日の行、２行分を追加するために、計算式で行と次の行の差が３以上だったら
２行追加というマクロを設定します。

マクロは次の通り
Sub donichiadd()
''
Dim MxR As Long
Dim h As Long
MxR = Range("A65536").End(xlUp).Row - 1
For h = MxR To 5 Step -1

If Cells(h, 1) - Cells(h - 1, 1) >= 3 Then
Cells(h, 1).Resize(2).EntireRow.insert

End If

Next h

End Sub

マクロは以上。
データが下記だとします。

A4セル：6/1
A5セル：6/2
A6セル：6/3
A7セル：6/4
A8セル：6/5
A9セル：6/8
A10セル：6/9
A11セル：6/10
A12セル：6/11
A13セル：6/12
A14セル：6/15

この状態でマクロを実行すると、
6/8と6/5の間は２行追加されますが、
6/15と6/12の間には２行追加されません。

尚、A15セルに6/16があった場合にマクロを実行すると、
6/15と6/12の間に２行追加されます。

最終行が月曜日だけだと、土、日分の２行を追加することが出来ない状態です。

どこが悪いのか教えていただきたく。

回答No.1

ken-nosuke · ベストアンサー

下記式が間違っています。
式の最後の「－１」を削除してください。
MxR = Range("A65536").End(xlUp).Row – 1
　　　↓
MxR = Range("A65536").End(xlUp).Row

「Range("A65536").End(xlUp).Row」は、データのある行番号の最後を示すのであなたの例では「A14」になります。ここで「－１」をすると、最終行が「A13」となり、「A14」が無視され、行の追加が行われません。
ご自分で発見するためには、デバッグ、ウォッチ式を勉強されると良いと思います。

お礼

素早い回答ありがとうございます。助かりました。
デバッグ、ウォッチ式勉強します(^^)

回答No.2

keithin

＞日付データで計算し、土、日の２行を追加するマクロを作成しました。

ご質問の状況の直接の悪さは、（月曜である）最終行を見てませんね。

間違い：
MxR = Range("A65536").End(xlUp).Row - 1

正解：
MxR = Range("A65536").End(xlUp).Row

また、エラーを回避したくて？５行目までしかループしてないので、６月１日は月曜日なのに、その前には土日の二行が追加できていない（ヤリタイ事の整合性が取れてない）とかも。

sub macro1()
　dim r as long
　for r = range("A65536").end(xlup).row to 4 step -1　’（または　to 5）
　　if weekday(cells(r, "A").value) = 2 then
　　　cells(r, "A").resize(2, 1).entirerow.insert shift:=xlshiftdown
　　end if
　next r
end sub

お礼

回答ありがとうございます。
先頭が月曜日だった場合のマクロまで記述いただき恐れ入ります。
構成における説明不足でしたが、１月単位での抽出をしています。
Ａ４セルは月の平日先頭日から始まるので、Ａ４セルが月曜日だった場合には、
その上に２行追加は必要ないのです。

お手数をおかけしました。