|
こんにちは。
例えば例題だとA4セルを選択後、ポインタをA4セルの右下角に当てポインタが+になったところでWクリックすれば手動でも意外と楽にフィルできますよ。
これをコードにしてループさせてみました。
因みにA4の下何も無い場合、基準がわかりませんからB列の最終行としました。
Sub njj()
RS = Range("A1").End(xlDown).Row
Do Until RE = 65536
RE = Range("A" & RS).End(xlDown).Row
If RE <> 65536 Then
Range("A" & RS).AutoFill Destination:=Range("A" & RS & ":A" & RE - 1)
RS = RE
ElseIf RS <> Range("B65536").End(xlUp).Row Then
REb = Range("B65536").End(xlUp).Row
Range("A" & RS).AutoFill Destination:=Range("A" & RS & ":A" & REb)
End If
Loop
End Sub
|
|