Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62744 / 76732 ←次へ | 前へ→

【18589】Re:空白セルに上のセルをコピー
回答  Jaka  - 04/9/30(木) 17:18 -

引用なし
パスワード
   こんにちは。

例えば例題だと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

0 hits

【18572】空白セルに上のセルをコピー totori 04/9/29(水) 22:57 質問
【18575】Re:空白セルに上のセルをコピー ちゃっぴ 04/9/29(水) 23:27 回答
【18589】Re:空白セルに上のセルをコピー Jaka 04/9/30(木) 17:18 回答
【18591】Re:空白セルに上のセルをコピー カド 04/9/30(木) 18:00 回答
【18592】Re:空白セルに上のセルをコピー Asaki 04/9/30(木) 18:19 回答
【18598】Re:空白セルに上のセルをコピー totori 04/9/30(木) 22:21 お礼

62744 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free