4本値並べて日時が狂ってたら挿入するやつ
この頃NT倍率に興味が出てやってるところ
日経とTOPIX並べて同日時で比較したいのだが、日時がズレる場合が有るのよね~
通貨ペア同士の比較でも常に有ることだし基本として置いとこう
これは2011/2/14~11/18で225先物は昼休みが無くなったのにTOPIXの方には有る
それを修正するのに
225の4本値までをコピー。TOPIXに挿入。11時の4本値を挿入したセルに貼付
をこれに
マクロの自動記録
Sub Macro2()
Range("A49444:F49448").Select
Application.CutCopyMode = False
Selection.Copy
Range("H49444").Select
Selection.Insert Shift:=xlDown
Range("J49443:M49443").Select
Application.CutCopyMode = False
Selection.Copy
Range("J49444:M49448").Select
ActiveSheet.Paste
End Sub
選択した範囲で使えるように整理した
Sub 挿入()
Dim Rp As Range 'rpは日付
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Offset(, 1).Value = 0.46875 Then
.Resize(5, 6).Copy
.Offset(, 7).Insert Shift:=xlDown
.Offset(-1, 9).Resize(1, 4).Copy
.Offset(, 9).Resize(5, 4).PasteSpecial
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub