Sub changeUnit()
Dim i, j
i = 2
' i は行の番号、第一列が空白に会った場合は停止する
Do While Cells(i, 1) <> ""
' jは列の番号、一行ずつ、9列がある
For j = 2 To 10
Cells(i, j) = Cells(i, j) * 0.453
Next j
i = i + 1
Loop
Cells(i, 9) = "磅"
End Sub