[[20210127204251]] 『セルの値をコピーして下のセルに貼り付ける』(ナナジン) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

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

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

【実施前】
10001 |あいうえお
   |あうえおい
   |あおいうえ
   |あおいうえ
10002 |かきくけこ
   |かくけこき
10003 |さしすせそ
   |さすせそし
   |させそしす
10004 |たちつてと
   |たつてとち

【実行後】
10001 |あいうえお
10001 |あうえおい
10001 |あえおいう
10001 |あおいうえ
10002 |かきくけこ
10002 |かくけこき
10003 |さしすせそ
10003 |さすせそし
10003 |させそしす
10004 |たちつてと
10004 |たつてとち

< 使用 Excel:Office365、使用 OS:Windows10 >


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

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

(もこな2) 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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.