表なかの数字を一括割り算  Sub test()'  表なかの数字を一括割り算     Dim WS As Worksheet    D···