|
▼超超初心者 さん:
こんにちは・・・
>累計からグラフを作るときに月が飛んでいると
>求めているようなグラフが作れません。
該当月と翌々月の平均などの数値を張り込むことがありますが・・・
兎に角累積には必ず何らかのデータを入れないと、グラフの価値が下がります?
というより、問題が発生します。
>データがない月探し出して
>1行挿入し、前月のデータをコピペするというのを
>VBAで自動化したいと思っています。
この考えも近似値を埋めるということでのアイディアでしょうね。
そこで、トライしました。これで出来ると思います。
ピボットもこれで行けるでしょう。
A列からD列までのデータです、更にE、F等までデータ転記する必要があれば
Offsetで同じように増やしてください。
Sub 抜けの月を加え上の行と同じ数値持ち込み()
Dim r As Range
For Each r In Range("A3", Range("A65535").End(xlUp))
r.Select
If r.Offset(1).Value <> DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value)) Then
r.Offset(1).EntireRow.Insert
r.Offset(1).Value = DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value))
r.Offset(1, 1).Value = r.Offset(, 1).Value
r.Offset(1, 2).Value = r.Offset(, 2).Value
r.Offset(1, 3).Value = r.Offset(, 3).Value
’必要であれば増やしてください
End If
If r.Row = Range("A65536").End(xlUp).Row - 1 Then
Exit Sub
End If
Next
End Sub
|
|