Sub 列を指定して。その列の書式を数値に()
‘
‘　B列の書式設定を数値に
Columns(“B:B”).Select
Selection.NumberFormatLocal = “0_ ”

End Sub