ＶＢで実現方法を教えてください。

---

エクセルマクロ、vbで実現方法をおしえてください。

F2セルからF2500セル迄の処理です。

F2セルが空白ならば、G2セルからコピーして、F2セルに挿入、F1セルが空白以外は、何もしない。
F3セルが空白ならば、G3セルからコピーして、F3セルに挿入、F2セルが空白以外は、何もしない。
上記の様に、F2～F2500まで繰り返し

F25001で処理は終了します。

このような、VB処理を教えてください。

---

以下のような VBA で実現できると思います。
F2 〜 F2500 の範囲を順番に確認して、F列が空白なら G列の値をコピーするだけのシンプルな処理です。

Sub FillFfromG()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet   ' 必要に応じて特定のシート名に変更してください

    For i = 2 To 2500
        ' F列が空白の場合、G列の値をコピー
        If IsEmpty(ws.Cells(i, "F").Value) Then
            If Not IsEmpty(ws.Cells(i, "G").Value) Then
                ws.Cells(i, "F").Value = ws.Cells(i, "G").Value
            End If
        End If
    Next i
End Sub

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

※作成する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。