エクセルVBAによる欠損値補完


エクセルVBAによる欠損値補完
指定した領域のセルで空欄が存在する場合、そのセルに任意の値を入力するプログラムです。

Sub Hokan()

    Dim sentaku As String
    Dim atai As String

    sentaku = InputBox(“選択する範囲を入力してください”, “選択する範囲を入力”, “”)
    atai = InputBox(“空欄のセルに入れる値を入力してください”, ”値を入力”, “”)

    Range(sentaku).Select

    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = atai

End Sub