表の間を埋めるVBAマクロ

2014年1月23日2020年3月17日

Excelで下の左のような表を作ったあとで、右の表のように同一項目を埋めたい場合があると思います。数が少ない場合は手作業でもできますが、大きな表だと結構面倒です。

というわけで、この作業を行うマクロを作ってみました。

Sub Macro1()
    Dim s As Object
    Dim str As String
    str = ""
    For Each s In Selection
        If (s.Value <> "") Then
            str = s.Value
        End If
       s.Value = str
    Next
End Sub

個人用マクロに作っておくといいと思います。
使い方は下の図のように埋めたい範囲を選択して、マクロを実行してください。
選択範囲は1列のみ対応しています。