空白にフィルダウンさせるマクロの書き方

Question

例えば次のような状態の表がシートにあり、
列１：２の空白のセル４つに、
2行目と同じ「あああ」「いいい」を入れるマクロの作り方教えてください。

列１	列2	列3
あああ	いいい	ううう
	えええ
	おおお

マクロの記録を使いましたが、うまく実行されませんでした。

Answer 1

仕様が不明瞭だったので、
列AとBだけについて、列Cが存在する限り処理するものとする、
としました。

テスト１


テスト２


テスト３

Private Sub CommandButton1_Click()
    Dim r As Long, rr As Long, r_src As Long
    Dim c As Long
    
    With ActiveSheet
        r = 2
        Do While Not IsEmpty(.Cells(r, 3).Value)
            For c = 1 To 2
                If IsEmpty(.Cells(r, c).Value) Then
                    rr = r - 1
                    Do While IsEmpty(.Cells(rr, c).Value)
                        rr = rr - 1
                    Loop
                    .Cells(rr, c).Copy Destination:=.Range(.Cells(rr + 1, c), .Cells(r, c))
                End If
            Next
            r = r + 1
        Loop
    End With
    
End Sub

Comments

[退会済みユーザー]

わかりにくい質問の仕方をしてしまって恐縮です。
意図を汲んでくださり、早速のご回答誠にありがとうございます。
具体的に、考えうるパターンで解説くださり、コードもいただき、
理解が進みました。
まだ自力で解決できてないですが、もう少し試行錯誤してみます。
誠にありがとうございます！

Answer 2

やりたいことの記述だけになってしまっていますね。
これだと「丸投げの質問」ととられてしまいますよ。

マクロの記録を使いましたが、うまく実行されませんでした。

とありますが、どんな操作を「マクロ記録」して（結果どんなコードが生成されて）、でもどんなところが思った動作とならなかったのか。
この記載がないとなかなか回答もつかないと思います。

---

やりたいことは「A列とB列の空欄を、直上の入力内容で埋めたい」だと思います。

処理の流れとしては

①対象の行範囲を上から順にループする
～行ループここから～
②A列の判定
②-a A列が空欄でなければ、変数Aに値を格納する
②-b A列が空欄なら、変数Aの値をセルに出力する

③B列の判定
③-a B列が空欄でなければ、変数Bに値を格納する
③-b B列が空欄なら、変数Bの値をセルに出力する

④次の行の処理(②)へ
～行ループここまで～

という感じになると思います。
現時点ではこの程度のアドバイスしかできませんが、難しいコードではないと思いますので頑張ってみてください。

Comments

[退会済みユーザー]

早速のご回答ありがとうございます！
質問の仕方もお教えくださりありがとうございます！
今後つまづいていることを具体的に記載するようにいたします。
まだ自分でマクロかけてないのですが、引き続き試行錯誤してみます。
ありがとうございました。