Sub 列の非表示()
    
    ACol = ActiveCell.Column
    Columns(ACol).EntireColumn.Hidden = True

    Columns(ACol).EntireColumn.Hidden = False
    
    ACol = ActiveCell.Column - 1
    Columns(ACol).EntireColumn.Hidden = True
    
    Columns("C:E").EntireColumn.Hidden = False
    
End Sub
------------------------------------------------------------------------------
Sub 列の挿入()
    
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAdove
    
    Selection.Delete Shift:=xlToLeft
    
    Columns(6).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAdove
    
    Selection.Delete Shift:=xlToLeft
       
End Sub
-----------------------------------------------------------------------------
Sub 行を黄色にする・色なしにする()

    Range("A10:J10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535

    End With
    
    Range("A10:J10").Select
    With Selection.Interior
        .Pattern = xlNone

    End With
    Range("A1").Select
End Sub