オートフィルみたいにするマクロ

たとえば，ピボットテーブルで同じ列に2つ変数を設定した場合、一番最初の方の変数のほうが空白となってしまいます．印刷目的の場合はきれいに見えるのですがこれを使ってマクロを組もうとすると結構不便なのでその空白を埋めるマクロです。

【例題シート】
スプレッドシート

ピボッドテーブル

ピボットテーブルをコピーしたシート

【事例】

Sub auto_fill()

For i = 2 To 7

If Cells(i, 1) <> "" Then
mc = Cells(i, 1)
ElseIf Cells(i, 1) = "" Then
Cells(i, 1) = mc
End If

Next i

End Sub()

【解説】

うまくいくと以下のようになります．

どうでしょう．こんなこと出来たらうれしくないですかねぇ．ぼくは結構うれしいのでUpしてしまいました．