【Excel】エクセルで10円単位（10の位）で切り上げ・切り捨て・四捨五入（金額・価格：関数やVBAマクロも）

Sub RoundUp10Yen()
    Dim lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range("C2:C" & lastRow).Formula = "=ROUNDUP(B2,-1)"
        .Range("C2:C" & lastRow).Value = .Range("C2:C" & lastRow).Value
    End With
End Sub

コードのポイント

・lastRow: B列の最終行を取得

・Range(“C2:C” & lastRow).Formula: C2からC最終行までに数式を一括入力

・ Range(“C2:C” & lastRow).Value: 数式を値に変換（数式から値に変えたい人はここを適用。数式のままの場合は、このコード削除でOK）

Alt＋F8でマクロ選択画面を開きRoundUp10Yen関数を実行すれば処理完了ですね。

エクセルで金額を10円単位で切り捨てする【関数】

10円単位の切り捨ては、ROUNDDOWN関数を使用します。

C2セルに以下の数式を入力します。

数値丸めはROUND～～関数シリーズと覚えておくといいですね(^^)/

=ROUNDDOWN(B2,-1)

この数式の引数の意味は以下の通りです。

B2: 切り捨て対象の金額が入力されているセル
-1: 小数点以下の桁数。-1を指定することで、10の位を四捨五入せずに切り捨てします。

VBA（マクロ）の場合

Sub RoundDown10Yen()
    Dim lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range("C2:C" & lastRow).Formula = "=ROUNDDOWN(B2,-1)"
        .Range("C2:C" & lastRow).Value = .Range("C2:C" & lastRow).Value
    End With
End Sub

ROUNDUP関数をROUNDDOWN関数に変更した以外は同様です。

RoundDown10Yen関数を実行します。

エクセルで金額を10円単位で四捨五入する【関数】

10円単位の四捨五入は、ROUND関数を使用します。

C2セルに以下の数式を入力します。

=ROUND(B2,-1)

この数式の意味は以下の通りです。

B2: 四捨五入対象の金額が入力されているセル
-1: 小数点以下の桁数。-1を指定することで、10の位を四捨五入します。

VBA（マクロ）の場合

Sub Round10Yen()
    Dim lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 
        .Range("C2:C" & lastRow).Formula = "=ROUND(B2,-1)"
        .Range("C2:C" & lastRow).Value = .Range("C2:C" & lastRow).Value
    End With
End Sub

ROUNDUP関数をROUND関数に変更した以外は同様です。

Round10Yen関数を実行します。

以上、エクセルで10円単位の切り上げ・切り捨て・四捨五入する方法をご紹介しました。

関数を使えば簡単に一括処理ができ、マクロを使えばワンクリックで実行できます。

金額計算の際にぜひ活用してみてください。