Sub バージョン6()
'
' バージョン6 Macro
' マクロ記録日 : 2003/4/19  ユーザー名 :茂音
'

'
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    Range("2:2,4:4,6:6,8:8,10:10,12:12,14:14,16:16,18:18,20:20").Select
    Range("A20").Activate
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Cells.Replace What:="│", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="┃", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("A1:A12").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        TrailingMinusNumbers:=True
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[-7],LEN(RC[-7])-1)"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H12"), Type:=xlFillDefault
    Range("H1:H12").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:H1").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("H1:H12").Select
    Selection.ClearContents
    Range("B7").Select
End Sub