[[20210127204251]]　『セルの値をコピーして下のセルに貼り付ける』（ナナジン）　ページの最後に飛ぶ

『セルの値をコピーして下のセルに貼り付ける』（ナナジン）

EXCELのマクロで以下のような処理を至急作成したいのですが、
どのように書けばよいのかご教授頂けないでしょうか。
マクロ作成未経験なうえ、至急必要となった次第です。
1.セルの値をコピーして下のセルに貼り付ける。（10001の列です）
2.セルが空白の場合これを繰り返す。ただしとなりのセルに値がある場合
3.貼り付けるセルに値がある場合はその値をコピーし下のセルに貼り付ける

＜使用 Excel：Office365、使用 OS：Windows10 ＞

余計なお世話でしょうが「マクロ作成未経験」で「至急」と言ってるくらいなら、手作業でやることを考えたほうがよいです。
焦ってもドツボにはまるだけでよいことがあるとは思えません。

ちなみにやりたいことは↓を読めば実現可能だったりしませんか？
[[20201225110640]]　『マクロで空白を埋める』（南風）

（もこな２） 2021/01/27(水) 21:00

一例です

 Sub test()
    With Cells(1).CurrentRegion.Columns(1).SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=r[-1]c"
        .Value = .Value
    End With
 End Sub

（マナ） 2021/01/27(水) 21:05

↑失敗でした。忘れてください。

（マナ） 2021/01/27(水) 21:08

再チャレンジ

 Sub test()
    With Cells(1).CurrentRegion.Columns(1)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=r[-1]c"
        .Value = .Value
    End With
 End Sub

（マナ） 2021/01/27(水) 21:12

手作業でも簡単にできます。
1.A列のデータ範囲の最後（B列にデータのある）が行を知る(仮に1000とする）
2.名前ボックスに A1:A1000　と入力して　Enter (A1:A1000が選択される）
3.ジャンプ機能で「空白セル」を指定　（空白セルだけが選択される）
4．=A1 と入力して Ctrl+Enter
5．A列を選択して、コピーして値複写　

マクロにしたものが、マナさんの提示されたものかと。

（γ） 2021/01/27(水) 21:32

ああ、引用されたスレッドに、手作業案が書かれていましたね。どうも失礼。

（γ） 2021/01/27(水) 21:36

コメントありがとうございます。
本日対応したのが5000行程あり、空欄になっている行もランダムで手作業で行ったのですが
非常に時間がかかったので質問させていただきました。
明日マナさんの例を試めさせていただきます。ありがとうございました。
（ナナジン） 2021/01/27(水) 21:50

コメント返信：

[ 一覧(最新更新順) ]

[[20210127204251]] 『セルの値をコピーして下のセルに貼り付ける』（ナナジン） ページの最後に飛ぶ

[[20210127204251]]　『セルの値をコピーして下のセルに貼り付ける』（ナナジン）　ページの最後に飛ぶ