Attribute VB_Name = "Module4"
Sub GMOヒストリカルデータ()
    
    'BC列を挿入
    Columns("B:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    
    'B1,C1セルに関数入力
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=LEFTB(RC[-1],8)"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=TIME(MOD(INT(RC[-2]/10000),100),MOD(INT(RC[-2]/100),100),0)"
    
    'B1,C1セルをコピー
    Range("B1:C1").Select
    Selection.Copy
    
    'BC列の最終行まで選択して貼り付け
    Range("B1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Select
    ActiveSheet.Paste
    
    'BC列をコピーして、数値として再度BC列に貼り付け
    Columns("B:C").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
    'A列を削除して詰める
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    
    '時刻の表示形式を変更
    Columns("B:B").Select
    Selection.NumberFormatLocal = "hh:mm"
     
    '上書き保存
    ActiveWorkbook.Save
    
    '強制終了
    If Workbooks.Count = 2 Then
        ActiveWorkbook.Close savechanges:=False
        Application.Quit
    Else
        ActiveWorkbook.Close savechanges:=False
    End If

End Sub