Excel-VBA 数値を切り上げるマクロ-RoundUp関数

Excel VBAマクロ。今回は
計算エラーを無視するマクロ-On Error Resume Next
を示す。

■Excel-VBA 数値を切り上げるマクロ-RoundUp関数

Sub sample38()
Dim MR As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To MR
        Cells(i, 21) = Application.WorksheetFunction.RoundUp(Cells(i, 20), 0)
    Next i
End Sub

※[2.] 変数宣言。
※[3.] 最終行数取得。
※[5.] 2行目から最終行までループ処理。
※[6.] 20列目(T列)の数値を小数点0ケタに
切り上げ、21列目(U列)に格納。
※[7.] 次の行にうつる。

■マクロ実行対象

ワークブック「部品データ_191128.xlsx」。20列目(T列)。

■マクロ実行結果

実行すると、20列目(T列)の
小数点第一位(1桁目)を切り上げた数値が
21列目(U列)に格納される。

■あとがき

今回はExcel VBAマクロ。
数値を切り上げるマクロ-RoundUp関数
を示した。

小数点以下の数値を切り上げたい場合に使う。

LibreOffice Basicで使う場合は
コードの先頭行に
「Option VBASupport 1」を記述する。

Option VBASupport 1

以上。