Sub 列を非表示にする()

    Columns("B:B").Hidden = True

End Sub