１分足のデータを整えました

ＶＢＡづいている今日この頃

日々作ったプロシージャを防備録として記録して行きます

今日はダウンロードした１分足のデータを使えるようにするとこまで

こんなやつ

ダウンロードしたデータをmotoと言う名のシートに貼り付け

コピーしてmoto(2)を作成し

上に項目名を追加しました

次に

この元データ所々飛んでるのでその補修です

飛んでるところを見つけて行を挿入し

上のデータをコピー貼り付け

確認用に追加した行の最後に行番号を記入

あとはオートフィルターつけて完成

こんなんなりました。後ろに３１と有るのが追加された行です

プロシージャ

Sub mazu()
Dim wsp As Worksheet
Sheets("moto").Copy After:=Sheets(1)
Set wsp = Worksheets("moto (2)")
wsp.Range("A1:F1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
wsp.Range("a1").Value = "年月日"
wsp.Range("b1").Value = "時分"
wsp.Range("c1").Value = "始値"
wsp.Range("d1").Value = "高値"
wsp.Range("e1").Value = "安値"
wsp.Range("f1").Value = "終値"
Columns("A:F").EntireColumn.AutoFit
Range("A1:F1").HorizontalAlignment = xlCenter
End Sub
Sub nukechekku()
Dim p As Long
Dim wsp As Worksheet
Application.ScreenUpdating = False
Set wsp = Worksheets("moto (2)")
For p = 2 To Range("a1048576").End(xlUp).Row
If DateDiff("n", Range("b" & p).Value, Range("b" & p + 1).Value) = 2 Then
wsp.Range("a" & p + 1 & ":f" & p + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
wsp.Range("a" & p & ":f" & p).Copy
wsp.Range("A" & p + 1).PasteSpecial
wsp.Range("b" & p + 1) = DateAdd("n", 1, wsp.Range("b" & p + 1))
wsp.Range("g" & p + 1).Value = p + 1
End If
Next
wsp.Range("A1:G1").Select
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub

以上