【エクセルVBA】表の空欄にハイフンを入れる

ランキング IT

エクセルを使って表を作る際に、空欄にハイフンを入れる事があると思います。

でも、いちいちハイフンを入れていくのめんどくさいですよね。

この記事ではそんな面倒な作業をマクロ化してしまいます!

Sub insert_hyphen_to_blank()
'空白セルにハイフンを入れる
    Dim rng As Range    '操作するセル
    For Each rng In Selection
        If rng.Value = "" Then
            rng.Value = "-"
        End If
    Next
End Sub

このマクロはForEach文でSelectionからセルを一つずつ取り出してrngに格納し、中身が空だったらハイフンを入れるようになっています。

これだけ簡単なマクロでも驚くほどの効果が出ます!