Sub 少数を整数に変換する() For 行 = 1 To 4 '1~4行まで処理 'intで整数化できる Cells(行, "A") = Int(Cells(行, "A")) Next 行 End Sub