【VBAリファレンス｜実務向け】桁数の多い数字を効率よく入力する｜Excelの「形式を選択して貼り付け」活用術

ExcelVBA

2026.10.23

1. 導入：なぜこのテクニックが重要なのか

実務で100万円単位や1,000万円単位の予算表、あるいは長い製品コードなどを入力する際、ゼロを数えながら入力するのは非常にストレスであり、入力ミス（桁間違い）のリスクも高まります。
「000」を省略して入力し、後から一括で正しい数値に変換するこの手法を使えば、入力作業を大幅に効率化できるだけでなく、ヒューマンエラーを劇的に減らすことができます。

2. 基礎知識：演算機能と「形式を選択して貼り付け」

Excelの「形式を選択して貼り付け」は、単に値をコピーするだけでなく、コピー元と貼り付け先の数値に対して、加算・減算・乗算・除算といった四則演算を自動で行うことができます。
今回は、この「乗算」機能を利用します。例えば、100万円を「1」と入力し、あとから「1,000,000」を掛けることで、正しい数値に変換するという仕組みです。

3. 実装/解決策：手順の解説

以下のステップで作業を進めます。

1. 空いているセルに、掛けるべき数値（例：1,000,000）を入力します。
2. そのセルをコピー（Ctrl + C）します。
3. 数値を省略して入力した範囲を選択します。
4. 右クリックメニューから「形式を選択して貼り付け」を選択します。
5. 「演算」項目の中から「乗算」を選び、OKボタンを押します。
6. 使用したセル（1,000,000と入力したセル）を削除して完了です。

4. サンプルプログラム：VBAで自動化する

手作業も便利ですが、頻繁に行う業務であればVBAで自動化するのがベテランの流儀です。「選択した範囲の数値を、指定した倍数にする」ツールを作成しました。

Sub MultiplySelectedRange() ' ユーザーから倍数を入力させる Dim multiplier As Double Dim inputStr As String


    inputStr = InputBox("選択範囲に乗算する数値を入力してください", "数値変換ツール")
    ' 入力がキャンセルされた場合は終了

    If inputStr = "" Then Exit Sub

    multiplier = CDbl(inputStr)
    ' 選択範囲の各セルに対して乗算を行う

    Dim cell As Range

    For Each cell In Selection

        ' セルが数値の場合のみ処理を行う

        If IsNumeric(cell.Value) And cell.Value <> "" Then

            cell.Value = cell.Value  multiplier

        End If

    Next cell

MsgBox "変換が完了しました。" End Sub

5. 応用・注意点：現場でのリスク管理

注意点：この操作は「元に戻す（Ctrl + Z）」が効かない場合があります。必ず作業前にバックアップを取るか、コピーした別シートで試す習慣をつけてください。
現場の工夫：「000」単位で表示させたいだけであれば、セルの表示形式（ユーザー定義で「0,」や「0,,」と設定）を使うほうが、元の数値を保持できるため安全です。入力作業の効率化として割り切るのか、表示を整えたいのか、目的に応じて使い分けましょう。